In diesem Artikel wird ein Teil des VBA-Codes freigegeben, mit dem Sie die Zustellung an ein bestimmtes Mitglied schnell verzögern können, wenn Sie eine E-Mail an eine Kontaktgruppe in Outlook senden.
Wenn Sie beim Verfassen und Senden einer Outlook-E-Mail an eine Kontaktgruppe das Senden dieser E-Mail an ein bestimmtes Mitglied dieser Gruppe verzögern möchten, können Sie die folgende Methode verwenden, um sie zu realisieren. Die Kontaktgruppe wird automatisch erweitert und es wird dieselbe E-Mail generiert, die für das jeweilige Mitglied verzögert wird. Lesen Sie jetzt weiter, um die ausführlichen Schritte zu erhalten.

Verzögern Sie die Zustellung an ein bestimmtes Mitglied, wenn Sie eine E-Mail an eine Kontaktgruppe senden
- Zu starStarten Sie mit mit Ihr Outlook-Programm.
- Dann sollten Sie im neuen Outlook-Hauptfenster die Tasten „Alt + F11“ drücken.
- Anschließend erhalten Sie Zugriff auf den Outlook VBA-Editor, in den Sie ein neues Modul einfügen oder einfach ein Modul öffnen müssen, das nicht verwendet wird.
- Danach können Sie den folgenden VBA-Code kopieren und in dieses Modul einfügen.
Sub DelayEmail_aSpecificMemberinContactGroup()
Dim objCurrentMail As MailItem
Dim objRecipients As Recipients
Dim ContactGroupFound As Boolean
Dim i, n As Long
Dim objDelayedMail As MailItem
Set objCurrentMail = ActiveInspector.CurrentItem
ContactGroupFound = True
While ContactGroupFound = True
Set objRecipients = objCurrentMail.Recipients
ContactGroupFound = False
'Expand the contact group in "To" field
For i = objRecipients.count To 1 Step -1
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
ContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
Next i
objRecipients.ResolveAll
Wend
'Find the specific memebr in the recipients
For Each objRecipient In objRecipients
If objRecipient.Address = "shelly@datanumen.com" Then
'Create a same email
Set objDelayedMail = objCurrentMail.Copy
With objDelayedMail
.To = ""
.Recipients.Add objRecipient.Address
.Recipients.ResolveAll
'Change the deferred delivery time as per your needs
.DeferredDeliveryTime = (Date + 1) & " 09:00:00"
.Send
End With
objRecipient.Delete
End If
Next
objCurrentMail.Send
End Sub
- Für einen späteren bequemen Zugriff sollten Sie das neu hinzugefügte Makro zur Symbolleiste für den Schnellzugriff im Nachrichtenfenster hinzufügen.
- Und dann sollten Sie Ihre Outlook-Makroeinstellungen ändern, um alle Makros in den „Makroeinstellungen“ von „Trust Center“ zu aktivieren.
- Schließlich können Sie einen Schuss machen.
- Verfassen Sie zunächst wie gewohnt eine solche E-Mail an die Kontaktgruppe.
- Anschließend können Sie in der Symbolleiste für den Schnellzugriff auf die neue Makroschaltfläche klicken.
- Sofort wird dieselbe E-Mail erstellt und so eingestellt, dass sie zum geplanten Zeitpunkt an das jeweilige Mitglied gesendet wird.
- In der Zwischenzeit wird die aktuelle E-Mail an die übrigen Mitglieder der Kontaktgruppe gesendet.
Halten Sie Ausschau nach allen Risiken rund um Ihren Ausblick
Im ContemporarIn dieser Zeit sind Viren und Spyware immer häufiger anzutreffen. Es wird normalerweise als harmlose E-Mail getarnt. Daher sollten Sie auf verschiedene Risiken in Ihrem Outlook achten, z. B. auf schädliche E-Mails. Sie müssen auf die E-Mails von unbekannten Kontakten achten. Auch um Outlook reparieren Sobald Ihre PST-Datei von Malware angegriffen wird, müssen Sie ein erfahrenes Reparatur-Tool vorbereiten, wie z DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX
