2 бързи метода за създаване на нови имейли от шаблон с Outlook VBA

Тъй като много потребители смятат, че е тромаво да се намират и използват шаблони за имейли на Outlook, в тази статия ще покажем 2 бързи метода за създаване на нови имейли с помощта на шаблон с Outlook VBA.

Най-често, за да използвате шаблон за имейл в Outlook, първо трябва да го откриете, като щракнете върху „Нови елементи“ > „Още елементи“ > „Избор на формуляр“. След това в диалоговия прозорец „Избор на формуляр“ намерете и отворете целевите шаблони в „Потребителски шаблони във файловата система“, както е показано на следната екранна снимка.

Очевидно наистина е много обезпокоително. Ето защо тук ще представим 2 бързи средства, които могат бързо да създадат нов имейл с помощта на шаблони с помощта на Outlook VBA. Прочетете, за да ги получите подробно.

Метод 1: Създайте нов шаблон за имейл директно от Outlook VBA

1. Отначало се обърнете към раздела „Разработчик“ в главния прозорец на Outlook.
2. След това кликнете върху бутона „Visual Basic“, който ще отвори нов прозорец.
3. След това копирайте и поставете следните модули на VBA в модул.

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. След това излезте от прозореца „Visual Basic“. Сега следвайте стъпките по-долу, за да добавите този макрос към лентата с инструменти за бърз достъп:

• Отначало щракнете върху стрелката надолу в лентата с инструменти за бърз достъп и изберете „Още команди“.
• След това в новия изскачащ прозорец задайте „Избор на команди от“ на „Макроси“.
• След това наклонете правилния.
• След това щракнете върху бутона „Добавяне“.
• Впоследствие можете да промените външния му вид. Щракнете върху бутона „Промяна“. В новия диалогов прозорец му дайте ново име и посочете икона за него.
• Накрая кликнете две „OK“.

5. И накрая, можете да щракнете върху иконата на макрос в лентата с инструменти за бърз достъп. Веднага ще се появи нов прозорец за съобщение, като следната снимка.

Метод 2: Създайте нов имейл от съществуващ шаблон от Outlook VBA

1. Първо, трябва да имате готов шаблон за имейл в ръка. Създайте нов имейл в желания формат, канцеларски материали и го запазете като шаблон на Outlook. За подробни стъпки вижте статията „Как да подобрите ефективността на работата си чрез шаблони на Outlook”. Също така, моля, запишете пътя на папката за запазване на този файл с шаблон.
2. След това отворете прозореца „Visual Basic“ и отворете нов модул като Съвет 1.
3. Впоследствие трябва да копирате и поставите следната екранна снимка:

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. След това следвайте стъпка 5 в горния Съвет 1, за да добавите новия макрос към лентата с инструменти за бърз достъп.
5. В крайна сметка можете да опитате. Ще получите новия имейл с помощта на шаблона, като изображението по-долу:

Сравнение на 2 метода

Справяне с случайни грешки в Outlook

Въпреки че Outlook е богат на функции, той все още е податлив на различни проблеми. Нещо повече, най-неприятният от тях е, че потребителите не могат да стартират Outlook. Като цяло това може да се случи от повреден Outlook. Така че можете да отидете в „Контролен панел“, за да поправите офисния пакет. Ако проблемът продължава, трябва да се обърнете към опитен инструмент за ремонт, като например DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт SQL Server MDF и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com