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

我试图在光标定位的位置插入一个嵌入图像

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

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

Sub blaa（）
Set objOL=CreateObject（“Outlook.Application”）
设置objMail=objOL.CreateItem（olMailItem）
objMail.Attachments.Add“C:\Users\ieiniti\Pictures\AAA.png”
objMail.HTMLBody=“”
objMail.Display
端接头

它不起作用，因为您正在创建一个新的邮件项，而不是获取对当前打开邮件的引用。下面显示了如何访问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

Sub blaa（）
Set objOL=CreateObject（“Outlook.Application”）
设置objMail=objOL.ActiveInspector.CurrentItem
objMail.Attachments.Add“C:\Users\ieiniti\Pictures\AAA.png”
objMail.HTMLBody=objMail.HTMLBody&“
objMail.Display
端接头

这是第一部分的问候语！非常感谢。但是，现在当我激活宏时，它会删除消息中的所有文本。如何将图像嵌入光标当前本地化的位置？？？@whyliket我已经包含了一个编辑并更新了代码，因此您不能连接两个HTML字符串，而期望得到的字符串是有效的HTML字符串。两者必须合并。