Birden Çok Taslak E-postayı Outlook Şablonları Olarak Toplu Olarak Kaydetme

Belki birkaç taslak e-posta oluşturdunuz ve bunları yeniden kullanmayı umuyorsunuz. bir cok zaman. Öyleyse, neden bunları Outlook şablonları olarak toplu olarak kaydetmiyorsunuz? Bu makale size bunu VBA aracılığıyla tek seferde gerçekleştirmeyi öğretecek.

Varsayılan olarak Outlook, kullanıcıların aynı anda yalnızca tek bir e-postayı şablon olarak kaydetmesine izin verir. Başka bir deyişle, birden çok taslak e-postayı toplu olarak şablon olarak kaydedemezsiniz. Gördüğünüz gibi birden fazla mail seçip “Dosya” > “Farklı Kaydet” seçeneğine gittiğinizde “Kaydetme türü” listesinde “Outlook Şablonu” formatını bulamıyor, sadece “Text Only” mevcut. Ancak, aşağıda toplu olarak nasıl gerçekleştirileceğini size tanıtacağız.

Birden Çok Taslak E-postayı Outlook Şablonları Olarak Toplu Olarak Kaydetme

1. En başta, Outlook VBA düzenleyicisini tetikleyin.
2. Yeni “Uygulamalar için Microsoft Visual Basic” penceresinde, aşağıdaki VBA kodunu kopyalayıp yapıştırın.

Sub SaveMultipleDraftsAsTemplates()
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim strTemplateFolder As String
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
 
    'Get all selected mails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Get the default folder for saving Outlook Templates
       strTemplateFolder = CStr(Environ("USERPROFILE")) & "\Documents\UserTemplates\"
 
       'Save each mail as template
       For i = objSelection.Count To 1 Step -1
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Subject <> "" Then
 
                 'Remove unsupported characters
                 strSubject = objMail.Subject
                 strSubject = Replace(strSubject, "/", " ")
                 strSubject = Replace(strSubject, "\", " ")
                 strSubject = Replace(strSubject, ":", "")
                 strSubject = Replace(strSubject, "?", " ")
                 strSubject = Replace(strSubject, Chr(34), " ")
 
                 objMail.SaveAs strTemplateFolder & strSubject & ".oft", olTemplate
              Else
                 objMail.SaveAs strTemplateFolder & "Template" & i & ".oft", olTemplate
              End If
           End If
       Next
 
       'Open the folder of Templates
       Shell "Explorer.exe" & " " & strTemplateFolder, vbNormalFocus
    End If
End Sub

3. Bundan sonra, daha sonra kolaylık olması için bu makronun Hızlı Erişim Araç Çubuğuna (QAT) eklenmesi önerilir. Ayrıntılı adımlar hakkında “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?"
4. Son olarak aşağıdaki işlemleri takip ederek çekim yapabilirsiniz.

• İlk olarak, şablon olarak kaydedilecek taslak e-postaları seçin.
• Ardından, QAT'taki makro düğmesine tıklayın.
• Makro tamamlandığında, varsayılan Outlook şablonlarını kaydetmek için Windows klasörü görüntülenir. Seçilen taslak e-postalardaki şablonların orada olduğunu görebilirsiniz.

Gelen Kutusu Onarım Aracı Hala Başarısız Olabilir

Dahili Outlook düzeltme aracı Scanpst söz konusu olduğunda, çok sayıda kullanıcı bunu takdir edecektir. Kuşkusuz, bu yardımcı program gerçekten de Outlook'taki küçük sorunların çoğunu çözme yeteneğine sahiptir. Yine de tamamen kusursuz değil. Yine de başarısız olabilir ve birçok hata getirebilir. Örneğin, ciddi bir durumda Outlook bozulması, güvenliği ihlal edilmiş PST dosyasını onaramaz. Bu senaryoda, daha güçlü ve üstün nitelikli bir üçüncü taraf aracı kullanmaktan başka seçeneğiniz yoktur. 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. sql kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com