コピペで簡単に業務効率化！メールに今日の日付を自動で入力する方法【Outlook VBA】

朝日葵菜（Asahi Kina）

2021年10月14日 00:53

毎日の日報や報告書っていちいち書くのがめんどくさいですよね。「この作業がなかったらもっと早く帰れるのに…」なんて思ったことはありませんか？

そこで今回は、メールに今日の日付を自動で入力してくれるマクロを紹介していきたいと思います。

今回は日報を例に作成していきますが、さまざまなパターンの日付の表記にも対応できるようなマクロにしてみました。

コピペするだけで簡単にマクロが作成できるので、プログラミング初心者の方もぜひ挑戦してみてください。

01.開発タブの表示【事前準備】

まずはマクロ作成の基本、「開発」タブを表示させていきます。

１）「ファイル」を開いて「オプション」を選択します。

２）「リボンのユーザー設定」を選択し、「開発」にチェックを入れて「OK」をクリックします。

これで「開発」タブが表示されるようになりました。

02.メールテンプレートの作成

ここではメールのテンプレートを作成していきます。

１）普段通りに「新しいメール」から、作成したいメールのテンプレートを作成します。

２）作成したテンプレートを以下の通りに変更してください。

①署名をデフォルトで設定している場合は署名を削除
②日付を以下の対応する文字列に変更
　西暦　 →　　yyyy
　月　　　→　　mm
　日にち　→　　dd
　曜日　　→　　(w)

３）「ファイル」をクリックして「名前をつけて保存」を選択します。

４）「ファイル名」を好きな名前に設定して、「ファイルの種類」を「Outlookテンプレート(*.oft)」に変更してから「保存」をクリックします。

⚠️ファイルのパスはマクロを作成する際に使用します。保存した場所を忘れないようにしてください。

これでメールのテンプレートの作成が完了しました。

03.マクロの作成

続いてマクロを作成していきます。

１）「開発」タブを開いて、「マクロ」内の「マクロ」をクリックしてください。

２）「マクロ名」にマクロの内容が分かりやすい名前を入力して「作成」をクリックします。

３）「Microsoft Visual Basic for Applications」の画面が開きます。

４）以下のコードをメモ帳か何かにコピペして、上から３行目の「”★フォルダパス★\テンプレート名.oft”」の部分をメールのテンプレートを格納したフォルダパスとテンプレート名に変更してください。

🌟エクスプローラーでメールのテンプレートを選択した状態で「ホーム」タブ内の「パスのコピー」をクリックすることで一瞬でファイル名までコピーできます。

Dim Temp As Outlook.MailItem
Dim WeekD As String

'テンプレートを開く
   Set Temp = Application.CreateItemFromTemplate("★フォルダパス★\テンプレート名.oft")
   Temp.Display
'今日の曜日を取得
   WeekD = WeekdayName(WeekDay(Date))
   
'曜日を削除
   WeekD = Replace(WeekD, "曜日", "")
'件名を今日の日付に変更
   Temp.Subject = Replace(Temp.Subject, "yyyy", Year(Now))
   Temp.Subject = Replace(Temp.Subject, "mm", Month(Now))
   Temp.Subject = Replace(Temp.Subject, "dd", Day(Now))
   Temp.Subject = Replace(Temp.Subject, "(w)", "(" + WeekD + ")")
   
'本文を今日の日付に変更
   Temp.Body = Replace(Temp.Body, "yyyy", Year(Now))
   Temp.Body = Replace(Temp.Body, "mm", Month(Now))
   Temp.Body = Replace(Temp.Body, "dd", Day(Now))
   Temp.Body = Replace(Temp.Body, "(w)", "(" + WeekD + ")")