2 ātras metodes jaunu e-pasta ziņojumu izveidei no veidnes, izmantojot Outlook VBA

Tā kā daudzi lietotāji uzskata, ka ir apgrūtinoši atrast un lietot Outlook e-pasta veidnes, šajā rakstā mēs parādīsim 2 ātras metodes jaunu e-pasta ziņojumu izveidei, izmantojot veidni programmā Outlook VBA.

Visbiežāk, lai izmantotu Outlook e-pasta veidni, tā vispirms ir jāatrod, noklikšķinot uz “Jauni vienumi” > “Vairāk vienumu” > “Izvēlēties veidlapu”. Pēc tam dialoglodziņā “Izvēlēties veidlapu” atrodiet un atveriet mērķa veidnes sadaļā “Lietotāju veidnes failu sistēmā”, kā parādīts tālāk redzamajā ekrānuzņēmumā.

Acīmredzot tas patiešām ir ļoti apgrūtinoši. Tāpēc šeit mēs iepazīstināsim ar 2 ātriem līdzekļiem, kas var ātri izveidot jaunu e-pastu, izmantojot veidnes ar Outlook VBA palīdzību. Lasiet tālāk, lai tos iegūtu sīkāk.

1. metode: izveidojiet jaunu e-pasta veidni tieši, izmantojot Outlook VBA

1. Vispirms Outlook galvenajā logā atveriet cilni “Izstrādātājs”.
2. Pēc tam noklikšķiniet uz pogas Visual Basic, kas parādīs jaunu logu.
3. Pēc tam kopējiet un ielīmējiet šādus VBA kodus 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. Pēc tam izejiet no loga “Visual Basic”. Tagad veiciet tālāk norādītās darbības, lai pievienotu šo makro ātrās piekļuves rīkjoslai:

• Vispirms ātrās piekļuves rīkjoslā noklikšķiniet uz lejupvērstās bultiņas un atlasiet “Citas komandas”.
• Pēc tam jaunajā uznirstošajā logā iestatiet “Izvēlēties komandas no” uz “Makro”.
• Pēc tam uzlieciet pareizo piķi.
• Pēc tam noklikšķiniet uz pogas "Pievienot".
• Pēc tam jūs varat mainīt tā izskatu. Noklikšķiniet uz pogas "Modificēt". Jaunajā dialoglodziņā piešķiriet tam jaunu nosaukumu un norādiet tam ikonu.
• Visbeidzot noklikšķiniet uz diviem “OK”.

5. Visbeidzot, ātrās piekļuves rīkjoslā varat noklikšķināt uz makro ikonas. Tūlīt tiks parādīts jauns ziņojuma logs, piemēram, nākamajā attēlā.

2. metode: izveidojiet jaunu e-pasta ziņojumu no esošas veidnes, izmantojot Outlook VBA

1. Pirmkārt, jums ir jābūt gatavai e-pasta veidnei. Izveidojiet jaunu e-pastu vēlamajā formātā, rakstāmpiederumus un saglabājiet to kā Outlook veidni. Detalizētas darbības skatiet rakstā "Kā uzlabot darba efektivitāti, izmantojot Outlook veidnes”. Tāpat, lūdzu, pierakstiet šīs veidnes faila saglabāšanas mapes ceļu.
2. Pēc tam piekļūstiet logam Visual Basic un atveriet jaunu moduli, piemēram, 1. padomu.
3. Pēc tam jums vajadzētu kopēt un ielīmēt šādu ekrānuzņēmumu:

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. Pēc tam veiciet 5. darbību iepriekš minētajā 1. padomā, lai ātrās piekļuves rīkjoslai pievienotu jauno makro.
5. Galu galā jūs varat mēģināt. Jūs saņemsiet jauno e-pasta ziņojumu, izmantojot veidni, piemēram, attēlā zemāk:

2 metožu salīdzinājums

Tikt galā ar neregulārām Outlook kļūdām

Lai gan programma Outlook ir bagāta ar funkcijām, tā joprojām ir pakļauta dažādām problēmām. Turklāt visnepatīkamākā no tām ir tā, ka lietotāji nevar palaist programmu Outlook. Parasti tas var notikt no bojāts Outlook. Tātad jūs varat doties uz "Vadības paneli", lai labotu biroja komplektu. Ja problēma joprojām pastāv, jums ir jāizmanto pieredzējis remonta rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts SQL Server mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar