Πώς να καταργήσετε αυτόματα ορισμένους ειδικούς χαρακτήρες από τη γραμμή θέματος κατά την αποστολή email;

Μπορείτε να εισαγάγετε τυχαία ορισμένους ειδικούς χαρακτήρες όταν πληκτρολογείτε θέμα στη γραμμή θέματος κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook, επομένως πρέπει να καταργήσετε αυτούς τους ειδικούς χαρακτήρες ένας προς έναν. Σε αυτό το άρθρο, θα μιλήσω για τον τρόπο αυτόματης κατάργησης όλων αυτών των ειδικών χαρακτήρων από το θέμα κατά την αποστολή email.

Κατάργηση όλων των ειδικών χαρακτήρων από τη γραμμή θέματος αυτόματα κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου με κωδικό VBA

Κατάργηση όλων των ειδικών χαρακτήρων από τη γραμμή θέματος αυτόματα κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου με κωδικό VBA

Αυτόματη κατάργηση των ειδικών χαρακτήρων από τη γραμμή θέματος κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει. Κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.

Κωδικός VBA: Αυτόματη κατάργηση ειδικών χαρακτήρων από τη γραμμή θέματος

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 αφαιρέστε ειδικό char 1

3. Και μετά, ακόμα στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές για να μεταβείτε στο Αναφορές-Έργο 1 πλαίσιο διαλόγου και επιλέξτε Κανονικές εκφράσεις Microsoft VBAScript 1.0 Επιλογή από το Διαθέσιμες αναφορές πλαίσιο λίστας, δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε ειδικό char 2

4. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το διάλογο, τώρα, όταν στέλνετε ένα μήνυμα με ορισμένους ειδικούς χαρακτήρες στη γραμμή θέματος, θα αφαιρεθεί αυτόματα μετά την αποστολή του. Δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε ειδικό char 3