2 greiti metodai, kaip sukurti naujus el. laiškus iš šablono naudojant „Outlook VBA“.

Kadangi daugelis vartotojų mano, kad sudėtinga rasti ir naudoti „Outlook“ el. pašto šablonus, šiame straipsnyje pateiksime 2 greitus būdus, kaip sukurti naujus el. laiškus naudojant šabloną su Outlook VBA.

Dažniausiai norėdami naudoti „Outlook“ el. pašto šabloną, pirmiausia turite jį sužinoti spustelėdami „Nauji elementai“ > „Daugiau elementų“ > „Pasirinkti formą“. Tada dialogo lange „Pasirinkti formą“ raskite ir atidarykite targaukite šablonus skiltyje „Vartotojo šablonai failų sistemoje“, kaip parodyta toliau pateiktoje ekrano kopijoje.

Akivaizdu, kad tai tikrai labai varginanti. Todėl čia pristatysime 2 greitas priemones, kurios gali greitai sukurti naują el. laišką naudojant šablonus Outlook VBA pagalba. Skaitykite toliau, kad gautumėte juos išsamiau.

1 būdas: sukurkite naują el. pašto šabloną tiesiogiai naudodami „Outlook VBA“.

1. Pirmiausia pagrindiniame „Outlook“ lange eikite į skirtuką „Kūrėjas“.
2. Tada spustelėkite mygtuką „Visual Basic“, kuris atvers naują langą.
3. Tada nukopijuokite ir įklijuokite šiuos 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. Po to išeikite iš „Visual Basic“ lango. Dabar atlikite toliau nurodytus veiksmus, kad pridėtumėte šią makrokomandą prie greitosios prieigos įrankių juostos:

• Pirmiausia greitosios prieigos įrankių juostoje spustelėkite rodyklę žemyn ir pasirinkite „Daugiau komandų“.
• Tada naujame iššokančiame lange nustatykite „Pasirinkti komandas iš“ į „Makrokomandos“.
• Po to nustatykite teisingą žingsnį.
• Tada spustelėkite mygtuką „Pridėti“.
• Vėliau galite pakeisti jo išvaizdą. Spustelėkite mygtuką „Keisti“. Naujame dialogo lange suteikite jam naują pavadinimą ir nurodykite jo piktogramą.
• Galiausiai spustelėkite du „Gerai“.

5. Galiausiai greitosios prieigos įrankių juostoje galite spustelėti makrokomandos piktogramą. Iš karto pasirodys naujas pranešimo langas, kaip ir toliau pateiktame paveikslėlyje.

2 būdas: sukurkite naują el. laišką iš esamo šablono naudodami Outlook VBA

1. Pirma, turėtumėte turėti paruoštą el. pašto šabloną. Sukurkite naują norimo formato el. laišką, raštinės reikmenis ir išsaugokite jį kaip „Outlook“ šabloną. Išsamius veiksmus rasite straipsnyje „Kaip pagerinti savo darbo efektyvumą naudojant „Outlook“ šablonus“. Taip pat užsirašykite šio šablono failo išsaugojimo aplanko kelią.
2. Tada eikite į „Visual Basic“ langą ir atidarykite naują modulį, pvz., 1 patarimą.
3. Vėliau turėtumėte nukopijuoti ir įklijuoti šią ekrano kopiją:

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. Po to atlikite 5 veiksmą aukščiau pateiktame 1 patarime, kad pridėtumėte naują makrokomandą prie greitosios prieigos įrankių juostos.
5. Galų gale galite pabandyti. Naują el. laišką gausite naudodami šabloną, kaip paveikslėlyje žemiau:

2 metodų palyginimas

Susidoroti su retkarčiais „Outlook“ klaidomis

Nors „Outlook“ yra daug funkcijų, joje vis tiek gali kilti įvairių problemų. Be to, most erzina tai, kad vartotojai negali start Outlook. Apskritai tai gali atsirasti nuo sugadinta Outlook. Taigi galite eiti į „Valdymo skydą“, kad pataisytumėte biuro rinkinį. Jei problema išlieka, turite kreiptis į patyrusį remonto įrankį, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server MDF ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com