2 hurtige metoder til at oprette nye e-mails fra en skabelon med Outlook VBA

Da mange brugere synes, det er besværligt at finde og bruge Outlook-e-mail-skabeloner, viser vi 2 hurtige metoder til at oprette nye e-mails ved hjælp af en skabelon med Outlook VBA i denne artikel.

For at bruge en Outlook-e-mailskabelon skal du oftest finde den ved at klikke på "Nye elementer" > "Flere elementer" > "Vælg formular". I dialogboksen "Vælg formular" skal du finde og åbne målskabelonerne i "Brugerskabeloner i filsystemet", som vist på følgende skærmbillede.

Det er åbenbart meget besværligt. Derfor introducerer vi her 2 hurtige midler, som hurtigt kan oprette ny e-mail ved hjælp af skabeloner ved hjælp af Outlook VBA. Læs videre for at få dem i detaljer.

Metode 1: Opret en ny e-mail-skabelon direkte af Outlook VBA

1. Drej først til fanen “Udvikler” i hovedvinduet i Outlook.
2. Klik derefter på “Visual Basic” -knappen, som viser et nyt vindue.
3. Kopier og indsæt derefter følgende VBA-koder i et 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. Derefter forlades vinduet “Visual Basic”. Følg nu nedenstående trin for at tilføje denne makro til værktøjslinjen Hurtig adgang:

• Først skal du klikke på pil ned i værktøjslinjen Hurtig adgang og vælge “Flere kommandoer”.
• Derefter skal du i det nye pop op-vindue indstille "Vælg kommandoer fra" til "Makroer".
• Derefter, pitch på den rigtige.
• Klik derefter på knappen "Tilføj".
• Derefter kan du ændre dets udseende. Klik på knappen "Rediger". I den nye dialogboks skal du give det et nyt navn og angive et ikon for det.
• Til sidst skal du klikke på to “OK”.

5. Endelig kan du klikke på makroikonet i værktøjslinjen Hurtig adgang. Straks vises et nyt meddelelsesvindue som det følgende billede.

Metode 2: Opret en ny e-mail fra en eksisterende skabelon af Outlook VBA

1. For det første skal du have en klar e-mail-skabelon i hånden. Opret en ny e-mail i ønsket format, papirvarer og gem den som Outlook-skabelon. For detaljerede trin henvises til artiklen “Sådan forbedres din arbejdseffektivitet via Outlook-skabeloner”. Skriv også den gemte mappesti for denne skabelonfil ned.
2. Gå derefter ind i “Visual Basic” -vinduet, og åbn et nyt modul som tip 1.
3. Derefter skal du kopiere og indsætte følgende skærmbillede:

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. Derefter skal du følge trin 5 i ovenstående tip 1 for at tilføje den nye makro til Quick Access Toolbar.
5. Til sidst kan du prøve. Du får den nye e-mail ved hjælp af skabelonen, som billedet nedenfor:

Sammenligning af de 2 metoder

Håndter lejlighedsvise Outlook-fejl

Selvom Outlook er rigt på funktioner, er det stadig modtageligt for forskellige problemer. Desuden er det mest irriterende, at brugerne ikke kan starte Outlook. Generelt kan det forekomme fra beskadiget Outlook. Så du kan gå til 'Kontrolpanel' for at reparere kontorpakken. Hvis problemet fortsætter, skal du benytte dig af et erfaren reparationsværktøj som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere SQL Server MDF og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com