2 rýchle metódy na vytváranie nových e-mailov zo šablóny pomocou aplikácie Outlook VBA

Pretože toľko používateľov si myslí, že je ťažké nájsť a používať e-mailové šablóny Outlooku, v tomto článku si ukážeme 2 rýchle spôsoby vytvárania nových e-mailov pomocou šablóny s Outlookom VBA.

Ak chcete použiť šablónu e-mailu v programe Outlook, najčastejšie ju musíte najprv nájsť kliknutím na „Nové položky“ > „Ďalšie položky“ > „Vybrať formulár“. Potom v dialógovom okne „Vybrať formulár“ vyhľadajte a otvorte cieľové šablóny v časti „Šablóny používateľov v súborovom systéme“, ako je to na nasledujúcej snímke obrazovky.

Je zrejmé, že je to skutočne veľmi problematické. Preto tu predstavíme 2 rýchle prostriedky, ktoré pomocou aplikácie Outlook VBA môžu rýchlo vytvárať nový e-mail pomocou šablón. Čítajte ďalej, aby ste ich dostali podrobne.

Metóda 1: Vytvorte novú šablónu e-mailu priamo pomocou aplikácie Outlook VBA

1. Najprv sa obráťte na kartu „Vývojár“ v hlavnom okne Outlooku.
2. Potom kliknite na tlačidlo „Visual Basic“, ktoré otvorí nové okno.
3. Ďalej skopírujte a vložte nasledujúce kódy VBA do modulu.

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. Potom ukončite okno „Visual Basic“. Teraz postupujte podľa pokynov na pridanie tohto makra na Panel s nástrojmi Rýchly prístup:

• Najskôr kliknite na šípku nadol na paneli s nástrojmi Rýchly prístup a vyberte možnosť „Viac príkazov“.
• Potom v novom vyskakovacom okne nastavte možnosť „Vybrať príkazy z“ na „Makrá“.
• Potom posuňte ten správny.
• Ďalej kliknite na tlačidlo „Pridať“.
• Následne môžete zmeniť jeho vzhľad. Kliknite na tlačidlo „Upraviť“. V novom dialógovom okne mu dajte nový názov a zadajte ikonu.
• Nakoniec kliknite na dve „OK“.

5. Nakoniec môžete kliknúť na ikonu makra na paneli s nástrojmi Rýchly prístup. Okamžite sa zobrazí nové okno so správou, ako napríklad nasledujúci obrázok.

Metóda 2: Vytvorenie nového e-mailu z existujúcej šablóny pomocou aplikácie Outlook VBA

1. Najskôr by ste mali mať v ruke pripravenú e-mailovú šablónu. Vytvorte nový e-mail v požadovanom formáte, písacie potreby a uložte ho ako šablónu programu Outlook. Podrobné kroky nájdete v článku „Ako zvýšiť efektivitu svojej práce pomocou šablón programu Outlook“. Tiež si prosím zapíšte cestu k ukladaciemu priečinku tohto súboru šablóny.
2. Potom vstúpte do okna „Visual Basic“ a otvorte nový modul, napríklad Tip 1.
3. Následne by ste mali skopírovať a vložiť nasledujúcu snímku obrazovky:

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. Potom postupujte podľa kroku 5 vo vyššie uvedenom tipe 1 a pridajte nové makro na panel s nástrojmi Rýchly prístup.
5. Nakoniec to môžete vyskúšať. Nový e-mail dostanete pomocou šablóny, napríklad obrázka nižšie:

Porovnanie 2 metód

Vyrovnajte sa s občasnými chybami v programe Outlook

Hoci je Outlook bohatý na funkcie, stále je náchylný na rôzne problémy. Najnepríjemnejším z nich je, že používatelia nemôžu Outlook spustiť. Vo všeobecnosti sa to môže stať z poškodený Outlook. Môžete teda ísť do ovládacieho panela a opraviť tak kancelársky balík. Ak problém pretrváva, musíte sa obrátiť na skúsený nástroj na opravu, ako je napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava SQL Server MDF a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S