【コピペOK】VBAでoutlookメールを自動作成するコード

こんにちは、RPAライターのやまもとてつやです。

VBAでメール作成するメリット

VBAでメール作成すると件名や本文はもちろん、宛先やCcも自動で設定されるので誤送信が減ります。

昨今、メール誤送信による事件が後をたちません。

たとえば、とある電力会社では誤って別の契約者に送信したために個人情報が流出する事件が起きました。

上記の事件のように、もし毎日決まりきった内容のメールを送っているなら自動化した方がリスクが減ります。

VBAでメールを送信する前に行う参照設定

さて、実際にメールを自動で作る前に参照設定をしましょう。

Excelを開いたら、Alt＋F11でVBEを開きましょう。

そして、メニューバーの中にある「ツール」→「参照設定」の順にクリックします。

次に「Outlook x.xx Object Library」という項目にチェックをつけます（x.xxの部分はバージョンです）。

チェックを入れてOKをクリックすれば参照設定が完了です。

VBAでメールを作成するオブジェクトの設定方法

参照設定ができたら、実際にコードを入力します。

下記が完成したコードです。

Option Explicit

Sub メール作成()

  'メール作成時のおまじない

  'Outlookアプリケーションオブジェクトの取得
  Dim MyOutlook As Outlook.Application
  Set MyOutlook = New Outlook.Application

  'メールitemオブジェクトの取得
  Dim Mailitem As Outlook.Mailitem
  Set Mailitem = MyOutlook.CreateItem(olMailItem)

  'メールの表示
  Mailitem.Display

End Sub

8行目と9行目で、Outlookを起動します。

そして、12・13行目がメールを作成するコードです。

16行目のコードを入れると、作成したメールが確認できるようになります。

ひとまずは、これをコピペで使いましょう。

実行すると、下記のようにメールの下書きが表示されます。

まとめ

以上、VBAでOutlookメールを作成するまでの参照設定とメール作成方法を解説しました。

次は宛先や件名を入れていくので、下記の記事をお読みください。

あわせて読みたい

【超簡単】VBAでOutlookのメールに宛先・件名・本文を設定する方法 VBAでOutlookメールを送る際にどうやって宛先を設定すればいいのか知りたくないですか？ここではVBAでOutlookメールを操作する際の宛先や件名や本文を設定する方法を書いています。コピペで使えるコードも記載しているのでぜひ一度読んでみてください。