2 brze metode za stvaranje nove e-pošte iz predloška s programom Outlook VBA

Budući da mnogi korisnici misle da je teško pronaći i koristiti Outlook predloške e-pošte, u ovom ćemo članku prikazati 2 brze metode za stvaranje novih e-poruka pomoću predloška s Outlook VBA.

Najčešće, da biste koristili predložak e-pošte programa Outlook, prvo ga morate pronaći klikom na "Nove stavke" > "Više stavki" > "Odabir obrasca". Zatim u dijaloškom okviru "Odabir obrasca" pronađite i otvorite ciljne predloške u "Korisničkim predlošcima u datotečnom sustavu", kao na sljedećoj snimci zaslona.

Očito, to je doista vrlo problematično. Stoga ćemo ovdje predstaviti 2 brza načina koja mogu brzo stvoriti novu e-poštu pomoću predložaka uz pomoć Outlook VBA. Čitajte dalje da biste ih saznali u detalje.

Metoda 1: Stvorite novi predložak e-pošte izravno pomoću programa Outlook VBA

1. Najprije otvorite karticu "Developer" u glavnom prozoru programa Outlook.
2. Zatim kliknite na gumb "Visual Basic", koji će prikazati novi prozor.
3. Zatim kopirajte i zalijepite sljedeće VBA kodove u 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. Nakon toga izađite iz prozora "Visual Basic". Sada slijedite korake u nastavku da dodate ovu makronaredbu na alatnu traku za brzi pristup:

• Najprije kliknite strelicu prema dolje na alatnoj traci za brzi pristup i odaberite "Više naredbi".
• Zatim u novom skočnom prozoru postavite “Choose commands from” na “Macros”.
• Nakon toga, bacanje na ispravan.
• Zatim kliknite gumb "Dodaj".
• Naknadno možete promijeniti njegov izgled. Pritisnite gumb "Izmijeni". U novom dijaloškom okviru dodijelite mu novi naziv i navedite ikonu za njega.
• Na kraju dva puta kliknite "OK".

5. Na kraju, možete kliknuti ikonu makronaredbe na alatnoj traci za brzi pristup. Odmah će se pojaviti novi prozor s porukom, kao na sljedećoj slici.

Metoda 2: Stvorite novu e-poštu iz postojećeg predloška u programu Outlook VBA

1. Prvo, trebali biste imati gotov predložak e-pošte pri ruci. Napravite novu e-poštu u željenom formatu, dopisnicu i spremite je kao Outlook predložak. Detaljne korake potražite u članku “Kako poboljšati svoju radnu učinkovitost putem Outlook predložaka”. Također, zapišite put mape za spremanje ove datoteke predloška.
2. Zatim pristupite prozoru "Visual Basic" i otvorite novi modul poput Savjeta 1.
3. Nakon toga trebate kopirati i zalijepiti sljedeću snimku zaslona:

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. Nakon toga, slijedite korak 5 u gornjem savjetu 1 da dodate novu makronaredbu na alatnu traku za brzi pristup.
5. Na kraju možete pokušati. Dobit ćete novu e-poštu koristeći predložak, kao na slici ispod:

Usporedba 2 metode

Nosite se s povremenim Outlook pogreškama

Iako je Outlook bogat značajkama, i dalje je podložan raznim problemima. Štoviše, najuznemirujući je taj što korisnici ne mogu pokrenuti Outlook. Općenito, to se može dogoditi iz pokvaren Outlook. Dakle, možete otići na 'Upravljačku ploču' da popravite uredski paket. Ako se problem nastavi, tada se morate obratiti iskusnom alatu za popravak, kao što je DataNumen Outlook Repair.

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 popravak SQL Server MDF i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com