Cum să eliminați automat caracterele speciale din subiectul e-mailului prin Outlook VBA

E-mailurile care conțin caractere speciale tind să fie blocate ca spam. Prin urmare, ar trebui să evitați caracterele speciale în subiectele e-mailurilor trimise. Acum, în acest articol, vă vom învăța să permiteți Outlook să elimine automat caracterele speciale din subiectul e-mailului.

Articolul meu anterior „Cum să fiți avertizat când încercați să introduceți caractere speciale în subiectul e-mailului Outlook” a introdus o modalitate de a evita caracterele speciale atunci când compun e-mail. Dar, unii utilizatori doresc ca Outlook să elimine automat caracterele speciale din subiect atunci când fac clic pe butonul „Trimite” pentru a trimite un e-mail. Concentrați pe această cerință, aici vom expune o altă bucată de cod VBA. Poate realiza acest lucru cu ușurință fără efort.

Eliminare automată a caracterelor speciale din subiectul e-mailului

1. În primul rând, lansați programul Outlook.
2. Apoi, accesați editorul VBA conform „Cum să rulați codul VBA în Outlook".
3. Apoi, în editorul VBA, activați „Microsoft VBScript Regular Expressions” cu referire la „Cum se adaugă o referință la o bibliotecă de obiecte în VBA".
4. După aceea, introduceți următorul cod în proiectul „ThisOutlookSession”.

'Occurs when sending an email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRegExp As RegExp
    Dim strSubject As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       'Get the mail subject
       strSubject = objMail.Subject
 
       'Find special characters via regular expression
       Set objRegExp = New RegExp
       With objRegExp
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^a-zA-Z0-9]"
       End With
 
      'Replace special characters with space
      If objRegExp.test(strSubject) = True Then
         strSubject = objRegExp.Replace(strSubject, " ")
         objMail.Subject = strSubject
      End If
    End If
End Sub

5. Ulterior, închideți editorul VBA.
6. De atunci, de fiecare dată când încercați să trimiteți un e-mail al cărui subiect are caractere speciale, Outlook le va elimina automat, așa cum se arată în următoarea captură de ecran.

Păstrați mai multe copii ale fișierelor dvs. Outlook

Cum te descurci cu Outlook în munca de zi cu zi? În realitate, este foarte recomandat să păstrați mai multe copii ale fișierelor Outlook. Acesta își propune să vă ajute să scăpați de pierderile dureroase de date din Outlook. Imaginează-ți următorul scenariu. De exemplu, Outlook se blochează brusc și fișierele deschise devin inaccesibile. În acest caz, dacă ați păstrat alte copii, nu trebuie să vă faceți griji. Totuși, dacă nu ai, ți se cere remediați Outlook și recuperați datele Outlook deteriorate la maximum. În acest moment, este necesar să apelați la un instrument puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com