Bir Outlook E-postasını İletirken Orijinal Göndericinin ve Alıcıların E-posta Adreslerini Otomatik Olarak Kaldırma

Outlook'ta bir e-postayı ilettiğinizde, orijinal gönderenin ve alıcıların e-posta adresleri mesaj gövdesine dahil edilir. Güvenlik açısından, bu adresleri kaldırmanız daha iyi olur. Bu yazıda, Outlook'un bunu otomatik olarak yapmasını nasıl sağlayacağınızı öğreneceksiniz.

Çoğu durumda, bazı e-postaları başka birine yönlendirmeniz gerekir. Varsayılan olarak, orijinal e-postanın başlığı yönlendirme e-postasının gövdesinde görüntülenecektir. Başlık, orijinal gönderen ve alıcıların e-posta adreslerini içerecektir. Bu noktada, güvenlik veya gizlilik için bu e-posta adreslerini kaldırmak isteyebilirsiniz. Yine de, bunları manuel olarak kaldırmak çok sıkıcı. Bu nedenle, burada Outlook'unuzun bu görevi sizin adınıza otomatik olarak gerçekleştirmesini sağlamanız için size rehberlik edeceğiz.

Bir E-postayı İletirken Orijinal Göndericinin ve Alıcıların E-posta Adreslerini Otomatik Olarak Kaldır

1. Öncelikle Outlook'u başlatın.
2. Ardından, VBA editörüne erişmek için “Alt + F11” tuşlarına basın.
3. Ardından, aşağıdaki VBA kodunu “ThisOutlookSession” projesine kopyalayın.

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. Ardından, bu yeni makroyu etkinleştirmek için Outlook programınızı yeniden başlatın.
5. Sonunda, bir çekim yapabilirsiniz:

• Bir e-posta seçin veya açın.
• Ardından, "Yanıtla" grubundaki "İlet" düğmesini tıklayın.
• Son olarak, orijinal gönderen ve alıcıların e-posta adreslerinin silindiği yeni bir yönlendirme e-postası görüntülenecektir.

Outlook Bozulması Durumunda Sakin Olun

Outlook'unuzda herhangi bir sorunla karşılaştığınızda, paniğe kapılabilir, korkabilirsiniz. Outlook bozulması. Yine de, dürüst olmak gerekirse, acele ve endişe, genellikle Outlook'unuzda birçok başka soruna neden olabilir. Bu nedenle, ilgili durumlarda panik yapmayın, sakin olun. Ayrıca, sağlam bir PST düzeltme aracına sahipseniz, örneğin DataNumen Outlook Repair, Outlook sorunlarını çözmek için kullanabilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com