Kako automatski ukloniti adrese e-pošte originalnih pošiljatelja i primatelja prilikom prosljeđivanja Outlook e-pošte

Outlook rješenja Septembar 29, 2025

Kada prosljeđujete e-poštu u Outlooku, adrese e-pošte originalnog pošiljatelja i primatelja bit će uključene u tijelo poruke. Trenutno je, radi sigurnosti, bolje ukloniti te adrese. Ovaj članak će vas naučiti kako da Outlook automatski to učini.

U mnogim slučajevima ćete morati proslediti neke e-poruke nekom drugom. Podrazumevano, zaglavlje originalne e-pošte će se prikazati u tijelu e-pošte za prosljeđivanje. A zaglavlje će uključivati adrese e-pošte originalnih pošiljatelja i primatelja. U ovom trenutku, zbog sigurnosti ili privatnosti, možda ćete htjeti ukloniti ove adrese e-pošte. Ipak, previše je zamorno ručno ih ukloniti. Stoga ćemo vas ovdje uputiti kako da vaš Outlook automatski izvrši ovaj zadatak u vaše ime.

Automatsko uklanjanje adresa e-pošte originalnih pošiljatelja i primatelja prilikom prosljeđivanja e-pošte

Za početak, pokrenite Outlook.
Zatim pritisnite tastere "Alt + F11" da biste pristupili VBA editoru.
Zatim kopirajte sljedeći VBA kod u 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

Nakon toga, ponovo pokrenite Outlook program da biste aktivirali ovaj novi makro.
Na kraju, možete snimiti:

Odaberite ili otvorite e-poštu.
Zatim kliknite na dugme „Prosledi“ u grupi „Odgovori“.
Na kraju, prikazat će se nova poruka e-pošte za prosljeđivanje u kojoj su izbrisane adrese e-pošte originalnih pošiljatelja i primatelja.

Smirite se u slučaju oštećenja Outlooka

Kada budete podložni bilo kakvim problemima u svom Outlooku, možete dobiti paniku, uplašiti se Outlook korupcija. Ipak, iskreno, žurba i briga obično mogu dovesti do mnogih drugih problema u vašem Outlooku. Stoga nemojte paničariti, već budite smireni u relevantnim slučajevima. Štaviše, ako ste zadržali robustan PST alat za popravke, npr DataNumen Outlook Repair, možete ga jednostavno koristiti za rješavanje problema s Outlookom.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com