Dacă dumneavoastră sau colegii dumneavoastră utilizați pe scară largă capacitățile de e-mail Outlook, este posibil să puteți economisi timp prin programarea Outlook prin crearea sau procesarea automată a mesajelor. Următoarele secțiuni vă arată cum să creați un mesaj nou, să lucrați cu conținutul său, să adăugați o atașare și să trimiteți mesajul.

Crearea unui mesaj nou

Pentru a crea un mesaj nou, utilizați metoda CreateItem a obiectului Application și specificați olMailItem pentru argumentul ItemType. Următorul exemplu creează un obiect MailItem numit myMessage și atribuie acestuia un mesaj nou:

Dim myMessage As MailItem

Set myMessage = Application.CreateItem(ItemType:=olMailItem)

Lucrul cu conținutul unui mesaj

Pentru a lucra cu conținutul unui mesaj, setați sau obțineți proprietățile corespunzătoare. Acestea sunt proprietățile cele mai utilizate pe scară largă:

• To este destinatarul sau destinatarii mesajului.
• CC este destinatarul sau destinatarii copiilor mesajului.
• BCC este destinatarul sau destinatarii copiilor oarbe ale mesajului.
• Subject este linia de subiect a mesajului.
• Body este textul corpului mesajului.
• BodyFormat este tipul de formatare al mesajului: olFormatPlain pentru text simplu, olFormat RichText pentru text cu formatare și olFormatHTML pentru formatareHTML.
• Importance este importanța relativă a mesajului. Poate fi setat la olImportanceHigh, ol ImportanceNormal sau olImportanceLow.

Următorul exemplu creează un element de mesaj nou și îi atribuie variabilei obiect my Message. Apoi adaugă un destinatar, un subiect, și corp text; aplică formatul HTML; stabilește importanța ridicată; și trimite mesajul:

Dim myMessage As MailItem

Set myMessage = Application.CreateItem(ItemType:=olMailItem)

With myMessage

  .To = "petra_smith@ourbigcompany.com"

  .Subject = "Pregătirea pentru revizuire"

  .Body = "Vă rog să treceți pe aici mâine și să petreceți câteva minute pentru a" _

& " discuta despre materialele de care avem nevoie pentru revizuire."

  .BodyFormat = olFormatHTML

  .Importance = olImportanceHigh 

  .Send 

End With

Când mesajul ajunge la destinatar, Outlook 2016 îl afișează pentru scurt timp în colțul din dreapta sus.

Adăugarea unui fișier atașat la mesaj

Pentru a adãuga o atașament la un mesaj, utilizați metoda Add cu colecția Attachments, pe care îl returnați utilizând proprietatea Attachments, a obiectului MailItem. Sintaxa este următoarea:

expression.Add(Source, Type, Position, DisplayName)

Aici sunt componentele sintaxei:

• expression este o expresie necesară care returnează o colecție Attachments.
• Source este un argument necesar de tip String care specifică calea și numele fișierului atașat.
• Type este un argument opțional de tip String pe care îl puteți utiliza pentru a specifica tipul fișierului atașat.
• Position este un argument opțional de tip String pe care îl puteți cu mesajele rich-text pentru a specifica caracterul la care este poziționat atașamentul în text. Folosiți caracterul 0 pentru a ascunde fișierul atașat, 1 pentru a poziționat atașamentul la începutul mesajului, sau o valoare mai mare pentru a poziționa atașamentul la poziția specificată a caracterului. Pentru a poziționa atașarea la sfârșitul mesajului, utilizați un număr mai mare decât numărul de caractere din mesaj.
• DisplayName este un argument opțional de tip String pe care îl puteți specifica pentru a controla numele afișat pentru fișierul atașat în mesaj.

Următorul exemplu atașează la mesajul la care face referire variabila obiect myMessage fișierul Corporate Downsizing.pptm stocate în folderul Y:\Documente, poziționând atașarea la începutul mesajului și setarea numelui afișat la Rezumat:

myMessage.Attachments.Add _

Source:="Y:\Documente\Corporate Downsizing.pptm", _

Position:=1, DisplayName:="Rezumat"

Pentru a testa acest lucru, introduceți acest cod în codul de exemplu din secțiunea anterioară ("Lucrul cu conținutul unui mesaj"), astfel:

Dim myMessage As MailItem

Set myMessage = Application.CreateItem(ItemType:=olMailItem) 

myMessage.Attachments.Add _

Source:="Y:\Documente\Corporate Downsizing.pptm", _

Position:=1, DisplayName:="Rezumat"

With myMessage

.To = "petra_smith@ourbigcompany.com"

.Subject = "Pregătirea pentru revizuire"

.Body = "Vă rog să treceți pe aici mâine și să petreceți câteva minute pentru a" _

& " discuta despre materialele de care avem nevoie pentru revizuire."

.BodyFormat = olFormatHTML .Importance = olImportanceHigh 

.Send 

End With

Trimiterea unui mesaj

Pentru a trimite un mesaj, utilizați metoda Send. Această metodă nu are argumente. Următorul exemplu trimite mesajul la care face referire variabila obiect myMessage:

myMessage.Send

Pentru a verifica dacă a fost trimis un mesaj, verificați proprietatea Sent. Această proprietate de tip Boolean întoarce True dacă mesajul a fost trimis și False dacă nu a fost trimis.