☰

Outlook - 僅在工作/營業時間發送電子郵件

tag-icon • tag-icon email microsoft-outlook
Outlook - 僅在工作/營業時間發送電子郵件

如何設定 Outlook，以便延遲在工作時間和週末撰寫的電子郵件並僅在工作時間發送？

我想讓自己看起來有生產力，但要有效地利用時間。這個問題是不是太難問了？

我可以將單一訊息延遲到任何時間，並使用規則最多 120 分鐘。任何人都可以給我有關創建僅在工作時間發送郵件的自訂規則的任何提示。

先致謝！

答案1

我在 google 上搜尋了一下 vba（Visual Basic for Applications）解決方案，發現了一個：
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 離線。

然後，當您週一返回工作時，上網並發送。

這還有一個額外的副作用，讓你專注於現有的電子郵件債務，而不是讓非工作時間到來的新活動打斷你的思維。

相關內容