Paano Awtomatikong Mag-alis ng Mga Espesyal na Character sa Paksa ng Email sa pamamagitan ng Outlook VBA

Ang mga email na naglalaman ng mga espesyal na character ay may posibilidad na ma-block bilang mga spam. Samakatuwid, dapat mong iwasan ang mga espesyal na karakter sa mga papalabas na paksa ng mga email. Ngayon, sa artikulong ito, ituturo namin sa iyo na hayaang awtomatikong alisin ng Outlook ang mga espesyal na character sa paksa ng email.

Ang aking nakaraang artikulo na "Paano Makakuha ng Babala kapag Sinusubukang Mag-input ng Mga Espesyal na Character sa Paksa ng Email sa Outlook” ay nagpakilala ng isang paraan upang maiwasan ang mga espesyal na character kapag bumubuo ng email. Ngunit, nais ng ilang mga gumagamit na awtomatikong alisin ng Outlook ang mga espesyal na character sa paksa kapag na-click nila ang pindutang "Ipadala" upang magpadala ng isang email. Nakatuon sa pangangailangang ito, dito ilalantad namin ang isa pang piraso ng VBA code. Maaari nitong mapagtanto ito nang walang hirap.

Awtomatikong Alisin ang Mga Espesyal na Character sa Paksa ng Email

1. Una, ilunsad ang programa ng Outlook.
2. Pagkatapos, i-access ang VBA editor ayon sa "Paano Patakbuhin ang VBA Code sa Iyong Outlook".
3. Susunod, sa VBA editor, paganahin ang "Microsoft VBScript Regular Expressions" na may sanggunian sa "Paano Magdagdag ng Sanggunian sa Object Library sa VBA".
4. Pagkatapos nito, ilagay ang sumusunod na code sa proyektong "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. Pagkatapos, isara ang VBA editor.
6. Simula noon, sa tuwing susubukan mong magpadala ng email na may mga espesyal na character ang paksa, awtomatikong aalisin ng Outlook ang mga ito, tulad ng ipinapakita sa sumusunod na screenshot.

Panatilihin ang Ilang Kopya ng Iyong Outlook Files

Paano mo haharapin ang iyong Outlook sa pang-araw-araw na gawain? Sa totoo lang, lubos na iminumungkahi na magtago ng ilang kopya ng iyong mga file sa Outlook. Nilalayon nitong tulungan kang maalis ang masakit na pagkawala ng data sa Outlook. Isipin na lang ang sumusunod na senaryo. Halimbawa, ang iyong Outlook ay biglang nag-crash at ang mga binuksan na file ay hindi naa-access. Sa kasong ito, kung nag-iingat ka ng iba pang mga kopya, hindi mo kailangang mag-alala. Gayunpaman, kung wala ka, kailangan mong gawin ito ayusin ang Outlook at mabawi ang sirang data ng Outlook sa abot ng iyong makakaya. Sa puntong ito, kailangan mong gumamit ng power tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa