Outlook VBA ile Bir Şablondan Yeni E-postalar Oluşturmanın 2 Hızlı Yöntemi

Pek çok kullanıcı Outlook e-posta şablonlarını bulmayı ve kullanmayı zahmetli bulduğundan, bu makalede Outlook VBA ile bir şablon kullanarak yeni e-postalar oluşturmak için 2 hızlı yöntem göstereceğiz.

Outlook e-posta şablonu kullanmak için genellikle öncelikle "Yeni Öğeler" > "Daha Fazla Öğe" > "Form Seç" yolunu izleyerek şablonu bulmanız gerekir. Ardından, "Form Seç" iletişim kutusunda, aşağıdaki ekran görüntüsünde olduğu gibi, "Dosya Sistemindeki Kullanıcı Şablonları" bölümünde hedef şablonları bulun ve açın.

Açıkçası, gerçekten çok sıkıntılı. Bu nedenle, burada Outlook VBA'nın yardımıyla şablonları kullanarak hızla yeni e-posta oluşturabilen 2 hızlı aracı tanıtacağız. Bunları ayrıntılı olarak öğrenmek için okumaya devam edin.

Yöntem 1: Doğrudan Outlook VBA ile Yeni Bir E-posta Şablonu Oluşturun

1. İlk olarak, Outlook ana penceresindeki “Geliştirici” sekmesine dönün.
2. Ardından, yeni bir pencere açacak olan “Visual Basic” düğmesine tıklayın.
3. Ardından, aşağıdaki VBA kodlarını bir modüle kopyalayıp yapıştı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" penceresinden çıkın. Şimdi bu makroyu Hızlı Erişim Araç Çubuğuna eklemek için aşağıdaki adımları izleyin:

• İlk başta, Hızlı Erişim Araç Çubuğundaki aşağı oku tıklayın ve "Diğer Komutlar"ı seçin.
• Ardından, yeni açılır pencerede "Komutları seç" öğesini "Makrolar" olarak ayarlayın.
• Bundan sonra, doğru olana adım atın.
• Ardından, "Ekle" düğmesini tıklayın.
• Daha sonra görünümünü değiştirebilirsiniz. "Değiştir" düğmesini tıklayın. Yeni iletişim kutusunda ona yeni bir ad verin ve onun için bir simge belirleyin.
• Son olarak iki “Tamam”a tıklayın.

5. Son olarak, Hızlı Erişim Araç Çubuğundaki makro simgesine tıklayabilirsiniz. Hemen, aşağıdaki resimdeki gibi yeni bir mesaj penceresi açılacaktır.

Yöntem 2: Outlook VBA ile Mevcut Bir Şablondan Yeni Bir E-posta Oluşturma

1. Öncelikle elinizde hazır bir e-posta şablonu olmalıdır. İstediğiniz formatta yeni bir e-posta oluşturun, kırtasiye ve Outlook şablonu olarak kaydedin. Ayrıntılı adımlar için “ makalesine bakın.Outlook Şablonları ile İş Verimliliğinizi Nasıl Artırırsınız?”. Ayrıca, lütfen bu şablon dosyasının kaydetme klasörü yolunu not edin.
2. Ardından “Visual Basic” penceresine erişin ve Tip 1 gibi yeni bir modül açın.
3. Ardından, aşağıdaki ekran görüntüsünü kopyalayıp yapıştırmanız gerekir:

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, yeni makroyu Hızlı Erişim Araç Çubuğuna eklemek için yukarıdaki 5. İpucundaki Adım 1'i izleyin.
5. Sonunda bir deneyebilirsin. Aşağıdaki resimdeki gibi şablonu kullanarak yeni e-postayı alacaksınız:

2 Yöntemin Karşılaştırılması

Ara sıra Outlook Hatalarıyla Başa Çıkın

Outlook özellik bakımından zengin olsa da, çeşitli sorunlara karşı hassastır. Dahası, en can sıkıcı sorunlardan biri de kullanıcıların Outlook'u başlatamamasıdır. Genel olarak, bu sorun şu nedenlerden kaynaklanabilir: bozuk Outlook. Böylece ofis paketini onarmak için 'Denetim Masası'na gidebilirsiniz. Sorun devam ederse, deneyimli bir onarım aracına başvurmanız gerekir. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL Server mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com