ひとことで

会社への勤怠連絡用に使えるテンプレートを作ってみました。

概要

勤怠連絡のテンプレートは決まっているので、テンプレート自体は作成していたのですが...
件名や本文に入れていた日付は毎回、手直ししていました。
この日付を編集するのが煩わしかったので、本日日付を自動設定してくれるようなものを作成しました。

環境

Windows10
Outlook

手順

メールテンプレート作成
マクロ作成
動作確認
使いやすくする（おまけ）

1.メールテンプレート作成

メールを作成して、Outlookテンプレート形式(*.oft)で保存。
件名のyyyy/mm/dd と本文のmm、dd　部分を置き換えます。
[ファイル] > [名前を付けて保存]
テンプレートファイルの保存場所はマクロ作成時に使うので控えておく。
デフォルトはC:\Users\$ユーザ名\AppData\Roaming\Microsoft\Templates配下

保存場所はマクロ作成時に使用するので控えておく。

2.マクロ作成

OutlookのVisual Basicを起動
[開発] > [Visual Basic]

(リボンに開発タブがない場合リボンのユーザ設定より追加する。)

開発タブ追加手順

リボンのユーザ設定はリボンを右クリック または [ファイル] > [オプション]から遷移可能。
リボンのユーザ設定の右側の開発チェックボックスを設定済みにする。

Project1.ThisOutlookSessionに以下を入力して、保存。

Project1.ThisOutlookSession

Sub 遅刻連絡()
    Dim MyItem As Outlook.MailItem

    Set MyItem = Application.CreateItemFromTemplate("$テンプレート保存場所\【勤怠連絡】山田花子　yyyymmdd 遅刻.oft")
    MyItem.Display
    ' 件名
    ' yyyy/mm/dd形式
    MyItem.Subject = Replace(MyItem.Subject, "yyyy/mm/dd", FormatDateTime(Now, vbShortDate))
    ' 本文
    ' mm
    MyItem.Body = Replace(MyItem.Body, "mm", Month(Now))
    ' dd
    MyItem.Body = Replace(MyItem.Body, "dd", Day(Now))
End Sub

3.動作確認

[開発] > [マクロ] > [作成したマクロ]で実行。

↓できました

4.使いやすくする（おまけ）

いちいち[開発] > [マクロ]から実行するのが面倒なので、[ホーム]タブの中に追加してみる。
リボンのユーザ設定より、
①
左側：[コマンドの選択]ドロップダウンよりマクロを選択
右側：ホーム(メール)配下に新しいグループを追加

②
左側で作成したマクロを選択し、右側で作成したグループに追加する

③
アイコン・表示名を名前の変更より変える（変えなくてもいい）

④
[OK]でリボンのユーザ設定を閉じる
　
遅刻します　　　　　←いました