Kā automātiski noņemt īpašās rakstzīmes e-pasta priekšmetā, izmantojot Outlook VBA

E-pastus, kuros ir īpašas rakstzīmes, mēdz bloķēt kā mēstules. Tādējādi jums vajadzētu izvairīties no īpašām rakstzīmēm izejošo e-pasta ziņojumu priekšmetos. Šajā rakstā mēs iemācīsim jums ļaut programmai Outlook automātiski noņemt īpašās rakstzīmes e-pasta priekšmetā.

Mans iepriekšējais raksts “Kā brīdināt, mēģinot ievadīt īpašās rakstzīmes Outlook e-pasta tēmā”Ir ieviesis veidu, kā izvairīties no īpašām rakstzīmēm, rakstot e-pastu. Daži lietotāji vēlas, lai programma Outlook automātiski noņem īpašās rakstzīmes, noklikšķinot uz pogas Sūtīt, lai nosūtītu e-pastu. Koncentrējoties uz šo prasību, šeit mēs atklāsim vēl vienu VBA koda daļu. Tas to var saprast bez piepūles.

Automātiski noņemt īpašās rakstzīmes e-pasta tēmā

1. Vispirms palaidiet programmu Outlook.
2. Pēc tam piekļūstiet VBA redaktoram, kā norādītsKā palaist VBA kodu programmā Outlook".
3. Pēc tam VBA redaktorā iespējojiet “Microsoft VBScript Regular Expressions” ar norādi “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
4. Pēc tam ievietojiet šo kodu projektā “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. Pēc tam aizveriet VBA redaktoru.
6. Kopš tā laika katru reizi, kad mēģināt nosūtīt e-pastu, kura priekšmetam ir īpašas rakstzīmes, programma Outlook tos automātiski noņems, kā parādīts nākamajā ekrānuzņēmumā.

Saglabājiet vairākas Outlook failu kopijas

Kā jūs rīkojaties ar savu Outlook ikdienas darbā? Patiesībā ir ļoti ieteicams saglabāt vairākas jūsu Outlook failu kopijas. Tās mērķis ir palīdzēt jums atbrīvoties no sāpīga Outlook datu zaudēšanas. Vienkārši iedomājieties šādu scenāriju. Piemēram, jūsu Outlook pēkšņi avarē, un atvērtie faili kļūst nepieejami. Šajā gadījumā, ja esat saglabājis citas kopijas, jums nav jāuztraucas. Tomēr, ja jums to nav, jums tas ir jādara labot Outlook un maksimāli atgūt bojātus Outlook datus. Šajā brīdī jums ir jāizmanto elektroinstruments, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar