電子メールを作成中にカーソルに画像を埋め込む

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