Kaip siųsti paprasto teksto el. laiškus tik tiems, kurie yra tam tikrame domene per „Outlook VBA“.

Kai kurie vartotojai norėtų siųsti paprasto teksto el. laiškus tik tiems gavėjams, kurių el. pašto adresai yra tam tikrame domene. Šiame straipsnyje bus pristatytas protingas būdas tai gauti.

Mano ankstesniame straipsnyje "Kaip visada siųsti „Outlook“ el. laiškus paprasto teksto formatu konkretiems kontaktams“, galite gauti 2 būdus, kaip siųsti paprasto teksto el. laiškus tik konkretiems kontaktams. Jei norite siųsti tokius el. laiškus visiems kontaktams konkrečiame pašto domene, naudoti 2 būdus šiame straipsnyje bus šiek tiek kvaila ir varginanti. Taigi čia mes pasidalinsime kitu būdu, kuris yra daug efektyvesnis.

Siųskite paprasto teksto el. laiškus tik esantiems konkrečiame domene

1. Pirmiausia turėtumėte paleisti „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ ekrane turite paspausti klavišus „Alt + F11“.
3. Tada pasirodys langas „Microsoft Visual Basic for Applications“. Jame turėtumėte atidaryti projektą „ThisOutlookSession“.
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį 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. Po to turite pasirašyti šią makrokomandą. Spustelėkite „Įrankiai“ > „Skaitmeninis parašas“ ir vykdykite ekrane rodomą vedlį, kad jį užbaigtumėte.
6. Vėliau išeikite iš dabartinio lango. Tada pereikite į skirtuką „Kūrėjas“ ir bakstelėkite mygtuką „Makro sauga“. Naujame iššokančiame dialogo lange turėtumėte pakeisti nustatymus, kad įjungtumėte skaitmeniniu būdu pasirašytas makrokomandas.
7. Galiausiai galite nufotografuoti. Kurkite ir sukurkite el. laišką vienam gavėjui konkrečiame el. pašto domene. Ir paspauskite mygtuką „Siųsti“, kad išsiųstumėte. Šiame procese „Outlook“ automatiškai pakeis el. pašto formatą į paprastą tekstą.

Atkurti sugadintus Outlook failus

„Outlook“ yra pažeidžiama virusinių infekcijų, kenkėjiškų programų atakų, energijos antplūdžio ir pan. Taigi turėtume sužinoti keletą patarimų, kaip atkurti „Outlook“ duomenis po sugadinimo. Iš pradžių turėtumėte patikrinti atsargines kopijas. Jei atsarginė kopija yra per sena arba jos nepavyksta atkurti, galite naudoti integruotą įrankį – Scanpst.exe. Žinoma, pašto dėžutės taisymo įrankis ne visada veiksminga. Taigi geriau paruoškite patikimą ir patikimą išorinį įrankį, pvz DataNumen Outlook Repair. Tai labai rekomenduojama dėl didelio atkūrimo greičio.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com