Microsoft Outlook bietet die Möglichkeit, eine Lesebestätigung für gesendete E-Mails anzufordern. Während dies manuell für jede E-Mail eingestellt werden kann, kann es zeitaufwendig und ineffizient sein, dies für jede Nachricht einzeln zu tun, insbesondere wenn Sie regelmäßig Lesebestätigungen von bestimmten Empfängern benötigen.
In diesem Fall können wir ein VBA-Skript erstellen, das automatisch eine Lesebestätigung für E-Mails anfordert, wenn sie an bestimmte, von Ihnen definierte Empfänger gesendet werden. Dieser Ansatz spart Zeit und stellt sicher, dass Sie keine wichtigen Nachrichten übersehen, für die eine Lesebestätigung erforderlich ist.
Im Folgenden finden Sie ein einfaches VBA-Skript, das Sie in Ihrem Outlook einsetzen können, um automatisch Lesebestätigungen von bestimmten Empfängern anzufordern. Beachten Sie, dass eine gewisse Erfahrung mit VBA und die Berücksichtigung von Sicherheitsaspekten erforderlich sind, bevor Sie das Skript verwenden.
- Öffnen Sie Outlook und drücken Sie
Alt + F11, um den VBA-Editor zu öffnen. - Fügen Sie ein neues Modul hinzu:
- Klicken Sie im Projektfenster mit der rechten Maustaste auf Ihr Outlook-Projekt (z.B. „Projekt1“).
- Wählen Sie
Einfügen>Modul.
- Kopieren Sie den folgenden VBA-Code in das Modul:
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' Ändern Sie den Ordnernamen auf den gewünschten Ordner
Set Items = objNS.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
Dim Msg As Outlook.MailItem
If TypeName(item) = "MailItem" Then
Set Msg = item
' Ändern Sie die E-Mail-Adresse auf die gewünschte
If Msg.To = "spezifische@emailadresse.com" Then
Msg.ReadReceiptRequested = True
Msg.Save
End If
End If
ExitPoint:
Exit Sub
ErrorHandler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
Resume ExitPoint
End Sub
- Anpassung: Sie müssen den Ordner (z.B.
olFolderSentMailfür gesendete Elemente) und die E-Mail-Adresse im Skript an Ihre Bedürfnisse anpassen. - Speichern Sie das Skript und schließen Sie den VBA-Editor.
- Starten Sie Outlook neu.
Dieses Skript fügt automatisch eine Lesebestätigung hinzu, wenn Sie eine E-Mail an eine bestimmte Adresse senden. Es überwacht den Ordner für gesendete E-Mails und prüft jede gesendete Nachricht. Wenn der Empfänger mit der im Skript angegebenen Adresse übereinstimmt, wird die Lesebestätigung angefordert und die Nachricht gespeichert.
