E-posta gönderirken konu satırındaki bazı özel karakterleri otomatik olarak nasıl kaldırabilirim?

Outlook ile e-posta gönderirken konu satırına yanlışlıkla bazı özel karakterler eklemiş olabilirsiniz; bu durumda bu karakterleri tek tek manuel olarak silmek zorunda kalırsınız. Bu makalede, e-posta gönderirken konudaki tüm bu özel karakterleri otomatik olarak nasıl kaldırabileceğinizi göstereceğim.

E-posta gönderirken konu satırından tüm özel karakterleri VBA koduyla otomatik olarak kaldırma

---

E-posta gönderirken konu satırından tüm özel karakterleri VBA koduyla otomatik olarak kaldırma

E-posta gönderirken konu satırındaki özel karakterleri otomatik olarak kaldırmak için aşağıdaki VBA kodundan yararlanabilirsiniz. Lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2.Microsoft Visual Basic for Applicationspenceresinde, modu açmak için sol bölmedeki ThisOutlookSessionöğesine çift tıklayın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.Project1(VbaProject.OTM)

VBA kodu: Konu satırından özel karakterleri otomatik olarak kaldırma

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As Outlook.MailItem
    Dim xRegExp As RegExp
    Dim xSubject As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSubject = xMailItem.Subject
    Set xRegExp = CreateObject("VBScript.RegExp")
    With xRegExp
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^a-zA-Z0-9\u4e00-\u9fa5]"
    End With
    If xRegExp.test(xSubject) = False Then Exit Sub
    xSubject = xRegExp.Replace(xSubject, "-")
    xMailItem.Subject = GetTargetStr(xSubject)
    Set RegExp = Nothing
End Sub
Function GetTargetStr(Str As String)
    Dim xS, xStr As String
    Dim i As Integer
    Dim xIsFirst As Boolean
    xIsFirst = True
    xStr = ""
    For i = 1 To Len(Str)
        xS = Mid(Str, i, 1)
        If xS = "-" Then
            If xIsFirst Then
                xS = " "
                xIsFirst = False
            Else
                xS = ""
            End If
        Else
            xIsFirst = True
        End If
        xStr = xStr + xS
    Next i
    GetTargetStr = xStr
End Function

3. Ardından, hâlâ Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Başvurular seçeneğine tıklayarak Başvurular - Project1 iletişim kutusuna gidin ve Microsoft VBAScript Regular Expressions 1,0 seçeneğini Kullanılabilir Başvurular listesinden işaretleyin; ekran görüntüsüne bakın:

4. Ardından, Tamam düğmesine tıklayarak iletişim kutusunu kapatın. Artık konu satırında özel karakterler içeren bir ileti gönderdiğinizde, bu karakterler gönderimden sonra otomatik olarak kaldırılacaktır. Ekran görüntüsüne bakın: