Marahil ay nakalikha ka ng maraming mga draft na email at inaasahan mong muling magamit ang mga ito maraming beses. Kung gayon, bakit hindi mo i-save ang mga ito bilang mga template ng Outlook? Tuturuan ka ng artikulong ito na magawa ito nang sabay-sabay sa pamamagitan ng VBA.
Bilang default, pinapayagan lamang ng Outlook ang mga gumagamit na mag-save ng isang email bilang template nang sabay-sabay. Sa madaling salita, hindi ka makatipid ng maraming mga draft na email bilang mga template nang maramihan. Tulad ng nakikita mo, kapag pumili ka ng higit sa isang mail at pumunta sa "File"> "I-save Bilang", hindi mo mahahanap ang format na "Outlook Template" sa listahan na "I-save bilang uri", ang "Text Only" lang ang magagamit. Ngunit, ipakikilala namin sa iyo kung paano ito malalaman sa mga sumusunod.
Batch I-save ang Maramihang Mga Draft Email bilang mga Template ng Outlook
- Sa simula pa lang, mag-trigger ng editor ng VBA ng Outlook.
- Sa bagong window na "Microsoft Visual Basic for Applications", kopyahin at i-paste ang VBA code sa ibaba.
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
- Pagkatapos nito, para sa kaginhawaan sa paglaon, iminungkahi na ilakip ang macro na ito sa Quick Access Toolbar (QAT). Tungkol sa detalyadong mga hakbang, maaari mong basahin ang “Paano Patakbuhin ang VBA Code sa Iyong Outlook"
- Sa huli, maaari kang kumuha ng shot sa pamamagitan ng pagsunod sa mga operasyon sa ibaba.
- Sa una, piliin ang mga draft na email upang mai-save bilang mga template.
- Pagkatapos, i-click ang pindutan ng macro sa QAT.
- Kapag natapos ang macro, lalabas ang folder ng Windows para sa pag-save ng mga default na template ng Outlook. Maaari mong makita na ang mga template mula sa napiling mga draft na email ay naroon.
Ang Tool sa Pag-ayos ng Inbox ay Maaari Pa ring Mabigo
Pagdating sa panloob na tool sa pag-aayos ng Outlook - Scanpst, isang mahusay na bilang ng mga gumagamit ang pahalagahan ito. Walang alinlangan, ang utility na ito ay talagang may kakayahang malutas ang karamihan ng mga maliliit na isyu sa Outlook. Gayunpaman, hindi ito ganap na walang kamali-mali. Maaari pa rin itong mabigo at makapagdala ng maraming mga error. Halimbawa, sa kaganapan ng matinding Korapsyon sa Outlook, hindi nito kayang ayusin ang nakompromisong file ng PST. Sa senaryong iyon, wala kang alaternative ngunit gumamit ng isang mas malakas at pinakamataas na tool ng third party, tulad ng DataNumen Outlook Repair.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa