Kako automatski ukloniti posebne znakove u predmetu e-pošte putem programa Outlook VBA

E-poruke koje sadrže posebne znakove obično se blokiraju kao neželjena pošta. Stoga biste trebali izbjegavati posebne znakove u predmetima odlaznih e-poruka. Sada ćemo vas u ovom članku naučiti kako dopustiti Outlooku da automatski ukloni posebne znakove iz predmeta e-pošte.

Moj prethodni članak "Kako dobiti upozorenje kada pokušavate unijeti posebne znakove u Outlook predmet e-pošte” uveo je način izbjegavanja posebnih znakova prilikom sastavljanja e-pošte. No, neki korisnici žele da Outlook automatski ukloni posebne znakove u predmetu kada kliknu gumb "Pošalji" za slanje e-pošte. Usredotočeni na ovaj zahtjev, ovdje ćemo izložiti još jedan dio VBA koda. To može ostvariti s lakoćom bez napora.

Automatsko uklanjanje posebnih znakova u predmetu e-pošte

1. Prvo pokrenite program Outlook.
2. Zatim pristupite uređivaču VBA prema "Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim u uređivaču VBA omogućite “Microsoft VBScript Regular Expressions” s referencom na “Kako dodati referencu biblioteke objekata u VBA".
4. Nakon toga stavite sljedeći kod u projekt “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. Nakon toga zatvorite VBA editor.
6. Od tada, svaki put kada pokušate poslati e-poštu čiji predmet ima posebne znakove, Outlook će ih automatski ukloniti, kao što je prikazano na sljedećoj snimci zaslona.

Čuvajte nekoliko kopija vaših Outlook datoteka

Kako se nosite sa svojim Outlookom u svakodnevnom radu? U stvarnosti se preporučuje da zadržite nekoliko kopija Outlook datoteka. Njegov cilj je pomoći vam da se riješite bolnog gubitka podataka u programu Outlook. Zamislite samo sljedeći scenarij. Na primjer, vaš se Outlook iznenada ruši i otvorene datoteke postaju nedostupne. U ovom slučaju, ako ste zadržali druge kopije, ne morate brinuti. Ipak, ako nemate, obavezni ste popraviti Outlook i oporaviti oštećene Outlook podatke u najvećoj mogućoj mjeri. U ovom trenutku, potrebno je da uzmete pomoć električnog alata, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com