Hur tar jag bort vissa specialtecken automatiskt från ämnesraden när du skickar e-post?

Författare: Xiaoyang Senast ändrad: 2024-08-21

Du kan infoga vissa specialtecken av misstag när du skriver ämne i ämnesraden när du skickar e-post i Outlook, så du måste ta bort dessa specialtecken en efter en. I den här artikeln kommer jag att prata om hur man tar bort alla dessa specialtecken automatiskt från ämnet när man skickar e-post.

Ta bort alla specialtecken från ämnesraden automatiskt när du skickar e-postmeddelanden med VBA-kod

Ta bort alla specialtecken från ämnesraden automatiskt när du skickar e-postmeddelanden med VBA-kod

Ta bort specialtecken automatiskt från ämnesraden när du skickar e-post, följande VBA-kod kan göra dig en tjänst. Gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Ta bort specialtecken automatiskt från ämnesraden

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. Och sedan, fortfarande i Microsoft Visual Basic för applikationer fönstret klickar verktyg > Referensprojekt för att gå till Referenser-projekt1 dialogrutan och kontrollera Microsoft VBAScript Regular Expressions 1.0 alternativ från Tillgängliga referenser listruta, se skärmdump:

4. Klicka sedan OK för att stänga dialogen, när du skickar ett meddelande med några specialtecken i ämnesraden, tas det bort automatiskt efter att det har skickats. Se skärmdump: