Ինչպես խմբաքանակով պահպանել բազմաթիվ նախագծերի էլփոստեր `որպես Outlook- ի ձևանմուշներ

Գուցե դուք ստեղծել եք մի քանի նամակների նախագիծ և հույս ունեք դրանք կրկին օգտագործել բազմաթիվ անգամ. Եթե ​​այո, ինչու՞ չեք դրանք խմբաքանակով պահում որպես Outlook կաղապարներ: Այս հոդվածը կսովորեցնի ձեզ այն միանգամից իրականացնել VBA- ի միջոցով:

Լռելյայն, Outlook- ը միայն օգտվողներին թույլ է տալիս միանգամից մեկ էլփոստ պահպանել որպես ձևանմուշ: Այլ կերպ ասած, դուք չեք կարող մի քանի հիմնական էլփոստի էլփոստով պահպանել որպես հիմնական ձևանմուշ: Ինչպես տեսնում եք, երբ մեկից ավելի նամակներ եք ընտրում և գնում «Պատկեր»> «Պահել որպես», դուք չեք կարող գտնել «Outlook Կաղապար» ձևաչափը «Պահել որպես տիպ» ցուցակում, առկա է միայն «Միայն տեքստ»: Բայց մենք ձեզ կներկայացնենք, թե ինչպես մեծ մասամբ դա գիտակցել հետևյալ բաժնում:

Խմբաքանակը մի քանի նախագիծ էլփոստի խնայողություն է որպես Outlook ձևանմուշ

1. Հենց սկզբից գործարկեք Outlook VBA խմբագիրը:
2. Նոր «Microsoft Visual Basic հավելվածների համար» պատուհանում պատճենեք և տեղադրեք ներքևում տեղադրված 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

3. Դրանից հետո, հետագա հարմարության համար, առաջարկվում է այս մակրոը կցել Արագ մուտքի գործիքագոտուն (QAT): Մանրամասն քայլերի մասին կարող եք կարդալ «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում"
4. Ի վերջո, կարող եք նկարահանվել ՝ հետևելով ստորև ներկայացված գործողություններին:

• Սկզբում ընտրեք էլփոստի նախագիծը, որը կփրկվի որպես ձևանմուշ:
• Դրանից հետո կտտացրեք մակրո կոճակին QAT- ում:
• Երբ մակրոն ավարտվում է, ցուցադրվում է լռելյայն Outlook կաղապարները փրկելու Windows պանակը: Դուք կարող եք տեսնել, որ ընտրված էլփոստի նամակների ձևանմուշներն այնտեղ են:

Մուտքի արկղերի վերանորոգման գործիքը դեռ կարող է ձախողվել

Երբ խոսքը վերաբերում է ներքին Outlook ֆիքսման գործիքին ՝ Scanpst- ին, մեծ թվով օգտվողներ դա կգնահատեն: Անկասկած, այս օգտակարությունն իսկապես ի վիճակի է լուծել Outlook- ի փոքր խնդիրների մեծ մասը: Այնուամենայնիվ, դա բոլորովին անթերի չէ: Այն դեռ կարող է ձախողվել և առաջ բերել բազմաթիվ սխալներ: Օրինակ, ծանրության դեպքում Հեռանկարային կոռուպցիա, այն ի վիճակի չէ վերականգնել վնասված PST ֆայլը: Այդ սցենարում դուք այլընտրանք չունեք, այլ օգտագործել ավելի հզոր և ծայրամասային երրորդ կողմի գործիք, ինչպես, օրինակ DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com