Bagaimana cara otomatis menghapus beberapa karakter khusus dari baris subjek saat mengirim email?

Anda mungkin menyisipkan beberapa karakter khusus secara tidak sengaja saat Anda mengetikkan subjek di baris subjek saat mengirim email di Outlook, jadi Anda perlu menghapus karakter khusus ini satu per satu. Pada artikel ini, saya akan berbicara tentang cara menghapus semua karakter khusus ini secara otomatis dari subjek saat mengirim email.

Hapus semua karakter khusus dari baris subjek secara otomatis saat mengirim email dengan kode VBA

Hapus semua karakter khusus dari baris subjek secara otomatis saat mengirim email dengan kode VBA

Hapus otomatis karakter khusus dari baris subjek saat mengirim email, kode VBA berikut dapat membantu Anda. Harap lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Hapus karakter khusus dari baris subjek secara otomatis

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 hapus karakter khusus 1

3. Dan kemudian, masih di Microsoft Visual Basic untuk Aplikasi window, klik Tools > Referensi untuk pergi ke Referensi-Proyek 1 kotak dialog, dan centang Ekspresi Reguler Microsoft VBAScript 1.0 pilihan dari Referensi yang Tersedia kotak daftar, lihat tangkapan layar:

doc hapus karakter khusus 2

4. Lalu klik OK untuk menutup dialog, sekarang, saat Anda mengirim pesan dengan beberapa karakter khusus di baris subjek, itu akan dihapus secara otomatis setelah mengirimnya. Lihat tangkapan layar:

doc hapus karakter khusus 3