Бірнеше электрондық пошта хабарларын Outlook шаблоны ретінде қалай сақтауға болады

Outlook шешімдері Қыркүйек 29, 2025

Мүмкін сіз бірнеше электрондық пошта хабарламаларын жасадыңыз және оларды қайта пайдалануға үміттенесіз көп рет. Олай болса, неге оларды Outlook шаблоны ретінде сақтамайсыз? Бұл мақала оны VBA арқылы бір сәтте орындауға үйретеді.

Әдепкі бойынша, Outlook пайдаланушыларға бірден бір электрондық поштаны шаблон ретінде сақтауға рұқсат береді. Басқаша айтқанда, сіз бірнеше электрондық пошта хабарламаларын шаблон ретінде жаппай сақтай алмайсыз. Көріп отырғаныңыздай, сіз бірнеше поштаны таңдап, «Файл»> «Басқаша сақтау» тармағына өткенде, «Түр ретінде сақтау» тізімінен «Outlook шаблоны» пішімін таба алмайсыз, тек «Тек мәтін» қол жетімді. Бірақ, біз мұны қалай жүзеге асыруға болатындығын келесіде келтіреміз.

Бірнеше электрондық пошта хабарламаларын жиынтық түрінде Outlook шаблоны ретінде сақтаңыз

Ең басында Outlook VBA редакторын іске қосыңыз.
Жаңа «Microsoft Visual Basic for Applications» терезесінде төмендегі 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

Осыдан кейін, кейінірек ыңғайлы болу үшін осы макросты жылдам қол жетімді құралдар тақтасына (QAT) қосу ұсынылады. Толығырақ қадамдар туралы сіз «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«
Сайып келгенде, сіз төмендегі әрекеттерді орындау арқылы түсірілім жасай аласыз.

Алдымен шаблон ретінде сақталатын электрондық пошта жобасын таңдаңыз.
Содан кейін QAT ішіндегі макро батырманы басыңыз.
Макросты аяқтаған кезде әдепкі Outlook үлгілерін сақтауға арналған Windows қалтасы шығады. Таңдалған электрондық пошта шаблондарының сол жерде екенін көруге болады.

Кіріс жәшігін жөндеу құралы сәтсіз аяқталуы мүмкін

Ішкі Outlook түзету құралы - Scanpst туралы айтатын болсақ, көптеген қолданушылар оны бағалайды. Әрине, бұл утилита Outlook бағдарламасындағы көптеген ұсақ мәселелерді шешуге қабілетті. Бұл мүлдем мінсіз емес. Ол әлі де сәтсіздікке ұшырауы мүмкін және көптеген қателіктер тудыруы мүмкін. Мысалы, ауыр жағдайда Сыбайлас жемқорлық көрінісі, ол бұзылған PST файлын жөндей алмайды. Бұл сценарийде сізде альтернативті сөз жоқ, бірақ мықты және үшінші жақ құралын пайдаланыңыз, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com