2 kiirmeetodit uute meilide loomiseks mallist Outlook VBA abil

Outlooki lahendused September 29, 2025

Kuna paljude kasutajate arvates on Outlooki meilimallide otsimine ja kasutamine tülikas, tutvustame selles artiklis kahte kiiret meetodit uute meilide loomiseks Outlook VBA malli abil.

Enamasti tuleb Outlooki e-posti malli kasutamiseks see esmalt välja selgitada, klõpsates valikutel „Uued üksused” > „Rohkem üksusi” > „Vali vorm”. Seejärel leidke dialoogiboksis „Vali vorm” sihtmallid kaustast „Kasutajamallid failisüsteemis” ja avage need, nagu järgmisel ekraanipildil.

Vali vorm

Ilmselgelt on see tõesti väga tülikas. Seetõttu tutvustame siin kahte kiiret vahendit, mille abil saab Outlook VBA abil mallide abil kiiresti uusi e-kirju luua. Nende üksikasjalikuks saamiseks lugege edasi.

1. meetod: looge Outlook VBA abil otse uus meilimall

  1. Kõigepealt avage Outlooki põhiaknas vahekaart "Arendaja".
  2. Seejärel klõpsake nuppu "Visual Basic", mis toob välja uue akna.
  3. Järgmisena kopeerige ja kleepige moodulisse järgmised VBA-koodid.
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

Looge Outlook VBA abil otse uus meilimall

  1. Pärast seda väljuge aknast "Visual Basic". Nüüd järgige allolevaid samme, et lisada see makro kiirpääsu tööriistaribale.
  • Kõigepealt klõpsake kiirjuurdepääsu tööriistaribal allanoolt ja valige "Veel käske".
  • Seejärel määrake uues hüpikaknas "Vali käsud" väärtusele "Makrod".
  • Pärast seda pange õigele.
  • Järgmisena klõpsake nuppu "Lisa".Lisage kiirjuurdepääsu tööriistaribale uus makromoodul
  • Seejärel saate selle välimust muuta. Klõpsake nuppu "Muuda". Uues dialoogiboksis andke sellele uus nimi ja määrake sellele ikoon.Muutke kiirjuurdepääsu tööriistaribal makro välimust
  • Lõpuks klõpsake kahte nuppu "OK".
  1. Lõpuks saate kiirjuurdepääsu tööriistaribal klõpsata makro ikooni. Kohe avaneb uus sõnumiaken, nagu järgmine pilt.Uus e-kiri Outlook VBA mallist

2. meetod: looge Outlook VBA olemasolevast mallist uus meil

  1. Esiteks peaks teil olema valmis e-posti mall. Looge soovitud vormingus uus e-kiri, kirjatarbed ja salvestage see Outlooki mallina. Üksikasjalikud sammud leiate artiklist "Kuidas Outlooki mallide abil oma tööd tõhustada”. Samuti kirjutage üles selle mallifaili salvestuskausta tee.
  2. Seejärel avage Visual Basicu aken ja avage uus moodul, näiteks Vihje 1.
  3. Seejärel peaksite kopeerima ja kleepima järgmise ekraanipildi:
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

Looge Outlook VBA olemasolevast mallist uus meil

  1. Pärast seda järgige ülaltoodud 5. näpunäites 1. sammu, et lisada kiirpääsu tööriistaribale uus makro.
  2. Lõpuks saate proovida. Saate uue meili malli kasutades, nagu alloleval pildil:Meilisõnum mallist Outlook VBA kaudu

2 meetodi võrdlus

Meetodid Eelis Puudus
Meetod 1 Saate luua meilimalli otse VBA-koodide abil. Sõnumi tekste ei saa vormindada.
Meetod 2 Saate rakendada soovitud kirjatarbeid ja vormindada e-kirja tekste. Peaksite eelnevalt looma uue meilimalli.

Tule toime juhuslike Outlooki vigadega

Kuigi Outlook on funktsiooniderikas, on see siiski vastuvõtlik mitmesugustele probleemidele. Lisaks on kõige häirivam see, et kasutajad ei saa Outlooki käivitada. Üldiselt võib see juhtuda järgmistel põhjustel: rikutud Outlook. Nii saate kontorikomplekti parandamiseks minna juhtpaneelile. Kui probleem püsib, peate kasutama kogenud remonditööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont SQL Server mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.