Ola bilsin ki, siz bir neçə qaralama e-məktub yaratmısınız və onlardan yenidən istifadə edəcəyinizi ümid edirik dəfələrlə. Əgər belədirsə, niyə onları toplu olaraq Outlook şablonları kimi saxlamırsınız? Bu məqalə sizə bunu VBA vasitəsilə bir anda yerinə yetirməyi öyrədəcək.
Varsayılan olaraq, Outlook istifadəçilərə yalnız bir e-poçtu bir anda şablon kimi saxlamağa icazə verir. Başqa sözlə, birdən çox qaralama e-poçtu toplu olaraq şablon kimi saxlaya bilməzsiniz. Gördüyünüz kimi, birdən çox məktub seçib “Fayl” > “Fərqli Saxla” bölməsinə keçdiyiniz zaman “Outlook Şablonu” formatını “Növ kimi saxla” siyahısında tapa bilməzsiniz, yalnız “Yalnız mətn” mövcuddur. Lakin, biz sizə aşağıdakıları toplu şəkildə necə həyata keçirəcəyinizi təqdim edəcəyik.
Çoxlu Qaralama E-poçtu Outlook Şablonları kimi Toplu Saxlayın
- Ən başlanğıcda Outlook VBA redaktorunu işə salın.
- Yeni “Microsoft Visual Basic for Applications” pəncərəsində aşağıdakı VBA kodunu kopyalayıb yapışdı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
- Bundan sonra, daha sonra rahatlıq üçün bu makronu Tez Giriş Alətlər Panelinə (QAT) əlavə etmək tövsiyə olunur. Ətraflı addımlar haqqında oxuya bilərsiniz "Outlook-da VBA kodunu necə işlətmək olar"
- Nəhayət, aşağıdakı əməliyyatlara əməl etməklə bir çəkiliş edə bilərsiniz.
- Əvvəlcə şablon kimi saxlanacaq qaralama e-poçtları seçin.
- Sonra, QAT-da makro düyməsini basın.
- Makro tamamlandıqda, standart Outlook şablonlarını saxlamaq üçün Windows qovluğu görünəcək. Seçilmiş qaralama e-poçtlardan şablonların orada olduğunu görə bilərsiniz.
Gələnlər Qutunu Təmir Aləti Yenə də uğursuz ola bilər
Daxili Outlook düzəltmə alətinə gəldikdə - Scanpst, çox sayda istifadəçi bunu qiymətləndirəcəkdir. Şübhəsiz ki, bu yardım proqramı həqiqətən Outlook-da kiçik məsələlərin əksəriyyətini həll etməyə qadirdir. Bununla belə, tamamilə qüsursuz deyil. Hələ də uğursuz ola bilər və bir çox səhvlərə səbəb ola bilər. Məsələn, ağır vəziyyətdə Outlook korrupsiyası, o, pozulmuş PST faylını təmir edə bilmir. Bu ssenaridə daha güclü və yüksək keyfiyyətli üçüncü tərəf alətindən istifadə etməkdən başqa alternativiniz yoxdur, 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 sql bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com