2 metode rapide de a crea e-mailuri noi dintr-un șablon cu Outlook VBA

Deoarece mulți utilizatori consideră că este dificil să găsească și să utilizeze șabloane de e-mail Outlook, vom prezenta 2 metode rapide de a crea e-mailuri noi folosind un șablon cu Outlook VBA în acest articol.

De cele mai multe ori, pentru a utiliza un șablon de e-mail Outlook, trebuie mai întâi să îl identificați făcând clic pe „Elemente noi” > „Mai multe elemente” > „Alegeți formular”. Apoi, în caseta de dialog „Alegeți formular”, localizați și deschideți șabloanele țintă în „Șabloane utilizator în sistemul de fișiere”, ca în captura de ecran următoare.

Evident, este într-adevăr foarte supărător. Prin urmare, aici vom introduce 2 mijloace rapide, care pot crea rapid e-mail noi folosind șabloane cu ajutorul Outlook VBA. Citiți mai departe pentru a le obține în detaliu.

Metoda 1: Creați un nou șablon de e-mail direct prin Outlook VBA

1. La început, accesați fila „Dezvoltator” din fereastra principală a Outlook.
2. Apoi faceți clic pe butonul „Visual Basic”, care va deschide o nouă fereastră.
3. Apoi, copiați și lipiți următoarele coduri VBA într-un modul.

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. După aceea, ieșiți din fereastra „Visual Basic”. Acum urmați pașii de mai jos pentru a adăuga această macrocomandă la Bara de instrumente Acces rapid:

• La început, faceți clic pe săgeata în jos din Bara de instrumente Acces rapid și selectați „Mai multe comenzi”.
• Apoi, în noua fereastră pop-up, setați „Alegeți comenzile de la” la „Macrocomenzi”.
• După aceea, aruncați pe cel corect.
• Apoi, faceți clic pe butonul „Adăugați”.
• Ulterior, îi puteți schimba aspectul. Faceți clic pe butonul „Modificați”. În noua casetă de dialog, dați-i un nume nou și specificați o pictogramă pentru aceasta.
• În cele din urmă, faceți clic pe două „OK”.

5. În cele din urmă, puteți face clic pe pictograma macro din bara de instrumente Acces rapid. Imediat, va apărea o nouă fereastră de mesaj, ca în imaginea următoare.

Metoda 2: Creați un e-mail nou dintr-un șablon existent de Outlook VBA

1. În primul rând, ar trebui să aveți în mână un șablon de e-mail gata făcut. Creați un nou e-mail în formatul dorit, papetărie și salvați-l ca șablon Outlook. Pentru pași detaliați, consultați articolul „Cum să vă îmbunătățiți eficiența muncii prin șabloane Outlook”. De asemenea, vă rugăm să notați calea folderului de salvare a acestui fișier șablon.
2. Apoi accesați fereastra „Visual Basic” și deschideți un modul nou, cum ar fi Sfatul 1.
3. Ulterior, ar trebui să copiați și să lipiți următoarea captură de ecran:

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. După aceea, urmați Pasul 5 din Sfatul 1 de mai sus pentru a adăuga noua macrocomandă la Bara de instrumente Acces rapid.
5. În cele din urmă poți încerca. Veți primi noul e-mail folosind șablonul, ca în imaginea de mai jos:

Comparația celor 2 metode

Faceți față erorilor ocazionale de Outlook

Deși Outlook este bogat în funcții, este totuși susceptibil la diverse probleme. Mai mult, cea mai supărătoare este că utilizatorii nu pot porni Outlook. În general, se poate întâmpla din... Outlook corupt. Deci, puteți merge la „Panou de control” pentru a repara suita de birou. Dacă problema persistă, atunci trebuie să apelați la un instrument de reparare experimentat, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

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