Kā nosūtīt vienkārša teksta e-pasta ziņojumus tikai tiem, kas atrodas noteiktā domēnā, izmantojot Outlook VBA

Daži lietotāji vēlas sūtīt vienkārša teksta e-pasta ziņojumus tikai tiem adresātiem, kuru e-pasta adreses atrodas noteiktā domēnā. Šis raksts iepazīstinās ar gudru metodi, kā to iegūt.

Manā iepriekšējā rakstā “Kā vienmēr nosūtīt Outlook e-pastus vienkāršā teksta formātā konkrētiem kontaktiem”, varat iegūt 2 pieejas vienkārša teksta e-pasta sūtīšanai tikai noteiktām kontaktpersonām. Ja vēlaties sūtīt šādus e-pastus visiem kontaktiem noteiktā pasta domēnā, šajā rakstā minēto divu veidu izmantošana būs nedaudz muļķīga un apgrūtinoša. Tāpēc šeit mēs jums pastāstīsim par citu veidu, kas ir daudz efektīvāks.

Sūtiet vienkārša teksta e-pasta ziņojumus tikai tiem, kas atrodas noteiktā domēnā

1. Pirmkārt, jums vajadzētu palaist programmu Outlook.
2. Pēc tam Outlook galvenajā ekrānā ir jānospiež taustiņu pogas Alt + F11.
3. Pēc tam tiks parādīts logs “Microsoft Visual Basic for Applications”. Tajā jums vajadzētu atvērt projektu “ThisOutlookSession”.
4. Pēc tam nokopējiet un ielīmējiet šo VBA kodu šajā projektā.

'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

5. Pēc tam jums jāparaksta šis makro. Noklikšķiniet uz “Rīki” > “Digitālais paraksts” un izpildiet ekrānā redzamo vedni, lai to pabeigtu.
6. Vēlāk izejiet no pašreizējā loga. Pēc tam pārejiet uz cilni “Izstrādātājs” un pieskarieties pogai “Makro drošība”. Jaunajā uznirstošajā dialoglodziņā ir jāmaina iestatījumi, lai iespējotu ciparparakstu makro.
7. Visbeidzot, jūs varat uzņemt kadru. Izveidojiet un rakstiet e-pasta ziņojumu vienam adresātam noteiktā e-pasta domēnā. Un nospiediet pogu "Sūtīt", lai to nosūtītu. Šajā procesā programma Outlook automātiski mainīs e-pasta formātu uz vienkāršu tekstu.

Atjaunojiet bojātus Outlook failus

Programma Outlook ir neaizsargāta pret vīrusu infekciju, ļaunprātīgas programmatūras uzbrukumiem, jaudas pārspriegumu un tā tālāk. Tāpēc mums vajadzētu uzzināt dažus padomus, kā atjaunot Outlook datus pēc korupcijas. Sākumā jums jāpārbauda dublējumkopijas. Ja dublējums ir pārāk vecs vai to nevar atjaunot, varat izmantot iebūvēto rīku Scanpst.exe. Protams, iesūtnes labošanas rīks ne vienmēr ir efektīva. Tādējādi jums vajadzētu sagatavot uzticamu un pārliecinošu ārēju rīku, piemēram, DataNumen Outlook Repair. Tas ir ļoti ieteicams, jo ir augsts atgūšanas ātrums.

Autora ievads:

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