Wenn Sie verhindern möchten, dass bestimmte E-Mails außerhalb der Arbeitszeit gesendet werden, können Sie die in diesem Artikel beschriebene Methode verwenden. Outlook kann automatisch überprüfen, ob es sich beim Senden bestimmter E-Mails um die Arbeitszeit handelt, und es bis zur Arbeitszeit verzögern.
Manchmal liegt die Zeit, in der Sie eine E-Mail verfassen und senden, nicht innerhalb Ihrer Arbeitszeit. In diesem Fall möchten Sie möglicherweise das Senden dieser E-Mail bis zu den folgenden Arbeitszeiten verschieben. Im Allgemeinen können Sie die native Funktion "Zustellung verzögern" verwenden, um solche E-Mails zu verzögern. Auf diese Weise sollten Sie jedoch jedes Mal die Lieferzeit angeben. Es ist zu lästig. Danach teilen wir Ihnen einen Teil des VBA-Codes mit, mit dem Sie automatisch überprüfen können, ob er sich innerhalb der Arbeitszeit befindet, wenn Sie eine bestimmte E-Mail senden, und den Versand schnell bis zur Arbeitszeit verzögern können.
Verzögern Sie schnell das Senden bestimmter E-Mails bis zur Arbeitszeit
- Starten Sie gleich zu Beginn Ihr Outlook-Programm.
- Im neuen Outlook-Hauptbildschirm können Sie dann die Tasten „Alt + F11“ drücken.
- Als Nächstes erhalten Sie erfolgreich Zugriff auf den Outlook VBA-Editor.
- Danach müssen Sie das Projekt „ThisOutlookSession“ suchen und öffnen.
- Kopieren Sie anschließend den folgenden VBA-Code in dieses Projektfenster.
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
- Später müssen Sie dieser E-Mail ein digitales Zertifikat zuweisen.
- Ändern Sie anschließend Ihre Outlook-Makroeinstellungen, um die signierten Makros zuzulassen.
- Von nun an erhalten Sie jedes Mal, wenn Sie E-Mails senden, die die vordefinierten Kriterien erfüllen, außerhalb der Arbeitszeit eine Eingabeaufforderung wie das folgende Bild:
- Wenn Sie "Ja" auswählen, plant Outlook den Versand bis zur Arbeitszeit.
Retten Sie beschädigte Outlook-Dateien
Outlook hat aufgrund seiner unzähligen Funktionen viel Anerkennung verdient. Es hat jedoch immer noch einen tödlichen Fehler. Das heißt, Outlook ist anfällig für Fehler und Korruption. Daher sollten Sie Ihre Outlook-Dateien regelmäßig sichern. Es kann verhindern, dass Sie schmerzhafte Outlook-Datenverluste erleiden. Darüber hinaus sollten Sie sich ein mächtiges Reparaturwerkzeug zulegen, wie z DataNumen Outlook Repair, Denen Outlook reparieren Probleme innerhalb von Sekunden.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX