Kako poslati e-poštu običnog teksta samo onima u određenoj domeni putem programa Outlook VBA

Neki korisnici željeli bi slati e-poštu u obliku običnog teksta samo primateljima čije su adrese e-pošte u određenoj domeni. Ovaj će članak predstaviti pametnu metodu kako ga dobiti.

U mom prethodnom članku "Kako uvijek slati Outlook e-poštu u formatu običnog teksta za određene kontakte”, možete dobiti 2 pristupa za slanje e-pošte u obliku običnog teksta samo određenim kontaktima. Ako želite slati takve e-poruke svim kontaktima u određenoj domeni pošte, korištenje 2 načina u tom članku bit će pomalo glupo i problematično. Stoga ćemo ovdje podijeliti s vama još jedan način, koji je mnogo učinkovitiji.

Šaljite e-poruke s običnim tekstom samo onima u određenoj domeni

1. Prije svega, trebali biste pokrenuti svoju Outlook aplikaciju.
2. Zatim trebate pritisnuti tipke "Alt + F11" na glavnom zaslonu programa Outlook.
3. Zatim će se pojaviti prozor "Microsoft Visual Basic za aplikacije". U njemu biste trebali otvoriti projekt “ThisOutlookSession”.
4. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj 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. Nakon toga morate potpisati ovu makronaredbu. Pritisnite "Alati" > "Digitalni potpis" i slijedite čarobnjak na zaslonu da biste to dovršili.
6. Kasnije izađite iz trenutnog prozora. Zatim prijeđite na karticu "Developer" i dodirnite gumb "Macro Security". U novom skočnom dijaloškom okviru trebali biste promijeniti postavke kako biste omogućili digitalno potpisane makronaredbe.
7. Konačno, možete pucati. Stvorite i sastavite e-poruku jednom primatelju u određenoj domeni e-pošte. I pritisnite gumb "Pošalji" da biste ga poslali. U ovom procesu Outlook će automatski promijeniti format e-pošte u običan tekst.

Vratite oštećene Outlook datoteke

Outlook je osjetljiv na virusne infekcije, napade zlonamjernog softvera, udare struje i tako dalje. Stoga bismo trebali naučiti nekoliko savjeta za vraćanje Outlook podataka nakon oštećenja. Najprije biste trebali provjeriti sigurnosne kopije. Ako je sigurnosna kopija prestara ili se ne može vratiti, možete upotrijebiti ugrađeni alat – Scanpst.exe. Naravno, alat za popravak inboxa nije uvijek učinkovit. Stoga je bolje pripremiti pouzdan i uvjerljiv vanjski alat, npr DataNumen Outlook Repair. Toplo se preporučuje zbog visoke stope oporavka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com