在編寫電子郵件時在光標處嵌入圖像

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