Speciális karakterek automatikus eltávolítása az e-mail tárgyában az Outlook VBA segítségével

A speciális karaktereket tartalmazó e-maileket általában spamként blokkolják. Ezért kerülje a speciális karaktereket a kimenő e-mailek tárgyában. Ebben a cikkben megtanítjuk, hogy az Outlook automatikusan eltávolítsa a speciális karaktereket az e-mail tárgyában.

Előző cikkem "Hogyan kaphat figyelmeztetést, ha speciális karaktereket próbál beírni az Outlook e-mail tárgyában” bevezetett egy módszert a speciális karakterek elkerülésére az e-mailek írásakor. Egyes felhasználók azonban azt szeretnék, hogy az Outlook automatikusan eltávolítsa a speciális karaktereket a tárgyból, amikor a „Küldés” gombra kattintanak az e-mail elküldéséhez. Erre a követelményre összpontosítva itt bemutatunk egy másik VBA-kódot. Ezt könnyedén megvalósíthatja.

Speciális karakterek automatikus eltávolítása az e-mail tárgyában

1. Először indítsa el az Outlook programot.
2. Ezután nyissa meg a VBA-szerkesztőt a „A VBA kód futtatása az Outlookban".
3. Ezután a VBA-szerkesztőben engedélyezze a „Microsoft VBScript reguláris kifejezéseket” a „Hogyan adjunk hozzá egy Object Lib-etrary Hivatkozás a VBA-ban".
4. Ezt követően helyezze be a következő kódot a „ThisOutlookSession” projektbe.

'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. Ezt követően zárja be a VBA-szerkesztőt.
6. Azóta minden alkalommal, amikor olyan e-mailt próbál kiküldeni, amelynek tárgya speciális karaktereket tartalmaz, az Outlook automatikusan eltávolítja azokat, ahogy az a következő képernyőképen is látható.

Őrizzen meg több másolatot az Outlook fájljairól

Hogyan kezeli az Outlookot a napi munkája során? Valójában erősen javasolt az Outlook-fájlok több példányának megőrzése. Célja, hogy segítsen megszabadulni az Outlook fájdalmas adatvesztésétől. Képzelje csak el a következő forgatókönyvet. Például az Outlook hirtelen összeomlik, és a megnyitott fájlok elérhetetlenné válnak. Ebben az esetben, ha más másolatokat is megtartott, nem kell aggódnia. De ha nincs, akkor kötelező javítsa ki az Outlookot és visszaállíthatja a sérült Outlook-adatokat az utm-beost. Ezen a ponton megköveteli, hogy vegyen igénybe egy elektromos szerszámot, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com