Outlookの営業時間まで特定の電子メールの送信をすばやく遅らせる方法

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

勤務時間外に特定のメールを送信しないようにする必要がある場合は、この記事に示されている方法を利用できます。特定の電子メールを送信するときにOutlookに勤務時間内かどうかを自動チェックさせ、勤務時間まで遅らせることができます。

時々、あなたがメールを作成して送信する時間はあなたの労働時間内ではありません。この場合、次の勤務時間までこのメールの送信を遅らせることをお勧めします。通常、ネイティブ機能の「配信遅延」を使用して、このような電子メールを遅延させることができます。ただし、そのため、毎回納期を指定する必要があります。面倒すぎる。以下、VBAコードを共有します。これにより、特定のメールを送信するときに営業時間内であるかどうかを自動チェックし、営業時間まで送信を迅速に遅らせることができます。

特定のメールの送信を勤務時間まですばやく遅らせる

最初に、Outlookプログラムを起動します。
次に、新しいOutlookのメイン画面で、「Alt + F11」キーを押すことができます。
次に、OutlookVBAエディターに正常にアクセスできるようになります。
その後、「ThisOutlookSession」プロジェクトを見つけて開く必要があります。
続いて、次のVBAコードをこのプロジェクトウィンドウにコピーします。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim NewSendTime As String
    Dim bDelayMail As Boolean
    Dim nPrompt As Integer
 
    bDelayMail = True
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Work on specific emails only
       'You can change the conditions as per your needs
       If objMail.Recipients.Item(1).Address = "boss@datanumen.com" Then
 
          Select Case Weekday(Date, vbMonday)
                 'Delay 2 days if today is Saturday
                 Case 6
                      NewSendTime = (Date + 2) & " 09:00:00"
                 'Delay 1 days if today is Saturday
                 Case 7
                      NewSendTime = (Date + 1) & " 09:00:00"
                 Case Else
                      If DatePart("h", Now) < 9 Then
                         'Delay to 9 o'clock if now is too early
                         NewSendTime = Date & " 09:00:00"
                      ElseIf DatePart("h", Now) > 18 Then
                         Select Case Weekday(Date, vbMonday)
                                'Delay 3 days if today is Friday and now is over 6 PM
                                Case 5
                                     NewSendTime = (Date + 3) & " 09:00:00"
                                'Delay to 9 o'clock if now is before 6 PM
                                Case Else
                                     NewSendTime = (Date + 1) & " 09:00:00"
                         End Select
                      Else
                         bDelayMail = False
                      End If
            End Select
 
            If bDelayMail = True And objMail.DeferredDeliveryTime = "1/1/4501" Then
               'Ask if to delay sending this email
               nPrompt = MsgBox("Outside Working Hours:" & vbCrLf & "Do you want to delay this email until " & NewSendTime & "?", vbYesNo + vbExclamation, "Delay Email")
 
               If nPrompt = vbYes Then
                  objMail.DeferredDeliveryTime = NewSendTime
               Else
                  objMail.DeferredDeliveryTime = "1/1/4501"
               End If
           End If
       End If
    End If
End Sub

後で、この電子メールにデジタル証明書を割り当てる必要があります。
次に、Outlookのマクロ設定を変更して、署名付きマクロを許可します。
これ以降、事前定義された条件を満たすメールを送信するたびに、勤務時間外の場合は、次の画像のようなプロンプトが表示されます。
「はい」を選択すると、Outlookは勤務時間まで送信されるようにスケジュールします。

破損したOutlookファイルを救助する

Outlookは、その無数の機能により、多くの賞賛を得ています。しかし、それでも致命的な欠陥があります。つまり、Outlookはエラーや破損を起こしやすいということです。したがって、Outlookファイルを定期的にバックアップする必要があります。それはあなたが苦痛なOutlookデータの損失に苦しむのを防ぐことができます。さらに、次のような強力な修復ツールを入手したほうがよいでしょう。 DataNumen Outlook Repair、そのことができます Outlookを修復する数秒以内に発行されます。

著者紹介：

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