Outlook имэйлийг дамжуулахдаа анхны илгээгч ба хүлээн авагчдын имэйл хаягийг хэрхэн автоматаар устгах вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Та Outlook дээр имэйл дамжуулах үед анхны илгээгч болон хүлээн авагчдын имэйл хаягууд мессежийн үндсэн хэсэгт багтах болно. Одоогоор аюулгүй байдлын үүднээс эдгээр хаягийг устгах нь дээр. Энэ бичлэг нь танд Outlook-д үүнийг автоматаар хийхийг хэрхэн зөвшөөрөхийг заах болно.

Ихэнх тохиолдолд та зарим имэйлийг өөр хүнд дамжуулах шаардлагатай болно. Анхдагч байдлаар, анхны имэйлийн толгой нь дамжуулах имэйлийн үндсэн хэсэгт харагдах болно. Толгой хэсэгт анхны илгээгч ба хүлээн авагчдын имэйл хаягууд орно. Энэ үед аюулгүй байдал, нууцлалын үүднээс эдгээр имэйл хаягийг устгахыг хүсч магадгүй юм. Гэсэн хэдий ч тэдгээрийг гараар арилгах нь хэтэрхий уйтгартай юм. Тиймээс бид таны өмнөөс энэ даалгаврыг автоматаар гүйцэтгэхэд Outlook-ыг бий болгоход бид танд зааварчилгаа өгөх болно.

Имэйл дамжуулахдаа анхны илгээгч ба хүлээн авагчдын имэйл хаягийг автоматаар устгана уу

Эхлэхийн тулд Outlook-г ажиллуулна уу.
VBA засварлагч руу нэвтрэхийн тулд "Alt + F11" товчийг дарна уу.
Дараа нь дараахь VBA кодыг “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

Үүний дараа энэ шинэ макрог идэвхжүүлэхийн тулд Outlook програмаа дахин эхлүүлнэ үү.
Эцэст нь та буудаж болно:

Имэйл сонгох эсвэл нээх.
Дараа нь "Хариулах" бүлгийн "Урагшлуулах" товчийг дарна уу.
Эцэст нь анхны илгээгч ба хүлээн авагчдын имэйл хаягийг устгасан шинэ дамжуулах имэйлийг харуулах болно.

Төлөвлөсөн авлига гарсан тохиолдолд тайвшир

Таны Outlook-т ямар нэгэн асуудал тулгарахад та айж сандрах болно Авлигын төлөв байдал. Гэсэн хэдий ч шударга байдал, яарах, санаа зовох нь таны Outlook-т бусад олон асуудлуудыг үүсгэдэг. Тиймээс бүү сандар, харин холбогдох тохиолдолд тайван байгаарай. Үүнээс гадна, хэрэв та PST засах хэрэгслийг найдвартай хадгалсан бол DataNumen Outlook Repair, та үүнийг Outlook-ийн асуудлыг шийдэхийн тулд ашиглах боломжтой.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com