Kuidas oma Outlookis korraga vastata mitmele sama sisuga meilile

Paljud kasutajad küsivad lahendust, mis võimaldab neil Outlookis mitmele valitud sama sisuga meilile pakk vastata. Kuigi Outlook sellist funktsiooni ei paku, saate selle siiski saavutada VBA-koodi abil.

Olen kuulnud paljusid kasutajaid kurtmas, et Outlookil pole funktsiooni, mis toetaks neil sama vastuse saatmist mitmele meilile korraga. Kui nad valivad mitu meili, muutuvad nii „Vasta” kui ka „Vasta kõigile” toimingud halliks – keelatakse. Vaadeldes seda probleemi, jagame edaspidi meetodit selle funktsiooni realiseerimiseks.

Vastake korraga mitmele sama sisuga meilile

1. Esiteks käivitage oma Outlooki programm.
2. Seejärel peate looma vastuse malli, mida soovite kasutada mitmele meilile vastamiseks.

• Kõigepealt looge uus e-kiri.
• Seejärel koostage see meil selle põhjal, mida soovite vastata.
• Järgmisena klõpsake nuppu "Fail" ja valige "Salvesta nimega".
• Hiljem sisestage uues dialoogiboksis "Salvesta nimega" nimi ja valige "Salvesta kui tüüp" väljast "Outlooki mall".
• Lõpuks vajutage nuppu "OK".

3. Järgmisena saate meili sulgeda ilma muudatusi salvestamata.
4. Seejärel peaksite vajutama klahvikombinatsiooni Alt + F11.
5. Pärast seda kuvatakse Outlook VBA redaktori aken.
6. Nüüd peaksite leidma ja avama projekti "ThisOutlookSession" ja kopeerima sellesse järgmise VBA-koodi.

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. Lõpuks saate sulgeda praeguse akna ja proovida seda makrot.

• Esiteks valige meililoendist mitu meili.
• Seejärel paremklõpsake neid.
• Järgmisena valige ja klõpsake kontekstimenüüs "Sama vastus".
• Seejärel peate määrama vastuseks kasutatava malli.
• Pärast nime sisestamist ja „OK“ vajutamist saadetakse sama vastus neile valitud meilidele.

Outlook on korruptsiooniohtlik

Outlooki tavakasutajana on minul esinenud mitmesuguseid vigu. Seetõttu olen võtnud oma Outlooki andmete kaitsmiseks mitmesuguseid meetmeid. Kuid kuna Outlook on kahjustuste suhtes vastuvõtlik ja krahhi on raske ennustada, pean ma kogu aeg valmis olema. Näiteks oma andmete võimalikult kiireks päästmiseks olen hoidnud käepärast märkimisväärset taastetööriista – DataNumen Outlook Repair. See on võimeline parandada Outlook faili ilma igasuguse kärata.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom