Jak automatycznie usuwać znaki specjalne w temacie wiadomości e-mail za pośrednictwem programu Outlook VBA

E-maile zawierające znaki specjalne są zwykle blokowane jako spam. Dlatego należy unikać znaków specjalnych w tematach wychodzących wiadomości e-mail. Teraz w tym artykule nauczymy Cię, jak umożliwić programowi Outlook automatyczne usuwanie znaków specjalnych z tematu wiadomości e-mail.

Mój poprzedni artykuł „Jak uzyskać ostrzeżenie podczas próby wprowadzenia znaków specjalnych w temacie wiadomości e-mail programu Outlook”Wprowadził sposób na uniknięcie znaków specjalnych podczas tworzenia wiadomości e-mail. Jednak niektórzy użytkownicy chcą, aby program Outlook automatycznie usuwał znaki specjalne w temacie po kliknięciu przycisku „Wyślij” w celu wysłania wiadomości e-mail. Skupiając się na tym wymaganiu, tutaj pokażemy kolejny fragment kodu VBA. Może to zrealizować z łatwością.

Automatyczne usuwanie znaków specjalnych w temacie wiadomości e-mail

1. Po pierwsze, uruchom program Outlook.
2. Następnie uzyskaj dostęp do edytora VBA zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
3. Następnie w edytorze VBA włącz „Microsoft VBScript Regular Expressions” w odniesieniu do „Jak dodać odwołanie do biblioteki obiektów w języku VBA".
4. Następnie umieść następujący kod w projekcie „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. Następnie zamknij edytor VBA.
6. Od tego czasu za każdym razem, gdy próbujesz wysłać wiadomość e-mail, której temat zawiera znaki specjalne, program Outlook automatycznie je usunie, jak pokazano na poniższym zrzucie ekranu.

Zachowaj kilka kopii plików programu Outlook

Jak radzisz sobie z Outlookiem w codziennej pracy? W rzeczywistości zdecydowanie zaleca się przechowywanie kilku kopii plików programu Outlook. Ma na celu pomóc Ci pozbyć się bolesnej utraty danych programu Outlook. Wyobraź sobie następujący scenariusz. Na przykład program Outlook nagle ulega awarii, a otwierane pliki stają się niedostępne. W takim przypadku, jeśli zachowałeś inne kopie, nie musisz się martwić. Jednak jeśli nie masz, musisz naprawić Outlooka i odzyskaj uszkodzone dane Outlooka w maksymalnym możliwym zakresie. W tym momencie konieczne jest skorzystanie z narzędzia, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com