皆さん、こんにちは！今日は、OutlookのVBA（Visual Basic for Applications）を使って、メールに日付や時刻を自動的に挿入する方法をお伝えします。これをマスターすれば、毎日の業務がぐっと楽になりますよ。
Outlook VBAとは？
Outlookのイメージ
まず、VBAって何？という方もいらっしゃるかもしれません。簡単に言うと、VBAはMicrosoftのアプリケーションを自動化するためのプログラミング言語です。OutlookでもVBAを使うことで、手作業を減らし、効率化を図ることができます。
Outlook VBAで日付を自動挿入するメリット
毎日、同じようなメールを送る際に、日付を手動で入力するのは面倒ですよね。VBAを使えば、メールの件名や本文に今日の日付を自動で挿入することが可能です。これにより、入力ミスを防ぎ、作業時間を短縮できます。
Outlook VBAの基本設定
まずは、OutlookでVBAを使えるように設定を行いましょう。
1. 開発タブの表示
Outlookのリボンに「開発」タブを表示させる必要があります。
- Outlookを開き、左上の「ファイル」をクリックします。
- 「オプション」を選択します。
- 「リボンのユーザー設定」をクリックし、右側の「開発」にチェックを入れて「OK」をクリックします。
これで「開発」タブが表示されるようになります。
2. マクロのセキュリティ設定
次に、マクロを実行できるようにセキュリティ設定を変更します。
- 「開発」タブをクリックし、「マクロのセキュリティ」を選択します。
- 「マクロの設定」で「警告を表示せずにすべてのマクロを有効にする」を選択し、「OK」をクリックします。
注意この設定はセキュリティリスクを伴う可能性があるため、信頼できるマクロのみを実行するようにしてください。
メールテンプレートの作成
VBAで日付を自動挿入するためのメールテンプレートを作成します。
- Outlookで新しいメールを作成します。
- 件名や本文に、日付を挿入したい場所にプレースホルダーを設定します。例えば、件名に「yyyy/mm/ddの報告」と入力し、本文に「本日（yyyy年mm月dd日）の業務報告です。」と記載します。
- メールを「Outlookテンプレート（*.oft）」形式で保存します。保存場所は後で使用するので覚えておいてください。
VBAコードの作成
それでは、実際にVBAコードを作成していきましょう。
- 「開発」タブをクリックし、「Visual Basic」を選択します。
- 「挿入」メニューから「標準モジュール」を選択します。
- 以下のコードを入力します。
vba
Sub Insert_Todays_Date()
Dim objMail As Outlook.MailItem
Dim strTemplatePath As String
Dim strDate As String
' テンプレートのパスを指定してください
strTemplatePath = "C:\Users\ユーザー名\AppData\Roaming\Microsoft\Templates\日報.oft"
' 今日の日付を取得
strDate = Format(Date, "yyyy/mm/dd")
' テンプレートからメールアイテムを作成
Set objMail = Application.CreateItemFromTemplate(strTemplatePath)
' 件名と本文の日付プレースホルダーを置換
objMail.Subject = Replace(objMail.Subject, "yyyy/mm/dd", strDate)
objMail.Body = Replace(objMail.Body, "yyyy年mm月dd日", Format(Date, "yyyy年mm月dd日"))
' メールを表示
objMail.Display
End Sub
上記のコードでは、指定したテンプレートを基に新しいメールを作成し、今日の日付を挿入しています。テンプレートのパスは、ご自身の環境に合わせて変更してください。
マクロの実行
マクロを実行する方法は以下の通りです。
- Outlookの「開発」タブをクリックし、「マクロ」を選択します。
- 先ほど作成した「Insert_Todays_Date」を選択し、「実行」をクリックします。
これで、今日の日付が自動的に挿入されたメールが表示されます。必要に応じて内容を編集し、送信してください。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
いかがでしたでしょうか。OutlookのVBAを活用することで、日々のメール作成が大幅に効率化されます。最初は少し難しく感じるかもしれませんが、慣れてくるとさまざまな自動化が可能になります。ぜひ挑戦してみてください。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント