Wenn Sie in Outlook eine E-Mail weiterleiten, werden die E-Mail-Adressen des ursprünglichen Absenders und der Empfänger in den Nachrichtentext eingefügt. Aus Sicherheitsgründen sollten Sie diese Adressen entfernen. In diesem Beitrag erfahren Sie, wie Sie Outlook dies automatisch erledigen lassen.
In vielen Fällen müssen Sie einige E-Mails an eine andere Person weiterleiten. Standardmäßig wird der Header der ursprünglichen E-Mail im Text der Weiterleitungs-E-Mail angezeigt. Der Header enthält die E-Mail-Adressen des ursprünglichen Absenders und Empfängers. Zu diesem Zeitpunkt möchten Sie aus Sicherheits- oder Datenschutzgründen möglicherweise diese E-Mail-Adressen entfernen. Es ist jedoch zu mühsam, sie manuell zu entfernen. Daher werden wir Sie hier anleiten, damit Outlook diese Aufgabe automatisch für Sie ausführt.
Entfernen Sie beim Weiterleiten einer E-Mail automatisch die E-Mail-Adressen des ursprünglichen Absenders und Empfängers
- Starten Sie zunächst Outlook.
- Drücken Sie dann die Tasten „Alt + F11“, um auf den VBA-Editor zuzugreifen.
- Kopieren Sie als Nächstes den folgenden VBA-Code in das Projekt "ThisOutlookSession".
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_Activate()
On Error Resume Next
If objExplorer.Selection.Item(1).Class = olMail Then
Set objMail = objExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMail = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
Dim objRegExp As Object
Dim strHTMLBody As String
Forward.Display
strHTMLBody = Forward.HTMLBody
'Find email addresses in the body via Regular Expression
Set objRegExp = CreateObject("vbscript.RegExp")
With objRegExp
.Pattern = "(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|""(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*"")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])"
.IgnoreCase = True
.Global = True
End With
'Remove email addresses
If objRegExp.Test(strHTMLBody) Then
Set objFoundResults = objRegExp.Execute(strHTMLBody)
For i = 1 To objFoundResults.Count
Forward.HTMLBody = Replace(Forward.HTMLBody, objFoundResults.Item(i - 1).Value, "")
Next
End If
'Remove useless characters
Forward.HTMLBody = Replace(Forward.HTMLBody, "[mailto:]", "")
Forward.HTMLBody = Replace(Forward.HTMLBody, "()", "")
End Sub
- Starten Sie anschließend Ihr Outlook-Programm neu, um dieses neue Makro zu aktivieren.
- Schließlich können Sie eine Aufnahme machen:
- Wählen Sie eine E-Mail aus oder öffnen Sie sie.
- Klicken Sie dann in der Gruppe "Antworten" auf die Schaltfläche "Weiterleiten".
- Zuletzt wird eine neue Weiterleitungs-E-Mail angezeigt, in der die E-Mail-Adressen des ursprünglichen Absenders und Empfängers gelöscht wurden.
Beruhigen Sie sich bei Outlook-Korruption
Wenn Sie Probleme in Ihrem Outlook haben, können Sie aus Angst in Panik geraten Outlook-Korruption. Um ehrlich zu sein, können Eile und Sorgen häufig zu vielen anderen Problemen in Ihrem Outlook führen. Keine Panik, sondern in relevanten Fällen ruhig bleiben. Was mehr ist, wenn Sie ein robustes PST-Fix-Tool wie z DataNumen Outlook Repairkönnen Sie es einfach verwenden, um Outlook-Probleme zu lösen.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Fix SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX