Conas roinnt carachtair speisialta a bhaint as líne an ábhair agus ríomhphoist á seoladh?

Féadfaidh tú roinnt carachtair speisialta a chur isteach de thaisme nuair a chlóscríobhann tú ábhar i líne an ábhair agus tú ag seoladh ríomhphoist in Outlook, mar sin ní mór duit na carachtair speisialta seo a bhaint ceann ar cheann. San Airteagal seo, labhróidh mé faoi conas na carachtair speisialta seo go léir a bhaint go huathoibríoch as ábhar agus ríomhphoist á seoladh agam.

Bain gach carachtar speisialta as líne an ábhair go huathoibríoch agus ríomhphoist le cód VBA á seoladh

Bain gach carachtar speisialta as líne an ábhair go huathoibríoch agus ríomhphoist le cód VBA á seoladh

Bain na carachtair speisialta as líne an ábhair agus tú ag seoladh ríomhphoist, is féidir leis an gcód VBA seo a leanas fabhar a thabhairt duit. Déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Bain carachtair speisialta as líne an ábhair go huathoibríoch

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 bain char speisialta 1

3. Agus ansin, fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > tagairtí dul go dtí an Tagairtí-Tionscadal1 bosca dialóige, agus seiceáil Léirithe Rialta Microsoft VBAScript 1.0 rogha ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:

doc bain char speisialta 2

4. Ansin cliceáil OK chun an dialóg a dhúnadh, anois, nuair a sheolann tú teachtaireacht le roinnt carachtair speisialta sa líne ábhair, bainfear í go huathoibríoch tar éis í a sheoladh. Féach an pictiúr:

doc bain char speisialta 3