Ինչպես խմբաքանակով պատասխանել բազմաթիվ էլփոստի նույն բովանդակությամբ ձեր Outlook-ում

Շատ օգտատերեր լուծում են խնդրում, որը թույլ կտա նրանց խմբաքանակով պատասխանել մի քանի ընտրված էլ. նամակներին՝ Outlook-ում նույն բովանդակությամբ: Թեև Outlook-ը նման հատկություն չի տրամադրում, դուք դեռ կարող եք դրան հասնել VBA կոդի մի մասի միջոցով:

Ես լսել եմ բազմաթիվ օգտատերերի, ովքեր բողոքում են, որ Outlook-ը չունի գործառույթ, որն աջակցում է նրանց միևնույն պատասխանը մի քանի նամակներին ուղարկելու համար: Երբ նրանք ընտրում են մի քանի էլ. Նայելով այս խնդրին, այսուհետ մենք կկիսվենք այս հատկանիշն իրացնելու մեթոդով:

Բազմաթիվ պատասխաններ նույն բովանդակությամբ էլ

1. Նախևառաջ, գործարկեք ձեր Outlook ծրագիրը։
2. Այնուհետև դուք պետք է ստեղծեք պատասխանի ձևանմուշ, որը ցանկանում եք օգտագործել բազմաթիվ էլ. նամակներին պատասխանելու համար:

• Նախևառաջ, ստեղծեք նոր էլ.
• Այնուհետև գրեք այս նամակը՝ հիմնվելով այն բանի վրա, ինչ ցանկանում եք պատասխանել:
• Հաջորդը, սեղմեք «Ֆայլ» և ընտրեք «Պահպանել որպես» տարբերակը:
• Ավելի ուշ, նոր «Պահպանել որպես» երկխոսության վանդակում մուտքագրեք անունը և «Պահպանել որպես տիպ» վանդակում ընտրեք «Outlook Կաղապար»:
• Ի վերջո, սեղմեք «OK» կոճակը:

3. Հաջորդը, դուք կարող եք փակել էլփոստը առանց փոփոխությունները պահելու:
4. Այնուհետև դուք պետք է սեղմեք «Alt + F11» կոճակները:
5. Դրանից հետո կցուցադրվի Outlook VBA խմբագրի պատուհանը:
6. Այժմ դուք պետք է գտնեք և բացեք «ThisOutlookSession» նախագիծը և դրա մեջ պատճենեք հետևյալ VBA կոդը:

Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
 
       'Add a "Same Reply" option to the context menu
       With objCommandBarButton
           .Style = msoButtonIconAndCaption
           .Caption = "Same Reply"
           .FaceId = 355
           .OnAction = "Project1.ThisOutlookSession.SendSameReply"
       End With
    End If
End Sub

Sub SendSameReply()
    Dim strTemplate As String
    Dim objTemplateReply As Outlook.MailItem
    Dim strHTMLBody As String
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objReply As Outlook.MailItem
 
    'Input the name of the previously saved template
    strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
    Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
    strHTMLBody = objTemplateReply.HTMLBody
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    For i = objSelection.count To 1 Step -1
        Set objReply = objSelection(i).Reply
        With objReply
             .HTMLBody = strHTMLBody & objReply.HTMLBody
             .Send
        End With
    Next
End Sub

7. Վերջապես, դուք կարող եք փակել ընթացիկ պատուհանը և փորձել այս մակրոները:

• Նախ, ընտրեք մի քանի նամակներ փոստի ցանկում:
• Այնուհետև աջ սեղմեք դրանց վրա:
• Հաջորդը, ընտրեք և սեղմեք «Նույն պատասխանը» տարբերակը համատեքստի ընտրացանկում:
• Այնուհետև ձեզանից կպահանջվի նշել պատասխանի համար օգտագործվող ձևանմուշը:
• Անունը մուտքագրելուց և «OK» սեղմելուց հետո նույն պատասխանը կուղարկվի այս ընտրված նամակներին:

Հեռանկարները հակված են կոռուպցիայի

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

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

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