Kaip automatiškai pašalinti pradinio siuntėjo ir gavėjų el. pašto adresus persiunčiant „Outlook“ el

Kai persiunčiate el. laišką „Outlook“, pradinio siuntėjo ir gavėjų el. pašto adresai bus įtraukti į pranešimo turinį. Šiuo metu saugumo sumetimais geriau šiuos adresus pašalinti. Šis post išmokys jus leisti „Outlook auto“ tai padaryti.

Daugeliu atvejų kai kuriuos el. laiškus turėsite persiųsti kam nors kitam. Pagal numatytuosius nustatymus pradinio el. laiško antraštė bus rodoma persiuntimo el. laiško tekste. O antraštėje bus pirminio siuntėjo ir gavėjų el. pašto adresai. Šiuo metu saugumo ar privatumo sumetimais galbūt norėsite pašalinti šiuos el. pašto adresus. Tačiau juos pašalinti rankiniu būdu yra per daug nuobodu. Todėl čia mes jums padėsime, kad jūsų „Outlook“ automatiškai atliktų šią užduotį jūsų vardu.

Persiunčiant el. laišką automatiškai pašalinkite pradinio siuntėjo ir gavėjų el. pašto adresus

1. Dėl astart, paleiskite „Outlook“.
2. Tada paspauskite „Alt + F11“ klavišų mygtukus, kad pasiektumėte VBA redaktorių.
3. Tada nukopijuokite šį VBA kodą į 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

4. Po to atstart savo „Outlook“ programą, kad suaktyvintumėte šią naują makrokomandą.
5. Galiausiai galite nufotografuoti:

• Pasirinkite arba atidarykite el. laišką.
• Tada grupėje „Atsakyti“ spustelėkite mygtuką „Persiųsti“.
• Galiausiai bus rodomas naujas persiuntimo el. laiškas, kuriame buvo ištrinti pradinio siuntėjo ir gavėjų el. pašto adresai.

Nusiraminkite „Outlook“ korupcijos atveju

Kai susiduriate su bet kokiomis „Outlook“ problemomis, galite sunerimti ir bijoti Outlook korupcija. Tačiau sąžiningai kalbant, skubėjimas ir nerimas paprastai gali sukelti daug kitų „Outlook“ problemų. Todėl nepanikuokite, o atitinkamais atvejais išlikite ramūs. Be to, jei turite patikimą PST taisymo įrankį, pvz DataNumen Outlook Repair, galite tiesiog panaudoti jį norėdami išspręsti „Outlook“ problemas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com