Podczas przesyłania dalej wiadomości e-mail w programie Outlook adresy e-mail pierwotnego nadawcy i adresatów zostaną uwzględnione w treści wiadomości. W tej chwili ze względów bezpieczeństwa lepiej usuń te adresy. To post nauczy Cię, jak automatycznie to robić w programie Outlook.
W wielu przypadkach będziesz musiał przekazać kilka e-maili komuś innemu. Domyślnie nagłówek oryginalnej wiadomości e-mail będzie wyświetlany w treści wiadomości e-mail przekazującej. Nagłówek będzie zawierał adresy e-mail pierwotnego nadawcy i odbiorców. W tym momencie ze względów bezpieczeństwa lub prywatności możesz chcieć usunąć te adresy e-mail. Jednak ręczne usuwanie ich jest zbyt uciążliwe. Dlatego tutaj poprowadzimy Cię, aby Twój Outlook automatycznie wykonywał to zadanie w Twoim imieniu.
Automatyczne usuwanie adresów e-mail pierwotnego nadawcy i odbiorców podczas przekazywania wiadomości e-mail
- Jaktart, uruchom Outlooka.
- Następnie naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do edytora VBA.
- Następnie skopiuj następujący kod VBA do projektu „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
- Po tym restart program Outlook, aby aktywować to nowe makro.
- W końcu możesz zrobić zdjęcie:
- Wybierz lub otwórz wiadomość e-mail.
- Następnie kliknij przycisk „Przekaż dalej” w grupie „Odpowiedz”.
- Na koniec zostanie wyświetlona nowa wiadomość e-mail do przekazywania dalej, w której adresy e-mail pierwotnego nadawcy i odbiorców zostały usunięte.
Uspokój się w przypadku korupcji w programie Outlook
Gdy masz jakiekolwiek problemy z Outlookiem, możesz wpaść w panikę i obawiać się Uszkodzenie programu Outlook. Jednak szczerze mówiąc, pośpiech i zmartwienie mogą często skutkować wieloma innymi problemami w programie Outlook. Dlatego nie panikuj, ale zachowaj spokój w odpowiednich przypadkach. Co więcej, jeśli masz solidne narzędzie do naprawy plików PST, takie jak DataNumen Outlook Repair, możesz go po prostu użyć do rozwiązania problemów z programem Outlook.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com