☰

Outlook - 勤務時間/営業時間内にのみメールを送信する

tag-icon • tag-icon email microsoft-outlook
Outlook - 勤務時間/営業時間内にのみメールを送信する

営業時間外や週末に書いたメールが遅延され、営業時間内にのみ送信されるように Outlook を設定するにはどうすればよいですか?

時間を効果的に使いながら、生産的であるように見せたいのですが、それは難しい要求でしょうか?

ルールを使用すると、単一のメッセージを任意の時間に最大 120 分遅らせることができます。営業時間内にのみメールを送信するカスタム ルールを作成するためのヒントを教えていただけますか。

前もって感謝します！

答え1

vba (Visual Basic for Applications) ソリューションを Google で少し検索したところ、次のものを見つけました。
http://www.vbforums.com/showthread.php?t=574491

このソリューションは Outlook 2003 用に作成されていますが、新しいバージョンの Outlook でも機能する可能性があります。

編集:
Outlook に入力する必要がある VBA コードは次のとおりです。

Public Sub CheckSendTime()
    Dim obj As Object
    Dim Mail As Outlook.MailItem
    Dim WkDay As String
    Dim MinNow As Integer
    Dim SendHour As Integer
    Dim SendDate As Date
    Dim SendNow As String

'Set Variables
SendDate = Now()
SendHour = Hour(Now)
MinNow = Minute(Now)
WkDay = Weekday(Now)
SendNow = Y

'Check if Before 8am
If SendHour < 8 Then
    SendHour = 8 - SendHour
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = N
End If
'Check if after 7PM
If SendHour > 19 Then           'After 7 PM
    SendHour = 32 - SendHour    'Send a 8 am next day
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = N
End If

'Check if Sunday
If WkDay = 1 Then
    SendDate = DateAdd("d", 1, SendDate)
    SendNow = N
End If

'Check if Saturday
'If WkDay = 7 Then
'    SendDate = DateAdd("d", 2, SendDate)
'    SendNow = N
'End If

'Send the Email
  Set obj = Application.ActiveInspector.CurrentItem
  If TypeOf obj Is Outlook.MailItem Then
    Set Mail = obj
    'Check if we need to delay delivery
    If SendNow = N Then
      Mail.DeferredDeliveryTime = SendDate
    End If
    Mail.Send
  End If

End Sub

時間を調整する必要があるかもしれません。

答え2

週末にバックログに取り組もうとしているだけで、実際にライブメールセッションを行っていない場合は、返信の送信を開始する前に Outlook をオフラインにします。

そして月曜日に仕事に戻ったら、オンラインで送信します。

これには、勤務時間外に届く新しいアクティビティによって思考が中断されるのではなく、既存の電子メールの負債に集中できるという追加の副作用もあります。

関連情報