2 სწრაფი მეთოდი შაბლონიდან ახალი ელფოსტის შესაქმნელად Outlook VBA-ით

ვინაიდან ბევრი მომხმარებელი ფიქრობს, რომ რთულია Outlook-ის ელ.ფოსტის შაბლონების პოვნა და გამოყენება, ამ სტატიაში წარმოგიდგენთ 2 სწრაფ მეთოდს ახალი ელ.ფოსტის შესაქმნელად 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 ფანჯრიდან. ახლა მიჰყევით ქვემოთ მოცემულ ნაბიჯებს, რომ დაამატოთ ეს მაკრო სწრაფი წვდომის ხელსაწყოთა ზოლში:

• თავდაპირველად დააწკაპუნეთ ქვემოთ ისარს სწრაფი წვდომის ინსტრუმენტთა პანელში და აირჩიეთ „მეტი ბრძანებები“.
• შემდეგ ახალ ამომხტარ ფანჯარაში დააყენეთ „აირჩიეთ ბრძანებები“-ზე „მაკროები“.
• ამის შემდეგ დადექით სწორზე.
• შემდეგი, დააჭირეთ ღილაკს "დამატება".
• შემდგომში შეგიძლიათ შეცვალოთ მისი გარეგნობა. დააჭირეთ ღილაკს "შეცვლა". ახალ დიალოგურ ფანჯარაში მიეცით მას ახალი სახელი და მიუთითეთ ხატულა მისთვის.
• ბოლოს დააჭირეთ ორ "OK".

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.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის სარემონტო SQL Server mdf და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად