Outlook VBA ile E-posta Konusundaki Özel Karakterleri Otomatik Olarak Kaldırma

Özel karakterler içeren e-postalar genellikle spam olarak engellenir. Bu nedenle, giden e-postaların konularında özel karakterlerden kaçınmalısınız. Şimdi, bu makalede, Outlook'un e-posta konusundaki özel karakterleri otomatik olarak kaldırmasına izin vermeyi öğreteceğiz.

Bir önceki yazım “Outlook E-posta Konusunda Özel Karakterler Girmeye Çalışıldığında Nasıl Uyarılırsınız?”, e-posta oluştururken özel karakterlerden kaçınmanın bir yolunu tanıttı. Ancak, bazı kullanıcılar bir e-posta göndermek için "Gönder" düğmesini tıkladıklarında Outlook'un konudaki özel karakterleri otomatik olarak kaldırmasını ister. Bu gereksinime odaklanarak, burada başka bir VBA kodu parçası göstereceğiz. Bunu zahmetsiz bir kolaylıkla gerçekleştirebilir.

E-posta Konusundaki Özel Karakterleri Otomatik Olarak Kaldır

1. Öncelikle, Outlook programını başlatın.
2. Ardından, “ başına göre VBA düzenleyicisine erişinOutlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
3. Ardından, VBA düzenleyicide, “Microsoft VBScript Normal İfadeler”i “ referansıyla etkinleştirin.VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir?".
4. Ardından “ThisOutlookSession” projesine aşağıdaki kodu ekleyin.

'Occurs when sending an email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRegExp As RegExp
    Dim strSubject As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       'Get the mail subject
       strSubject = objMail.Subject
 
       'Find special characters via regular expression
       Set objRegExp = New RegExp
       With objRegExp
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^a-zA-Z0-9]"
       End With
 
      'Replace special characters with space
      If objRegExp.test(strSubject) = True Then
         strSubject = objRegExp.Replace(strSubject, " ")
         objMail.Subject = strSubject
      End If
    End If
End Sub

5. Ardından, VBA editörünü kapatın.
6. O zamandan beri, konusu özel karakterler olan bir e-postayı her göndermeye çalıştığınızda, aşağıdaki ekran görüntüsünde gösterildiği gibi Outlook bunları otomatik olarak kaldıracaktır.

Outlook Dosyalarınızın Birkaç Kopyasını Saklayın

Günlük işlerinizde Outlook'unuzla nasıl başa çıkıyorsunuz? Gerçekte, Outlook dosyalarınızın birkaç kopyasını saklamanız şiddetle tavsiye edilir. Ağrılı Outlook veri kaybından kurtulmanıza yardımcı olmayı amaçlamaktadır. Sadece aşağıdaki senaryoyu hayal edin. Örneğin, Outlook'unuz aniden çöker ve açılan dosyalara erişilemez hale gelir. Bu durumda, başka kopyaları sakladıysanız endişelenmenize gerek yok. Ancak, sahip değilseniz, yapmanız gerekir Outlook'u düzelt Hasar görmüş Outlook verilerinizi en iyi şekilde kurtarabilirsiniz. Bu noktada, aşağıdaki gibi bir güç aracından yardım almanız gerekecektir. DataNumen Outlook Repair.

Yazar Tanıtımı:

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