Si të ruani në grup emaile të shumëfishta draft si shabllone të Outlook

Ndoshta ju keni krijuar disa draft email-e dhe shpresoni t'i ripërdorni ato shume here. Nëse po, pse nuk i ruani ato në grup si shabllone të Outlook? Ky artikull do t'ju mësojë ta përmbushni atë me një lëvizje përmes VBA.

Si parazgjedhje, Outlook i lejon përdoruesit vetëm të ruajnë një email të vetëm si shabllon menjëherë. Me fjalë të tjera, nuk mund të ruani me shumicë emaile të shumta draft si shabllone. Siç mund ta shihni, kur zgjidhni më shumë se një postë dhe shkoni te "File" > "Ruaj si", nuk mund të gjeni formatin "Outlook Template" në listën "Ruaj si lloj", disponohet vetëm "Text Only". Por, ne do t'ju prezantojmë se si ta realizoni në masë në vijim.

Ruaj në grup emaile të shumëfishta draft si shabllone të Outlook

1. Që në fillim, aktivizoni redaktorin VBA të Outlook.
2. Në dritaren e re "Microsoft Visual Basic për Aplikacione", kopjoni dhe ngjisni kodin VBA më poshtë.

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. Pas kësaj, për lehtësi të mëvonshme, sugjerohet të bashkëngjitni këtë makro në shiritin e veglave të aksesit të shpejtë (QAT). Rreth hapave të detajuar, mund të lexoni "Si të ekzekutoni kodin VBA në Outlook tuaj"
4. Në fund të fundit, ju mund të bëni një fotografi duke ndjekur veprimet e mëposhtme.

• Fillimisht, zgjidhni draft email-et që do të ruhen si shabllone.
• Pastaj, klikoni butonin makro në QAT.
• Kur të përfundojë makroja, do të shfaqet dosja e Windows për ruajtjen e shablloneve të paracaktuar të Outlook. Mund të shihni që shabllonet nga draft-e-mail-et e zgjedhura janë atje.

Mjeti i riparimit të kutisë hyrëse ende mund të dështojë

Kur bëhet fjalë për mjetin e brendshëm të rregullimit të Outlook – Scanpst, një numër i madh përdoruesish do ta vlerësojnë atë. Pa dyshim, ky mjet është me të vërtetë i aftë të zgjidhë shumicën e çështjeve të vogla në Outlook. Megjithatë, nuk është plotësisht i përsosur. Ai ende mund të dështojë dhe të sjellë shumë gabime. Për shembull, në rast të rëndë Perspektiva e korrupsionit, nuk është në gjendje të riparojë skedarin e komprometuar PST. Në atë skenar, ju nuk keni alternativë tjetër veçse të përdorni një mjet më të fuqishëm dhe më të lartë të palës së tretë, si p.sh. DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com