Si të hiqni automatikisht karaktere speciale në subjektin e postës elektronike përmes Outlook VBA

Email-et që përmbajnë karaktere të veçanta priren të bllokohen si mesazhe të padëshiruara. Prandaj, duhet të shmangni karaktere të veçanta në subjektet e emaileve dalëse. Tani, në këtë artikull, ne do t'ju mësojmë të lejoni që Outlook të heqë automatikisht karaktere të veçanta në subjektin e emailit.

Artikulli im i mëparshëm "Si të paralajmëroheni kur përpiqeni të futni karaktere speciale në subjektin e postës elektronike të Outlook” ka prezantuar një mënyrë për të shmangur karakteret speciale gjatë kompozimit të emailit. Por, disa përdorues dëshirojnë që Outlook të heqë automatikisht karakteret speciale në subjekt kur klikojnë butonin "Dërgo" për të dërguar një email. Duke u fokusuar në këtë kërkesë, këtu do të ekspozojmë një pjesë tjetër të kodit VBA. Mund ta realizojë këtë me lehtësi pa mundim.

Heq automatikisht karaktere të veçanta në subjektin e postës elektronike

1. Fillimisht, hapni programin Outlook.
2. Pastaj, hyni në redaktorin VBA sipas "Si të ekzekutoni kodin VBA në Outlook tuaj".
3. Më pas, në redaktorin VBA, aktivizoni "Microsoft VBScript Regular Expressions" duke iu referuar "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
4. Pas kësaj, vendosni kodin e mëposhtëm në projektin "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. Më pas, mbyllni redaktorin VBA.
6. Që atëherë, sa herë që përpiqeni të dërgoni një email, subjekti i të cilit ka karaktere të veçanta, Outlook do t'i heqë ato automatikisht, siç tregohet në pamjen e mëposhtme të ekranit.

Mbani disa kopje të skedarëve tuaj të Outlook

Si e trajtoni Outlook-in tuaj në punën e përditshme? Në realitet, sugjerohet shumë që të mbani disa kopje të skedarëve tuaj Outlook. Ai synon t'ju ndihmojë të heqni qafe humbjen e dhimbshme të të dhënave të Outlook. Vetëm imagjinoni skenarin e mëposhtëm. Për shembull, Outlook-i juaj papritmas rrëzohet dhe skedarët e hapur bëhen të paarritshëm. Në këtë rast, nëse keni ruajtur kopje të tjera, nuk keni nevojë të shqetësoheni. Megjithatë, nëse nuk keni, ju kërkohet rregulloni Outlook dhe rikuperoni të dhënat e dëmtuara të Outlook-ut në maksimum. Në këtë pikë, ju kërkon të përdorni një mjet elektrik, si p.sh. DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com