【サンプル付き】ExcelVBAでOutlook自動メール作成

2023 6/18

2023年6月18日 2023年6月18日

在宅勤務開始しますメールとか毎日打つのめんどくさいなぁ。。

Excel VBAを使ってOutlookのメール作成作業を自動化してみよう!

ExcelVBAでOutlook自動メール作成サンプル

Excel VBAを利用してOutlookメールをボタン一つで自動生成したい

今回は、そんな方にとって役に立つサンプルコードを準備しました。

下準備として、Excelファイルに宛先、本文などの情報を保存しておきます。

サンプルを添付しておきますので、ご活用下さい。

ExcelのText関数とToday関数を使って、今日の日付が自動に入るようにしています。

Outlook自動メール-1 ダウンロード

サンプルは下記になります。コピペで使ってね！ワークシート名を”Outlook自動メール”とするか、コードを書き換えて活用してね！

Sub sendmail_sample1()

    Dim Toaddress As String, Ccaddress As String, Bccaddress As String
    Dim Subject As String, MailBody As String, Credit As String
    Dim OutlookObj As Outlook.Application
    Dim mailItemObj As Outlook.MailItem
    
    ThisWorkbook.Worksheets("Outlook自動メール").Activate

    Toaddress = Range("B2").Value
    Ccaddress = Range("B3").Value
    Bccaddress = Range("B4").Value
    Subject = Range("B5").Value
    MailBody = Range("B6").Value
    Credit = Range("B7").Value

    Set OutlookObj = CreateObject("Outlook.Application")
    Set mailItemObj = OutlookObj.CreateItem(olMailItem)
    mailItemObj.BodyFormat = 3
    mailItemObj.To = Toaddress          'Toをセット
    mailItemObj.CC = Ccaddress          'CCをセット
    mailItemObj.BCC = Bccaddress     'BCCをセット
    mailItemObj.Subject = Subject       '件名をセット
    
    '本文をセット
    mailItemObj.Body = MailBody
    
    'メール表示(誤送信を防ぐために表示だけにして、メール送信はしない)
    mailItemObj.Display
    
    Set OutlookObj = Nothing
    Set mailItemObj = Nothing

End Sub