Question

我正在尝试插入光标所在的嵌入图像。

我发现的每个宏都会打开一个新的邮件窗口，我希望它在用户撰写邮件时在电子邮件上运行。

Sub blaa()
    Set objOL = CreateObject("Outlook.Application")
    Set objMail = objOL.CreateItem(olMailItem)

    objMail.Attachments.Add "C:\Users\ieinati\Pictures\AAA.png"
    objMail.HTMLBody = "<img src='cid:AAA.png' height=460 width=60>"
    objMail.Display

End Sub

Answer 1

它不起作用，因为您正在创建一个新的MailItem而不是获取对当前打开的引用。下面显示了如何在ActiveInspector中访问CurrentItem。

修改：您需要先添加现有的HTMLBody，然后再添加新图片。

此代码假定您的其余代码是正确的：

Sub blaa()

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.ActiveInspector.CurrentItem

objMail.Attachments.Add "C:\Users\ieinati\Pictures\AAA.png"
objMail.HTMLBody = objMail.HTMLBody & "<img src='cid:AAA.png' height=460 width=60>"
objMail.Display

End Sub

在撰写电子邮件时将图像嵌入光标

1 个答案: