Ehtimol, siz bir nechta qoralama xatlarni yaratgandirsiz va ulardan qayta foydalanishga umid qilayotgandirsiz ko'p marotaba. Agar shunday bo'lsa, nega ularni Outlook shablonlari sifatida ommaviy ravishda saqlamaysiz? Ushbu maqola sizga buni VBA orqali bir marta amalga oshirishni o'rgatadi.
Odatiy bo'lib, Outlook foydalanuvchilarga faqat bitta elektron pochtani bir vaqtning o'zida shablon sifatida saqlashga ruxsat beradi. Boshqacha qilib aytganda, siz bir nechta qoralama xatlarni shablon sifatida ommaviy ravishda saqlay olmaysiz. Ko'rib turganingizdek, bir nechta xatni tanlab, "Fayl" > "Boshqacha saqlash" ga o'tsangiz, "Tiri sifatida saqlash" ro'yxatida "Outlook shabloni" formatini topa olmaysiz, faqat "Faqat matn" mavjud. Ammo, biz buni qanday qilib ommaviy ravishda amalga oshirishni quyida tanishtiramiz.
Bir nechta qoralama elektron pochta xabarlarini Outlook shablonlari sifatida to'plamda saqlang
- Eng boshida Outlook VBA muharririni ishga tushiring.
- Yangi "Microsoft Visual Basic for Applications" oynasida quyidagi VBA kodidan nusxa oling va joylashtiring.
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
- Shundan so'ng, keyingi qulaylik uchun ushbu makrosni Tez kirish asboblar paneliga (QAT) biriktirish tavsiya etiladi. Batafsil qadamlar haqida o'qishingiz mumkin "Outlook-da VBA kodini qanday ishlatish kerak"
- Oxir-oqibat, siz quyidagi amallarni bajarish orqali suratga olishingiz mumkin.
- Avval shablon sifatida saqlash uchun qoralama xatlarni tanlang.
- Keyin, QATdagi so'l tugmasini bosing.
- Makros tugagach, standart Outlook shablonlarini saqlash uchun Windows papkasi paydo bo'ladi. Tanlangan qoralama elektron pochta shablonlari u erda ekanligini ko'rishingiz mumkin.
Kirish qutisini ta'mirlash vositasi hali ham muvaffaqiyatsiz bo'lishi mumkin
Ichki Outlook tuzatish vositasi - Scanpst haqida gap ketganda, ko'plab foydalanuvchilar buni qadrlashadi. Shubhasiz, ushbu yordamchi dastur haqiqatan ham Outlook-dagi ko'pgina kichik muammolarni hal qilishga qodir. Shunga qaramay, u mutlaqo benuqson emas. U hali ham muvaffaqiyatsiz bo'lishi va ko'plab xatolarga olib kelishi mumkin. Masalan, og'ir holatlarda Outlookning buzilishi, buzilgan PST faylini tuzata olmaydi. Bunday stsenariyda sizda kuchliroq va eng yaxshi uchinchi tomon vositasidan foydalanishdan boshqa alternativa yo'q, masalan DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com