Több piszkozat e-mail csoportos mentése Outlook-sablonként

Lehet, hogy több e-mail piszkozatot készített, és reméli, hogy újra felhasználhatja őket sokszor. Ha igen, miért nem menti őket köteggel Outlook-sablonként? Ez a cikk megtanítja Önnek, hogy ezt egy lépésben hajtsa végre VBA-n keresztül.

Alapértelmezés szerint az Outlook csak egyetlen e-mailt egyszerre menthet sablonként. Más szóval, nem menthet el tömegesen több piszkozatot sablonként. Amint láthatja, ha egynél több levelet választ ki, és a „Fájl” > „Mentés másként” menüpontra lép, nem találja az „Outlook-sablon” formátumot a „Mentés típusa” listában, csak a „Csak szöveg” elérhető. De a következőkben bemutatjuk, hogyan lehet tömegesen megvalósítani.

Több vázlatos e-mail kötegelt mentése Outlook-sablonként

1. A legelején indítsa el az Outlook VBA-szerkesztőt.
2. Az új „Microsoft Visual Basic for Applications” ablakban másolja ki és illessze be az alábbi VBA-kódot.

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. Ezt követően a későbbi kényelem érdekében javasoljuk, hogy csatolja ezt a makrót a Gyorselérési eszköztárhoz (QAT). A részletes lépésekről itt olvashat: "A VBA kód futtatása az Outlookban"
4. Végül az alábbi műveletek végrehajtásával készíthet felvételt.

• Először válassza ki a sablonként menteni kívánt e-mail-piszkozatokat.
• Ezután kattintson a makró gombra a QAT-ban.
• Amikor a makró befejeződik, megjelenik az alapértelmezett Outlook-sablonok mentésére szolgáló Windows mappa. Láthatja, hogy a kiválasztott e-mail-piszkozatok sablonjai ott vannak.

A beérkező levelek javítóeszköze továbbra is meghibásodhat

Ha a belső Outlook javítóeszközről – a Scanpstről – van szó, sok felhasználó értékelni fogja. Kétségtelen, hogy ez a segédprogram valóban képes megoldani az Outlook apróbb problémáinak többségét. Ennek ellenére nem teljesen hibátlan. Még mindig meghibásodhat, és sok hibát jelezhet. Például súlyos súlyosság esetén Az Outlook korrupciója, nem tudja kijavítani a feltört PST-fájlt. Ebben a forgatókönyvben nincs más választása, mint egy erősebb és csúcsminőségű harmadik féltől származó eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com