VBAでGmailを送る際に本文に画像を挿入したい

Question

前提・実現したいこと

下記サイトを参考にCDOを利用し、VBAにてメールを送るツールを作成したのですが、
本文に画像を挿入する方法が分かりません。
画像をサーバーにアップし、そのパスにつなげば簡単かと思うのですが
手元に利用できるサーバーがないため、メールに添付した画像を本文に表示したいです。
参考ソース等ございましたら教えていただけないでしょうか。

[参考サイト]
https://www.fastclassinfo.com/entry/vba_gmail_sendmail

Comments

[tosi]

NAS(samba)サーバーでしたら、
>コード4｜複数の添付ファイルへ
\\IPxxx.xxx.xxx.xxx\test\Gmail添付.png
の様な記述で良いかと思いますが･･･。

[ka-bi-]

> 手元に利用できるサーバーがないため、メールに添付した画像を本文に表示したいです。
サーバーを利用できない状況にあるため、
メールに添付した画像を本文に埋め込みたいです。

Answer 1

ちょっと調べて作ってみました。
Wordのエディタを利用するみたいですね。
詳しいことはわからないので、これ以上のことはコードを参考に調べてみてください。

Sub test()

    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    
    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
    
    objMail.subject = "画像送信テスト"
    objMail.BodyFormat = olFormatHTML
    With objMail.GetInspector.WordEditor.Windows(1).Selection
        .TypeText "画像です。" & vbCrLf
        .InlineShapes.AddPicture "c:\hoge\hoge.jpg", False, True
        .TypeText "以上です。" & vbCrLf
    End With
    objMail.Display
    Set objOutlook = Nothing

End Sub

Answer 2

・本文をHTML形式、かつ、multipart/form-dataにする。
・画像をテキストコード化する。

メール送信ではないですが、フォーマットや送信手順などは以下が参考になるかと。
参考