Cara Menyimpan Banyak Draf Email sebagai Template Outlook

Mungkin Anda telah membuat beberapa draf email dan berharap dapat menggunakannya kembali berkali-kali. Jika demikian, mengapa Anda tidak menyimpannya sebagai templat Outlook? Artikel ini akan mengajari Anda untuk mencapainya sekaligus melalui VBA.

Secara default, Outlook hanya mengizinkan pengguna untuk menyimpan satu email sebagai templat sekaligus. Dengan kata lain, Anda tidak dapat menyimpan beberapa draf email sebagai template secara massal. Seperti yang Anda lihat, saat Anda memilih lebih dari satu email dan masuk ke "File"> "Save As", Anda tidak dapat menemukan format "Outlook Template" dalam daftar "Save as type", hanya "Text Only" yang tersedia. Tapi, kami akan memperkenalkan Anda cara merealisasikannya secara massal di bagian berikut.

Batch Save Multiple Draft Emails sebagai Outlook Templates

1. Pertama-tama, picu editor Outlook VBA.
2. Di jendela "Microsoft Visual Basic for Applications" baru, salin dan tempel kode VBA di bawah ini.

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. Setelah itu, untuk kenyamanan nanti, disarankan untuk melampirkan makro ini ke Quick Access Toolbar (QAT). Tentang langkah-langkah mendetail, Anda dapat membaca "Cara Menjalankan Kode VBA di Outlook Anda"
4. Pada akhirnya, Anda dapat mengambil bidikan dengan mengikuti operasi di bawah ini.

• Pertama-tama, pilih draf email yang akan disimpan sebagai template.
• Kemudian, klik tombol makro di QAT.
• Saat makro selesai, folder Windows untuk menyimpan templat Outlook default akan ditampilkan. Anda dapat melihat bahwa template dari draf email yang dipilih ada di sana.

Alat Perbaikan Kotak Masuk Masih Bisa Gagal

Ketika datang ke alat perbaikan Outlook internal - Scanpst, sejumlah besar pengguna akan menghargainya. Tidak diragukan lagi, utilitas ini memang mampu menyelesaikan sebagian besar masalah kecil di Outlook. Namun, itu tidak sepenuhnya sempurna. Itu masih bisa gagal dan memunculkan banyak kesalahan. Misalnya pada saat terjadi kejadian parah Korupsi Outlook, itu tidak dapat memperbaiki file PST yang disusupi. Dalam skenario itu, Anda tidak memiliki alaternative selain menggunakan alat pihak ketiga yang lebih kuat dan tip-top, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com