Jak automaticky odebrat speciální znaky v předmětu e-mailu pomocí aplikace Outlook VBA

E-maily, které obsahují speciální znaky, bývají blokovány jako spam. Proto byste se měli vyhýbat speciálním znakům v předmětech odchozích e-mailů. V tomto článku vás nyní naučíme, jak nechat aplikaci Outlook automaticky odstraňovat speciální znaky v předmětu e-mailu.

Můj předchozí článek “Jak se dostat varován při pokusu o zadání speciálních znaků do předmětu e-mailu aplikace Outlook”Představil způsob, jak se vyhnout speciálním znakům při psaní e-mailu. Někteří uživatelé si však přejí, aby aplikace Outlook automaticky odstranila speciální znaky v předmětu, když kliknutím na tlačítko „Odeslat“ odešlou e-mail. Se zaměřením na tento požadavek zde vystavíme další část kódu VBA. Může si to snadno uvědomit.

Automaticky odebrat speciální znaky v předmětu e-mailu

1. Nejprve spusťte program Outlook.
2. Poté přejděte do editoru VBA podle „Jak spustit kód VBA ve vašem Outlooku".
3. Dále v editoru VBA povolte „Microsoft VBScript Regular Expressions“ s odkazem na „Jak přidat odkaz na knihovnu objektů ve VBA".
4. Poté vložte do projektu „ThisOutlookSession“ následující kód.

'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. Následně zavřete editor VBA.
6. Od té doby Outlook pokaždé, když se pokusíte odeslat e-mail, jehož předmět má speciální znaky, je automaticky odebere, jak je znázorněno na následujícím snímku obrazovky.

Uchovávejte několik kopií souborů aplikace Outlook

Jak řešíte svůj Outlook v každodenní práci? Ve skutečnosti se důrazně doporučuje ponechat několik kopií souborů aplikace Outlook. Jeho cílem je pomoci vám zbavit se bolestivé ztráty dat aplikace Outlook. Představte si následující scénář. Například váš Outlook náhle selže a otevřené soubory se stanou nepřístupnými. V tomto případě, pokud jste si nechali další kopie, se nemusíte bát. Pokud však nemáte, musíte opravit Outlook a co nejlépe obnovit poškozená data aplikace Outlook. V tomto okamžiku je nutné použít nějaký nástroj, například DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com