Być może utworzyłeś kilka roboczych wiadomości e-mail i masz nadzieję, że wykorzystasz je ponownie wiele razy. Jeśli tak, dlaczego nie zapisujesz ich zbiorczo jako szablony programu Outlook? Ten artykuł nauczy Cię, jak wykonać to za jednym razem przez VBA.
Domyślnie Outlook zezwala użytkownikom tylko na zapisanie jednej wiadomości e-mail jako szablonu naraz. Innymi słowy, nie można zbiorczo zapisywać wielu roboczych wiadomości e-mail jako szablonów. Jak widać, po wybraniu więcej niż jednej wiadomości e-mail i wybraniu opcji „Plik”> „Zapisz jako” nie można znaleźć formatu „Szablon programu Outlook” na liście „Zapisz jako typ”, dostępna jest tylko opcja „Tylko tekst”. Ale poniżej przedstawimy Ci, jak masowo to zrealizować.
Batch Zapisz wiele roboczych wiadomości e-mail jako szablony programu Outlook
- Na samym początku uruchom edytor Outlook VBA.
- W nowym oknie „Microsoft Visual Basic for Applications” skopiuj i wklej poniższy kod VBA.
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
- Następnie, dla późniejszej wygody, zaleca się dołączenie tego makra do paska narzędzi szybkiego dostępu (QAT). O szczegółowych krokach możesz przeczytać „Jak uruchomić kod VBA w swoim Outlooku"
- Ostatecznie możesz zrobić zdjęcie, wykonując poniższe czynności.
- Najpierw wybierz wersje robocze wiadomości e-mail, które mają zostać zapisane jako szablony.
- Następnie kliknij przycisk makra na pasku narzędzi QAT.
- Po zakończeniu działania makra zostanie wyświetlony folder Windows do zapisywania domyślnych szablonów programu Outlook. Możesz zobaczyć, że szablony z wybranych roboczych wiadomości e-mail są tam.
Narzędzie do naprawy skrzynki odbiorczej nadal może się nie powieść
Jeśli chodzi o wewnętrzne narzędzie do naprawy Outlooka - Scanpst, doceni je duża liczba użytkowników. Niewątpliwie to narzędzie jest rzeczywiście w stanie rozwiązać większość drobnych problemów w Outlooku. Jednak nie jest to całkowicie bezbłędne. Nadal może zawieść i wywołać wiele błędów. Na przykład w przypadku ciężkiego Uszkodzenie programu Outlook, nie jest w stanie naprawić uszkodzonego pliku PST. W tym scenariuszu nie masz innej alternatywy, jak tylko użyć potężniejszego i najlepszego narzędzia innej firmy, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com