☰

Outlook — отправлять электронные письма только в рабочее время

tag-icon • tag-icon email microsoft-outlook
Outlook — отправлять электронные письма только в рабочее время

Как настроить Outlook так, чтобы письма, которые я пишу после рабочего дня и в выходные дни, задерживались и отправлялись только в рабочее время?

Я хочу выглядеть продуктивным, но использующим свое время эффективно. Это слишком сложно спросить?

Я могу отложить отдельные сообщения на любое время, а с помощью правил — до 120 минут. Может ли кто-нибудь дать мне советы по созданию пользовательского правила для отправки почты только в рабочее время.

Заранее спасибо!

решение1

Я немного погуглил в поисках решения на VBA (Visual Basic for Applications) и нашел вот это:
http://www.vbforums.com/showthread.php?t=574491

Это решение создано для Outlook 2003, но может работать и в более новых версиях Outlook.

Редактировать:
Вот код VBA, который нужно вставить в Outlook.

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 в автономный режим, прежде чем начинать отправлять ответы.

А когда в понедельник вернетесь на работу, зайдите в интернет и отправьте сообщение.

Это также имеет дополнительный побочный эффект: вы можете сосредоточиться на текущей задолженности по электронной почте, не позволяя новым заданиям, поступающим в нерабочее время, отвлекать вас от размышлений.

Связанный контент