Question

一旦我在outlook中开了一个约会，我就想通过使用vba脚本在邀请函的正文中插入一个jpg，这些将是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公开。对于邮件项，您需要将图像作为附件添加，并使用Attachment.PropertyAccessor.SetProperty将其PR_ATTACH_CONTENT_ID属性设置为HTML正文中img标记使用的cid。同样，这将是适用于约会的机器人，它们只支持RTF。

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

VBA Outlook将图像插入Appintment

1 个答案: