Как да премахвате автоматично специални знаци в темата на имейл чрез Outlook VBA

Имейлите, които съдържат специални знаци, обикновено се блокират като спам. Следователно трябва да избягвате специални знаци в темите на изходящите имейли. Сега в тази статия ще ви научим да позволите на Outlook автоматично да премахва специални знаци в темата на имейла.

Предишната ми статия „Как да бъдем предупредени при опит за въвеждане на специални символи в тема на имейл на Outlook” въведе начин за избягване на специални знаци при съставяне на имейл. Но някои потребители искат Outlook автоматично да премахва специални знаци в темата, когато щракнат върху бутона „Изпращане“, за да изпратят имейл. Фокусирани върху това изискване, тук ще изложим друга част от VBA код. Той може да реализира това с лекота без усилие.

Автоматично премахване на специални знаци в темата на имейла

1. Първо, стартирайте програмата Outlook.
2. След това отворете редактора на VBA според „Как да стартирате VBA код във вашия Outlook".
3. След това във VBA редактора активирайте „Microsoft VBScript Regular Expressions“ с препратка към „Как да добавите Lib на обектrary Справка във VBA".
4. След това поставете следния код в проекта „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. Впоследствие затворете редактора на VBA.
6. Оттогава всеки път, когато се опитате да изпратите имейл, чиято тема има специални знаци, Outlook автоматично ще ги премахне, както е показано на следващата екранна снимка.

Съхранявайте няколко копия на вашите Outlook файлове

Как се справяте с Outlook в ежедневната си работа? В действителност е силно препоръчително да запазите няколко копия на вашите файлове в Outlook. Има за цел да ви помогне да се отървете от болезнената загуба на данни в Outlook. Само си представете следния сценарий. Например вашият Outlook внезапно се срива и отворените файлове стават недостъпни. В този случай, ако сте запазили други копия, не е нужно да се притеснявате. И все пак, ако нямате, трябва да го направите поправете Outlook и възстановете повредени данни на Outlook във вашия utmost. В този момент той изисква да си помогнете с електроинструмент, като напр DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com