Question

使用Outlook 2010/13 VBA我想将链接的图像插入到我正在撰写的新电子邮件的正文中。我想将其插入光标所在的位置或在电子邮件正文的最后一个字符之后插入。下面的代码工作正常，只是它在正文结束后将图像插入新行。您能否建议一个解决方案如何修改我的代码来执行上述操作。请注意，当我使用＆＃34;插入和链接图片时，我可以在电子邮件正文的任何位置手动插入此图像。 outlook功能使用其GUI。

Sub test_add_image()
     Dim NewMail As Outlook.MailItem
     Set NewMail = Application.ActiveInspector.currentItem
     NewMail.HTMLBody = NewMail.HTMLBody & "<img   src=http://www.example.com/image.html>"
End Sub

Answer 1

您需要解析邮件正文并找到要插入图像的位置。所以，至少你需要获得格式良好的HTML标记。 img标记应位于body元素内。

Answer 2

如果要将本地文件作为图像插入当前光标位置，请使用Application.ActiveInspector.WordEditor.Application.Selection.InlineShapes.AddPicture - 请参阅https://msdn.microsoft.com/en-us/library/office/Ff822636.aspx

使用Outlook 2010/13 VBA我想将链接的图像插入到新电子邮件的正文中

2 个答案: