【初心者向け】Outlook VBAでメールに今日の日付を自動挿入する！

まずは.oft形式のメールテンプレートを用意します。メールテンプレートを使えば形式がある程度きまったメールの作成を時短できます。

株式会社Contoso
山田　様


いつもお世話になっております。
株式会社てじらぼのじょじおです。

今月分の注文書を送付させていただきます。
宜しくお願い致します

▲今回は上記のような本文にしました。HTML形式のメールとして保存します。

あわせて読みたい

【Outlook】メールテンプレートを使っていつものメールを時短しよう！ なんども送るメールはメールテンプレート（.oft）を利用すると便利です。 【メールテンプレートとは？】 メールテンプレート ▲メールテンプレートとは決まった宛先・お…

▲メールテンプレートの作成方法がわからない方は上の記事の解説をご覧ください。

Sub Insert_Date1()
    '''件名と本文に今日の日付を挿入します。
    '''
    '''
    
    '■2.今日の日付をFormat関数でフォーマットします。
    Dim today As String
    Dim year_and_month As String
    today = Format(Date, "（yyyy/mm/dd）")
    'today = Format(Date, "yyyy-mm-dd")
    year_and_month = Format(Date, "yyyy年mm月")
    
    
    '■３.メールテンプレートを呼び出す処理
    Dim objItem As MailItem
    '下記にメールテンプレートのパスを入力してね。
    Set objItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\注文書の送付.oft")
    

    '■４.件名と本文にフォーマットした日付文字列を置換します。
    objItem.Subject = objItem.Subject & today
    objItem.HTMLBody = Replace(objItem.HTMLBody, "今月", year_and_month)
    'objItem.HTMLBody = Replace(objItem.HTMLBody, "今月分", today)

    objItem.Display '添付ファイル付けたあとにメールテンプレートを表示します。
    'objItem.Send '送信も自動化する場合はこの行のコメントアウトを外してください。ただし送信ボタンは人間が押すことをおススメします。

End Sub

▲ショートカットキーAlt+F11を押下してVBEを開きます。VBEの標準モジュールに上記のマクロをコピペします。

あわせて読みたい

【初心者向け】Outlook マクロ（VBA）を使って時短しよう！ Outlook にもExcelと同じようなマクロ機能が存在することをご存じでしょうか。マクロを使えばメールに関する操作を自動化して、時短やミス防止にも役立ちます。 この記…

▲Outlookマクロを一度を使ったことがない場合、Outlookの設定が必要になる可能性があります。Outlookマクロを使用するための初期設定については上の記事をご覧ください。

ショートカットキーCtrl＋Sを押下してマクロを保存してVBEを閉じます。

ショートカットキーAlt+F8を押下してマクロ一覧を表示します。

▲コピペしたマクロを実行します。

▲日付が自動挿入されたメールが開きますので、内容を確認し必要があれば編集して送信ボタンを押して送信します。

あわせて読みたい

【初心者向け】Outlook VBAでファイル選択ダイアログを使用する方法！ この記事ではOutlookでファイルダイアログを使用する方法について紹介します！ この記事でわかること Outlookマクロでファイルダイアログを使ったマクロを作成するため…

▲OutlookでExcelの参照設定を行います。方法は上の記事で解説しています。言葉で聞くと面倒そうですがやることはとっても簡単な作業です。

Sub Insert_Date2()
    '''件名と本文に今日の日付を挿入します。
    '''ファイル添付ありバージョン
    '''

    '■1.Excelを呼び出す処理（ファイルダイアログを呼び出すため）
    Dim excelObject As Excel.Application
    Set excelObject = New Excel.Application
    excelObject.Visible = False 'Excelは非表示にする
    
    
    '■2.今日の日付をFormat関数でフォーマットします。
    Dim today As String
    Dim year_and_month As String
    today = Format(Date, "（yyyy/mm/dd）")
    'today = Format(Date, "yyyy-mm-dd")
    year_and_month = Format(Date, "yyyy年mm月")
    
    
    '■３.メールテンプレートを呼び出す処理
    Dim objItem As MailItem
    '下記にメールテンプレートのパスを入力してね。
    Set objItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\注文書の送付.oft")
    
    
    '■４.件名と本文にフォーマットした日付文字列を置換します。
    objItem.Subject = objItem.Subject & today
    objItem.HTMLBody = Replace(objItem.HTMLBody, "今月", year_and_month)
    'objItem.HTMLBody = Replace(objItem.HTMLBody, "今月分", today)

    
    
    
    '■5.ファイルダイアログを設定して表示する処理
    Dim fdFolder As Office.FileDialog
    Set fdFolder = excelObject.Application.FileDialog(msoFileDialogFilePicker)

    With fdFolder
        .InitialFileName = "%userprofile%\" '一番最初に開くフォルダのパスを記述します。
        .AllowMultiSelect = True '複数ファイルの選択を許可する場合はTrue・しない場合はFalse
        .Title = "メールに添付するファイルを選択してください（複数選択可）。"
        '選択できるファイルを制限するには下記のようにフィルターを追加してください。
'        .Filters.Add "Excels", "*.xls* ", 1
'        .Filters.Add "Images", "*.png; *.jpg; *.jpeg", 2
'        .Filters.Add "Documents", "*.doc*; *.pdf; *.txt ", 3
'        .Filters.Add "csv", "*.csv", 4
'        .Filters.Add "any", "*.*", 5
'        .FilterIndex = 1 'デフォルトのフィルターをindexで指定します。
        .Show 'ファイルダイアログを表示します。
    End With
    
    
    '■6.選択されたファイルをメールテンプレートに1個ずつ添付する
    Dim SelectedItem
    For Each SelectedItem In fdFolder.SelectedItems
      objItem.Attachments.Add SelectedItem
    Next
    
    objItem.Display '添付ファイル付けたあとにメールテンプレートを表示します。
    'objItem.Send '送信も自動化する場合はこの行のコメントアウトを外してください。ただし送信ボタンは人間が押すことをおススメします。

    Set excelObject = Nothing
End Sub

▲標準モジュールにコピペして保存します。