Sut i dynnu rhai cymeriadau arbennig oddi ar linell pwnc wrth anfon e-byst?

Gallwch fewnosod rhai nodau arbennig yn ddamweiniol pan fyddwch chi'n teipio pwnc yn y llinell bwnc wrth anfon e-bost yn Outlook, felly mae angen i chi gael gwared ar y cymeriadau arbennig hyn fesul un. Yn yr erthygl hon, byddaf yn siarad am sut i gael gwared ar yr holl gymeriadau arbennig hyn yn awtomatig o'r pwnc wrth anfon e-byst.

Tynnwch yr holl nodau arbennig oddi ar linell y pwnc yn awtomatig wrth anfon e-byst â chod VBA

Tynnwch yr holl nodau arbennig oddi ar linell y pwnc yn awtomatig wrth anfon e-byst â chod VBA

Tynnwch y nodau arbennig oddi ar linell y pwnc wrth anfon e-byst, gall y cod VBA canlynol ffafrio chi. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Auto tynnu cymeriadau arbennig o'r llinell pwnc

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 tynnu torgoch arbennig 1

3. Ac yna, yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect1 blwch deialog, a gwirio Mynegiadau Rheolaidd Microsoft VBAScript 1.0 opsiwn gan y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:

doc tynnu torgoch arbennig 2

4. Yna cliciwch OK i gau'r ymgom, nawr, pan fyddwch chi'n anfon neges gyda rhai nodau arbennig yn y llinell pwnc, bydd yn cael ei symud yn awtomatig ar ôl ei hanfon. Gweler y screenshot:

doc tynnu torgoch arbennig 3