Jak automaticky odstranit některé speciální znaky z řádku předmětu při odesílání e-mailů?

Autor: Xiaoyang Naposledy změněno: 2018-08-20

Při zadávání předmětu do řádku předmětu při odesílání e-mailů v Outlooku můžete náhodně vložit některé speciální znaky, takže je musíte tyto speciální znaky postupně odstraňovat. V tomto článku budu hovořit o tom, jak automaticky odstranit všechny tyto speciální znaky z předmětu při odesílání e-mailů.

Při odesílání e-mailů s kódem VBA automaticky odstraňte všechny speciální znaky z řádku předmětu

Při odesílání e-mailů s kódem VBA automaticky odstraňte všechny speciální znaky z řádku předmětu

Automatické odstraňování speciálních znaků z řádku předmětu při odesílání e-mailů, následující kód VBA vám může udělat laskavost. Udělejte prosím toto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automaticky odebrat speciální znaky z řádku předmětu

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

doc odstranit speciální znak 1

3. A pak, stále v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Pravidelné výrazy Microsoft VBAScript 1.0 možnost z nabídky Dostupné reference seznam, viz screenshot:

doc odstranit speciální znak 2

4. Pak klikněte na tlačítko OK zavřít dialogové okno, nyní, když odešlete zprávu s některými speciálními znaky v řádku předmětu, bude automaticky odstraněna po odeslání. Viz screenshot:

doc odstranit speciální znak 3