Outlook VBA ilə Şablondan Yeni E-poçtlar Yaratmaq üçün 2 Sürətli Metod

Bir çox istifadəçi Outlook e-poçt şablonlarını tapıb istifadə etməyin çətin olduğunu düşündüyü üçün bu məqalədə Outlook VBA ilə şablondan istifadə edərək yeni e-poçtlar yaratmaq üçün 2 sürətli üsul nümayiş etdirəcəyik.

Çox vaxt Outlook e-poçt şablonundan istifadə etmək üçün əvvəlcə "Yeni Məhsullar" > "Daha Çox Məhsul" > "Forma Seçin" düymələrini basaraq onu tapmalısınız. Daha sonra "Forma Seçin" informasiya qutusunda, aşağıdakı ekran görüntüsündə olduğu kimi, hədəf şablonlarını "Fayl Sistemində İstifadəçi Şablonları" bölməsində tapın və açın.

Aydındır ki, bu, həqiqətən də çox əziyyətlidir. Buna görə də, burada Outlook VBA köməyi ilə şablonlardan istifadə edərək sürətlə yeni e-poçt yarada bilən 2 sürətli vasitə təqdim edəcəyik. Onları ətraflı öyrənmək üçün oxuyun.

Metod 1: Outlook VBA ilə birbaşa yeni e-poçt şablonu yaradın

1. Əvvəlcə Outlook əsas pəncərəsində "Tərtibatçı" sekmesine keçin.
2. Sonra yeni pəncərəni açacaq "Visual Basic" düyməsini basın.
3. Sonra, aşağıdakı VBA kodlarını modula köçürün və yapışdırın.

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. Bundan sonra "Visual Basic" pəncərəsindən çıxın. İndi bu makronu Tez Giriş Alətlər Panelinə əlavə etmək üçün aşağıdakı addımları yerinə yetirin:

• Əvvəlcə Tez Giriş Alətlər Panelində aşağı oxu vurun və "Daha çox əmrlər" seçin.
• Sonra yeni açılan pəncərədə "Əmrləri seçin" seçimini "Makrolar"a təyin edin.
• Bundan sonra, düzgün olanı yerləşdirin.
• Sonra, "Əlavə et" düyməsini basın.
• Sonradan onun görünüşünü dəyişə bilərsiniz. "Dəyişdir" düyməsini basın. Yeni dialoq qutusunda ona yeni ad verin və onun üçün bir ikona təyin edin.
• Sonda iki "OK" düyməsini basın.

5. Nəhayət, Tez Giriş Alətlər Panelində makro ikonasını vura bilərsiniz. Dərhal aşağıdakı şəkildəki kimi yeni mesaj pəncərəsi açılacaq.

Metod 2: Outlook VBA ilə mövcud şablondan yeni e-poçt yaradın

1. Birincisi, əlinizdə hazır bir e-poçt şablonu olmalıdır. İstədiyiniz formatda, dəftərxana ləvazimatlarında yeni e-poçt yaradın və onu Outlook şablonu kimi saxlayın. Ətraflı addımlar üçün " məqaləsinə baxınOutlook Şablonları vasitəsilə İş Səmərəliliyinizi necə artırmaq olar”. Həmçinin, bu şablon faylının saxlama qovluğunun yolunu yazın.
2. Sonra “Visual Basic” pəncərəsinə daxil olun və İpucu 1 kimi yeni modulu açın.
3. Sonra, aşağıdakı ekran görüntüsünü kopyalayıb yapışdırmalısınız:

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. Bundan sonra, Tez Giriş Alətlər Panelinə yeni makro əlavə etmək üçün yuxarıdakı İpucu 5-də 1-ci addımı izləyin.
5. Nəhayət, bir cəhd edə bilərsiniz. Aşağıdakı şəkildəki kimi şablondan istifadə edərək yeni e-poçt alacaqsınız:

2 metodun müqayisəsi

Bəzən Outlook Səhvlərinin öhdəsindən gəlin

Outlook funksiyalarla zəngin olsa da, yenə də müxtəlif problemlərə həssasdır. Üstəlik, ən narahatedicisi istifadəçilərin Outlook-u işə sala bilməməsidir. Ümumiyyətlə, bu, baş verə bilər. zədələnmiş Outlook. Beləliklə, siz ofis dəstini təmir etmək üçün "İdarəetmə Paneli"nə keçə bilərsiniz. Problem davam edərsə, o zaman təcrübəli təmir alətinə müraciət etməlisiniz, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir SQL Server mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com