Gmailを使用した、本文に画像貼付メールの一斉送信の方法を教えて下さい

vram様
早速のご回答、まことに有難うございます。
以下の通りご説明させていただきます
１、大変失礼いたしました。今回の質問以外はクローズさせていただきました。
　以後気を付けます。
２、につきまして、目的は商用で見込み客に対して送信するものです。従いまして
　最後に仰せのように、専用の有料サービスを使用するのがＢＥＳＴであると思います。
　現在、起業準備中で予算も限られるので自作のコードで一斉送信を計画しており、
　（送信件数は試験的な数量であります）
　やり方を誤れば迷惑メールを送信してしまうことになり、非常に注意が必要であろうと
　思われます。
　　現在の私のスキルでは「絶対に迷惑メールを送信しない」というレベルではなく、
　迷惑をかけないよう、許される範囲で許される内容を調査しながらという状況です。
３、なにより、VBAしかわからないという点にあります。(VBAも初心者ですが・・・)
　　あと、現在試験的に運用しているoutlookVBAのしくみで送信していますが、
　 （20件以内/1日たり）の送信でも、マイクロソフト(Outlook.com Team)から
　　「Outlook.com has blocked your message」という件名で、
　　「The daily message limit helps us free the world from spammers」という内容の
　　メールが送信されてくるので、これでは使えないのではと思い、Gmailは使用できない
　　かと考えました。そもそもアドレスは送信専用なので何でもよいのです。
（なのでメール送信の作業は中断しております）　　
４、につきましては、HTMLで送信しても、受け手側が対応していなければ
　　意味がありませんね。方針を考えます。有難うございます。
★最後になりますが　取り急ぎご連絡いただきまして本当に有難うございます。
　ご助言をいただきまして、今後どのような方針が良いが熟慮させていただきたく
　思いました。まずは御礼と思い。コメント入れさせていただきました。
　有難うございます。
　　kjadachi01

AIの回答によると添付ファイル付き複数宛先メール送信はできるみたいです

HTMLメール上での画像はメールに添付するものと思っていましたが
説明を読むと「絶対パスで指定する必要があります」とのことなので
メールで使用する画像はどこかのサーバーに置く必要がありそうです

送信サンプル

Sub SendEmailsWithAttachments()

  ' 変数の宣言
  Dim outlookApp As Object, outlookMail As Object
  Dim recipientAddress As String
  Dim attachmentPath As String
  Dim i As Long

  ' Outlookアプリケーションの起動
  Set outlookApp = CreateObject("Outlook.Application")

  ' 添付ファイルのパスを指定
  attachmentPath = "C:\path\to\your\attachment.pdf" ' 実際のパスに修正

  ' メールアドレスが入力されているセル範囲を指定 (例: A1セルからA10セル)
  For i = 1 To 10

    ' メールアドレスの取得
    recipientAddress = ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value ' "Sheet1"はシート名

    ' メールアドレスが空の場合はスキップ
    If recipientAddress = "" Then
      Continue For
    End If

    ' メール作成
    Set outlookMail = outlookApp.CreateItem(0)

    With outlookMail
      .To = recipientAddress
      .Subject = "メールの件名" ' 実際の件名に修正
      .Body = "メール本文" ' 実際の本文に修正
      .Attachments.Add attachmentPath
      .Send ' または .Display で送信前に確認
    End With

    ' オブジェクトの解放
    Set outlookMail = Nothing

  Next i

  ' Outlookアプリケーションの終了
  Set outlookApp = Nothing

  MsgBox "メール送信が完了しました。"

End Sub

メールで使用する画像はどこかのサーバーに置く必要がありそうです

@vram リファレンスによると システムフルパスなので ローカルにあるファイルのフルパスですね。

添付ファイルのソース。 これはファイル (ファイル名を含めたファイル システムのフル パスで表す) または添付ファイルを構成する Outlook アイテムです。

vram様
重ね重ね有難うございます！
やってみます。(いや、やらせてください。)
もちろん、私のスキルでは現在全部理解はできておりませんが、
調べればわかりそうな感じです。(VBAのロジック的にはそんなにです。）
Vram様も、調べていただくのに時間がかかったのではないかと思います。
今は御礼しか言えませんが、有難うございます。
kjadachi01

juner様
早速のご教示、誠に有難うございます。
Gamil API 早速調べて理解させていただきたく思います。
まずは御礼まで。有難うございました。
kjadachi01