Outlook VBA- ի ձևանմուշից նոր էլ.փոստեր ստեղծելու 2 արագ մեթոդ

Քանի որ շատ օգտվողներ կարծում են, որ դժվար է գտնել և օգտագործել Outlook էլփոստի ձևանմուշները, մենք այս հոդվածում կներկայացնենք երկու արագ մեթոդ նոր էլփոստեր ստեղծելու համար ՝ օգտագործելով 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» պատուհանից: Այժմ հետևեք ստորև նշված քայլերին ՝ այս մակրոտն արագ մուտքի գործիքագոտում ավելացնելու համար.

• Սկզբում կտտացրեք ներքևի սլաքը Արագ մուտքի գործիքագոտում և ընտրեք «Լրացուցիչ հրամաններ»:
• Դրանից հետո նոր ելնող պատուհանում տեղադրեք «Ընտրեք հրամաններ» -ից «Մակրոներ»:
• Դրանից հետո բարձրացրեք ճիշտը:
• Հաջորդը կտտացրեք «Ավելացնել» կոճակին:
• Դրանից հետո կարող եք փոխել դրա տեսքը: Կտտացրեք «Փոփոխել» կոճակին: Նոր երկխոսության դաշտում տվեք նրան նոր անուն և նշեք դրա համար պատկերակ:
• Վերջապես կտտացրեք երկու «Լավ» կոճակին:

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.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում նորոգում SQL Server MDF և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com