Så här grupperar du svar på flera e-postmeddelanden med samma innehåll i din Outlook

Många användare ber om en lösning som gör det möjligt för dem att gruppsvara flera valda e-postmeddelanden med samma innehåll i Outlook. Även om Outlook inte tillhandahåller en sådan funktion kan du ändå uppnå den via en bit VBA-kod.

Jag har hört ett stort antal användare som klagar på att Outlook inte har någon funktion som stöder dem för att skicka samma svar till flera e-postmeddelanden på en gång. När de väljer flera e-postmeddelanden blir både "Svara" och "Svara alla" -åtgärder gråtonade - inaktiveras. När vi tittar på denna fråga, kommer vi att dela en metod för att förverkliga den här funktionen.

Batch Svara flera e-postmeddelanden med samma innehåll

1. Först och främst, starta ditt Outlook-program.
2. Sedan måste du skapa ett mallsvar som du vill använda för att svara på flera e-postmeddelanden.

• Först och främst, skapa ett nytt e-postmeddelande.
• Skriv sedan det här e-postmeddelandet baserat på vad du vill svara.
• Klicka sedan på "File" och välj "Save As".
• Senare, i den nya dialogrutan "Spara som", mata in ett namn och välj "Outlook-mall" i rutan "Spara som typ".
• Slutligen trycker du på “OK” -knappen.

3. Därefter kan du stänga e-postmeddelandet utan att spara ändringarna.
4. Därefter bör du trycka på “Alt + F11” -knapparna.
5. Därefter visas fönstret för Outlook VBA-redigerare.
6. Nu ska du lokalisera och öppna projektet "ThisOutlookSession" och kopiera följande VBA-kod till det.

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. Slutligen kan du stänga det aktuella fönstret och prova detta makro.

• Välj först flera e-postmeddelanden i e-postlistan.
• Högerklicka sedan på dem.
• Välj sedan och tryck på "Samma svar" i snabbmenyn.
• Då måste du ange mallen som används för svar.
• Efter att ha skrivit in namnet och tryckt på “OK” skickas samma svar till dessa valda e-postmeddelanden.

Outlook är utsatt för korruption

Som en vanlig användare av Outlook har jag varit föremål för en mängd olika fel. Därför har jag vidtagit olika åtgärder för att skydda mina Outlook-data. Men på grund av det faktum att Outlook är mottagligt för skador och krasch är svårt att förutsäga, måste jag hålla mig beredd hela tiden. Till exempel, för att rädda mina data så snart som möjligt, har jag hållit ett anmärkningsvärt återställningsverktyg till hands - DataNumen Outlook Repair. Det kan fixa Outlook fil utan krångel.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com