VBA Outlook 将图像插入约会

Question

在 Outlook 中打开约会后，我想使用 vba 脚本将 jpg 插入到邀请正文中，这些将是 phone 形式的详细信息一张.jpg.

Const MyPath = "C:\diallist\"
Const MyPicture = "TestDialList.jpg"

Dim myItem As Object

Set myItem = Application.ActiveInspector.CurrentItem()
myItem.MeetingStatus = olMeeting
.Attachments.Add MyPath & MyPicture
.HTMLBody = "<html><p>This is a picture</p>" & "<img src=cid:" & _   Replace(MyPicture, " ", "%20") & " height=240 width=180>"
.Display
End With

非常感谢任何帮助。

Answer 1

首先，ApppointmentItem 对象不公开 HTMLBody 属性，只有 MailItem 公开。对于邮件项目，您需要将图像添加为附件并将其 PR_ATTACH_CONTENT_ID 属性 using Attachment.PropertyAccessor.SetProperty 设置为 th HTML body 中的 img 标签使用的 cid。同样，如果他们只支持 RTF，那将无法用于约会。

要向当前显示的项目添加图片，请使用 Application.ActiveInspector.WordEditor.Shapes.AddPicture。

VBA Outlook 将图像插入约会

VBA Outlook Insert Image to Appintment

outlook

vba

jpeg