2 brza metoda za kreiranje novih e-poruka iz predloška pomoću Outlook VBA

Budući da mnogi korisnici misle da je glomazno pronaći i koristiti Outlook šablone e-pošte, u ovom članku ćemo izložiti 2 brza metoda za kreiranje novih e-poruka pomoću predloška s Outlook VBA.

Najčešće, da biste koristili Outlook predložak e-pošte, 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 sistemu", kao što je prikazano na sljedećem snimku ekrana.

Očigledno, to je zaista veoma problematično. Stoga ćemo ovdje predstaviti 2 brza sredstva koja mogu brzo kreirati novu e-poštu koristeći šablone uz pomoć Outlook VBA. Čitajte dalje da biste ih detaljno saznali.

Metoda 1: Kreirajte novi predložak e-pošte direktno putem Outlook VBA

1. Prvo, okrenite karticu "Razvojnik" u glavnom prozoru programa Outlook.
2. Zatim kliknite na dugme "Visual Basic", što će otvoriti 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 dolje navedene korake da dodate ovaj makro na alatnu traku za brzi pristup:

• Prvo kliknite na strelicu nadole na alatnoj traci za brzi pristup i izaberite „Više komandi“.
• Zatim u novom iskačućem prozoru postavite “Izaberite komande od” na “Makroi”.
• Nakon toga, postavite pravi.
• Zatim kliknite na dugme „Dodaj“.
• Nakon toga možete promijeniti njegov izgled. Kliknite na dugme "Izmeni". U novom dijaloškom okviru dajte mu novo ime i odredite ikonu za njega.
• Na kraju kliknite dva “OK”.

5. Konačno, možete kliknuti na ikonu makroa na traci sa alatkama za brzi pristup. Odmah će se pojaviti novi prozor sa porukom, kao na sljedećoj slici.

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

1. Prvo, trebalo bi da imate gotov šablon e-pošte u ruci. Kreirajte novu e-poštu u željenom formatu, kancelarijski materijal i sačuvajte je kao Outlook predložak. Za detaljne korake pogledajte članak “Kako poboljšati svoju radnu efikasnost putem Outlook predložaka”. Također, molimo zapišite putanju mape za spremanje ove datoteke šablona.
2. Zatim pristupite prozoru “Visual Basic” i otvorite novi modul kao što je Savjet 1.
3. Nakon toga, trebali biste kopirati i zalijepiti sljedeći snimak ekrana:

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 5. korak u gornjem Savjetu 1 da dodate novi makro na alatnu traku za brzi pristup.
5. Na kraju možete probati. Dobićete novu e-poštu koristeći šablon, kao na slici ispod:

Poređenje 2 metode

Nosite se s povremenim greškama u Outlooku

Iako je Outlook bogat funkcijama, i dalje je podložan raznim problemima. Štaviše, najneugodniji je taj što korisnici ne mogu pokrenuti Outlook. Općenito, to se može dogoditi iz oštećen Outlook. Dakle, možete otići na 'Control Panel' da popravite uredski paket. Ako problem i dalje postoji, morate se obratiti iskusnom alatu za popravku, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Popravak SQL Server mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com