[備忘録]Outlookメール作成自動化

目的

Outlookの定期的に送るメールの自動化

やり方

下記の通り行う。

1.「開発」タブ表示

「ファイル」→「オプション」→「リボンのユーザー設定」→「リボンのユーザー設定(B):」の「開発」にチェック→「OK」を押す

2.参照設定

「開発」タブ→「Visual Basic」→「ツール」タブ→「参照設定」→「Microsoft Outlook 16.0 Object Libray」にチェック→「OK」を押す

3.コード記入

左に表示されている「プロジェクト」のシートをダブルクリック→
開いたウインドに下記のコードを貼り付け

Sub CreateEmail()

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim wsMail As Worksheet

Set objOutlook = New Outlook.Application
Set wsMail = ThisWorkbook.Sheets("メール内容") 'ワークシート名

Set objMail = objOutlook.CreateItem(olMailItem)

With wsMail

    objMail.To = .Range("B2").Value 'メール宛先
    objMail.cc = .Range("B4").Value 'メールcc
    objMail.Subject = .Range("B6").Value 'メール件名
    objMail.BodyFormat = olFormatPlain 'メール形式
    objMail.Body = .Range("B9").Value 'メール本文
    
    objMail.Display
    
End With
    
Set objOutlook = Nothing

End Sub

4.シートの編集

シートに戻りタブ名を「メール内容」に変更
(「ホーム」タブ→セルの「書式」→「シート名の変更」)

A2セルに「メール宛先」と書く
A4セルに「メールcc」と書く
A6セルに「メール件名」と書く
A9セルに「メール本文」と書く

B2セルにメールアドレスを入れ、後ろに「;」を入れる
A4セルに「メール宛先」と同じように入れる
A6セルに件名を入れる
A9セルにメールの本文を入れる

5.作成ボタンの作成

「開発」タブ→「挿入」→「フォームコントロール」の「ボタン」をクリック→ボタンを描画すると、「マクロ登録」のウインドが表示されるので、作成したマクロを選択し「OK」を押す

6.メール作成

作成したボタンを押すことでメールが作成される

7.Excelファイル保存

「Ctrl + S」で保存→「ファイル名」を入れる→「ファイルの種類」は「Excel マクロ有効ブック(*.xlsm)」を選択→「保存」ボタンを押す

8.Excelファイル開く

保存したExcelファイルを閉じて、また開く→「セキュリティの警告 マクロが無効にされました。」のメッセージが表示されているので「コンテンツの有効化」をクリック