Cum să trimiteți e-mailuri cu text simplu numai celor dintr-un anumit domeniu prin Outlook VBA

Unii utilizatori ar dori să trimită e-mailuri cu text simplu numai destinatarilor ale căror adrese de e-mail se află într-un anumit domeniu. Acest articol va introduce o metodă inteligentă pentru a-l obține.

În articolul meu anterior „Cum să trimiteți întotdeauna e-mailuri Outlook în format text simplu pentru anumite persoane de contact”, puteți obține 2 abordări pentru a trimite e-mailuri cu text simplu numai anumitor persoane de contact. Dacă doriți să trimiteți astfel de e-mailuri tuturor persoanelor de contact dintr-un anumit domeniu de e-mail, folosirea celor 2 moduri din acel articol va fi puțin stupidă și supărătoare. Prin urmare, aici vă vom împărtăși un alt mod, care este mult mai eficient.

Trimiteți e-mailuri cu text simplu numai celor dintr-un anumit domeniu

1. În primul rând, ar trebui să lansați aplicația Outlook.
2. Apoi, trebuie să apăsați butoanele tastei „Alt + F11” în ecranul principal Outlook.
3. Apoi, va apărea fereastra „Microsoft Visual Basic for Applications”. În el, ar trebui să deschideți proiectul „ThisOutlookSession”.
4. Ulterior, copiați și inserați următorul cod VBA în acest proiect.

'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. După aceea, trebuie să semnați această macrocomandă. Faceți clic pe „Instrumente” > „Semnătură digitală” și urmați expertul de pe ecran pentru a finaliza.
6. Mai târziu, ieșiți din fereastra curentă. Apoi comutați la fila „Dezvoltator” și atingeți butonul „Securitate macro”. În noua casetă de dialog pop-up, ar trebui să modificați setările pentru a activa macrocomenzile semnate digital.
7. În cele din urmă, puteți face o lovitură. Creați și compuneți un e-mail către un destinatar dintr-un anumit domeniu de e-mail. Și apăsați butonul „Trimite” pentru a-l trimite. În acest proces, Outlook va schimba automat formatul de e-mail în Text simplu.

Restaurați fișierele Outlook corupte

Outlook este vulnerabil la infecția cu viruși, atacuri de malware, supratensiune și așa mai departe. Prin urmare, ar trebui să învățăm câteva sfaturi pentru a restaura datele Outlook după corupție. La început, ar trebui să vă verificați copiile de rezervă. Dacă backup-ul este prea vechi sau nu poate fi restaurat, puteți utiliza instrumentul încorporat – Scanpst.exe. Desigur, cel instrument de reparare inbox nu este întotdeauna eficient. Astfel, ar fi mai bine să pregătiți un instrument extern de încredere și convingător, cum ar fi DataNumen Outlook Repair. Este foarte recomandat datorită ratei sale ridicate de recuperare.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com