Kuidas saata Outlook VBA kaudu lihtteksti e-kirju ainult neile, kes on konkreetses domeenis

Mõned kasutajad soovivad saata lihtteksti e-kirju ainult neile adressaatidele, kelle e-posti aadressid on kindlas domeenis. See artikkel tutvustab nutikat meetodit selle saamiseks.

Minu eelmises artiklis "Kuidas saata Outlooki e-kirju kindlate kontaktide jaoks alati lihtteksti vormingus”, saate kasutada 2 lähenemist lihtteksti meilide saatmiseks ainult kindlatele kontaktidele. Kui soovite selliseid e-kirju saata kõigile konkreetse meilidomeeni kontaktidele, on selles artiklis kirjeldatud kahe viisi kasutamine veidi rumal ja tülikas. Seetõttu jagame siin teist viisi, mis on palju tõhusam.

Saatke lihtteksti e-kirju ainult neile, kes on kindlas domeenis

1. Kõigepealt peaksite käivitama oma Outlooki rakenduse.
2. Seejärel peate Outlooki põhikuval vajutama klahvikombinatsiooni Alt + F11.
3. Järgmisena ilmub aken "Microsoft Visual Basic for Applications". Selles peaksite avama projekti "ThisOutlookSession".
4. Seejärel kopeerige ja kleepige sellesse projekti järgmine VBA kood.

'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ärast seda peate selle makro allkirjastama. Klõpsake valikutel „Tööriistad” > „Digiallkiri” ja järgige selle lõpuleviimiseks ekraanil kuvatavat viisardit.
6. Hiljem väljuge praegusest aknast. Seejärel minge vahekaardile "Arendaja" ja puudutage nuppu "Makro turvalisus". Uues hüpikakna dialoogiboksis peaksite muutma sätteid digitaalselt allkirjastatud makrode lubamiseks.
7. Lõpuks saate pildistada. Looge ja koostage e-kiri ühele konkreetses meilidomeenis olevale adressaadile. Ja selle väljasaatmiseks vajutage nuppu "Saada". Selle protsessi käigus muudab Outlook automaatselt meilivormingu lihtsaks tekstiks.

Taastage rikutud Outlooki failid

Outlook on haavatav viirusnakkuste, pahavara rünnakute, voolutõusu ja muu suhtes. Seega peaksime õppima mõningaid näpunäiteid Outlooki andmete taastamiseks pärast korruptsiooni. Kõigepealt peaksite oma varukoopiaid kontrollima. Kui varukoopia on liiga vana või seda ei õnnestu taastada, võite kasutada sisseehitatud tööriista Scanpst.exe. Muidugi, postkasti parandamise tööriist ei ole alati tõhus. Seega peaksite paremini ette valmistama usaldusväärse ja veenva välise tööriista, näiteks DataNumen Outlook Repair. See on kõrge taastumiskiiruse tõttu soovitatav.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom