定期的に送るメールについて考える

はじめに

日次、週次、月次…と定期的に送るメールについて
今まではテンプレートを作成して都度値変えて…とやっていたのですが、
もう少し楽にできないかな…と考えているので、その思考プロセスを記録として残します。

（いまのところの）結論

Outlook　VBAを使って
こんな感じのを作りました。
例として毎日送る日報を想定しています。

Sub 日報メールの作成()
  Dim myItem As Outlook.MailItem
  Set myItem = Application.CreateItemFromTemplate("フォーマットファイルパス.oft")
  today = Format(Date, "yyyymmdd")
  Dim attatchNippoPDF As String
  Dim attatchNippoPDFFileName As String
  attatchNippoPDFFileName = "作業日報_" + today + "_なまえ.pdf"
  
  attatchNippoPDF = "添付ファイル保存先" + attatchNippoPDFFileName
  
  myItem.Subject = Replace(myItem.Subject, "%今日%", today)
  myItem.Body = Replace(myItem.Body, "%今日%", today)
  myItem.Display
  If Dir(attatchNippoPDF) <> "" Then
    myItem.Attachments.Add (attatchNippoPDF)
    MsgBox "作成しました！送る前にPDFの内容をもう一度確認しましょう！"
  Else
    MsgBox attatchNippoPDF & vbCrLf & "が存在しません。先に作成しましょう！"
    myItem.Close olDiscard
  End If
    
End Sub

実際にやってみた

前提として、添付で送るPDFを、所定のフォルダに作成しておく必要がありますが、
それさえ作成しておけば、送付メールはこれでいけるかなと思います。
作成していない場合は、「先に作成しましょう！」の旨のダイアログを出して、作成したMsgを保存せずに終了します。

テンプレート

こんな感じのテンプレートを用意しました。
ソースでは本文のエイリアスも置換していますが、
今回は件名部分だけ変わる感じのテンプレートです。

動かしてみた

作成しました！のダイアログが出ました。
件名のエイリアスも、しっかり今日の日付に置換されています。
OKをクリックすると…

添付ファイルもばっちり添付されました。
いえーい。

参考文献

そもそもOutlook VBAの情報が非常に少ないので、
探すの結構苦労しました。
以下の3つを参考にして作りました。

おわりに

毎日使っているメール、コピペでも簡単に作れるじゃん！
と言われたらその通りなんですが、もう少しだけ簡単にしたいな…と思う方に届けば幸いです。

また、もっと楽にできるよ！とか
こういうコード書いたらもっと対応できる幅広がらない？
等ありましたらコメントいただけるととても嬉しいです。
いいねもください（豹変）

ちなみにお師匠様に「定期的に送るメール、テンプレからコピペするのめんどくさくないですか？」って言ったら「えぇ～～～！？」（絶句）と言われました。