OutlookVBAを使用して現在の日付または時刻を電子メールの件名または本文に自動挿入する方法

Outlookソリューション 2025 年 9 月 29 日

多くのユーザーは、新しい電子メールを作成するときに、現在の日付または時刻を電子メールの件名または本文に挿入することに慣れています。この記事では、それを短時間で達成する方法を説明します。

前のpでost - "Outlookの電子メールの件名に現在の日付を自動追加する方法」、現在の日付または時刻を件名に自動追加する方法を学ぶことができます。しかし、そのpの方法ost 単にメッセージのカスタム形式を作成することです。したがって、つまり、件名に現在の日付または時刻を使用して新しい電子メールを作成するたびに、通常のように新しい電子メールを作成するのではなく、カスタムフォームを選択する必要があります。明らかに、それはかなり面倒です。

実際、Outlookは、日付または時刻を挿入するためのネイティブフィールドをすでに提供しています。また、Outlook VBAを適用して、現在の日付または時刻を新しい電子メールの本文または件名に自動的に挿入することもできます。どの方法を選択するかは、日付または時刻を挿入する必要がある頻度によって異なります。

「日付と時刻」フィールドで手動で挿入

にtarで、Outlookを起動します。
次に、[ホーム]タブの[新規]グループにある[新しいメール]ボタンをクリックして、新しいメッセージを作成します。
続いて、[新しいメッセージ]ウィンドウで、電子メールの本文をクリックして[挿入]タブに移動できます。
次に、「テキスト」グループの「日付と時刻」フィールドを見つけてクリックします。
その後、新しいダイアログボックスが表示されます。利用可能なフォーマットを選択し、「OK」ボタンをクリックしてください。
メッセージウィンドウに戻ると、電子メールの本文に現在の日付または時刻が表示されます。既定では、Outlookでは[日付と時刻]フィールドを件名に適用することはできません。
したがって、最後に、件名に日付または時刻を挿入する場合は、本文からコピーして、手動で件名に貼り付ける必要があります。

現在の日付または時刻を挿入する必要がほとんどない場合は、この方法をお勧めします。ただし、頻繁にまたは常に挿入する必要がある場合は、次のVBAコードを使用して自動的に挿入することをお勧めします。

OutlookVBAでの自動挿入

まず、「Alt + F11」キーボタンを押して、VBAエディターにアクセスします。
次に、左側の「ThisOutlookSession」プロジェクトをダブルクリックして開きます。
次に、次のコードをコピーします。

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

メモ: 上記のコードは、現在の時刻を件名と本文に自動的に挿入するように機能します。現在の日付を挿入する場合は、「objMail_Open」サブと次の：

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

その後、通常どおりこのコードに署名します。
後で、解像度tartマクロをアクティブ化するためのOutlook。
最後に、試してみることができます。

「新着メール」ボタンを直接クリックして、新着メールを開きます。
次の画像のように、新しい電子メールの自動には、件名と本文に現在の日付または時刻が含まれていることがわかります。

不明なメールをすぐに信用しないでください

迷惑メールを受け取ったことがあるはずです。通常、どのように対処しますか？ウイルスが含まれている可能性があるため、この種のメールの添付ファイルをダウンロードしたり、リンクを開いたりすることはお勧めできません。 Outlookデータが感染すると、受信トレイ修復ツールであるScanpst.exeは効果を発揮しません。この場合、より経験豊富な人に頼るしかありません PST修正などのツール DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損した SQL Server と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com