☰

Outlook - E-Mails nur während der Arbeitszeit versenden

tag-icon • tag-icon email microsoft-outlook
Outlook - E-Mails nur während der Arbeitszeit versenden

Wie stelle ich mein Outlook so ein, dass E-Mails, die ich nach Feierabend und am Wochenende schreibe, verzögert und nur während der Geschäftszeiten versendet werden?

Ich möchte produktiv wirken, aber meine Zeit effektiv nutzen. Ist das zu schwer verlangt?

Ich kann einzelne Nachrichten jederzeit und mithilfe von Regeln um bis zu 120 Minuten verzögern. Kann mir jemand Tipps zum Erstellen einer benutzerdefinierten Regel geben, um E-Mails nur während der Geschäftszeiten zu senden?

Dank im Voraus!

Antwort1

Ich habe ein bisschen nach einer VBA-Lösung (Visual Basic for Applications) gegoogelt und diese gefunden:
http://www.vbforums.com/showthread.php?t=574491

Diese Lösung ist für Outlook 2003 gedacht, funktioniert aber möglicherweise auch mit neueren Versionen von Outlook.

Bearbeiten:
Hier ist der VBA-Code, der in Outlook eingefügt werden muss.

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

Eventuell musst du die Uhrzeit anpassen.

Antwort2

Wenn Sie am Wochenende nur Ihren Rückstand abarbeiten möchten und nicht gerade eine Live-Mail-Sitzung haben, schalten Sie Outlook offline, bevor Sie mit dem Senden Ihrer Antworten beginnen.

Wenn Sie dann am Montag wieder zur Arbeit kommen, gehen Sie online und senden Sie die Nachricht.

Dies hat außerdem den zusätzlichen Nebeneffekt, dass Sie sich auf Ihre bestehenden E-Mail-Schulden konzentrieren können, anstatt sich durch neue Aktivitäten, die außerhalb der Arbeitszeiten eintreffen, beim Denken ablenken zu lassen.

verwandte Informationen