Jak v aplikaci Outlook dávkově odpovídat na více e-mailů se stejným obsahem

Mnoho uživatelů požádá o řešení, které jim umožní dávkově odpovědět na více vybraných e-mailů se stejným obsahem v aplikaci Outlook. Ačkoli Outlook takovou funkci neposkytuje, stále toho můžete dosáhnout pomocí kódu VBA.

Slyšel jsem velké množství uživatelů, kteří si stěžují, že Outlook nemá žádnou funkci podporující jejich odesílání stejné odpovědi na více e-mailů najednou. Když vyberou více e-mailů, akce „Odpovědět“ i „Odpovědět všem“ se změní na šedou - zablokují se. Podíváme-li se na toto vydání, budeme dále sdílet metodu realizace této funkce.

Dávkové odpovědi na více e-mailů se stejným obsahem

1. Nejprve spusťte program Outlook.
2. Poté musíte vytvořit odpověď na šablonu, kterou chcete použít k odpovědi na více e-mailů.

• Nejprve vytvořte nový e-mail.
• Poté vytvořte tento e-mail podle toho, na co chcete odpovědět.
• Dále klikněte na „Soubor“ a vyberte možnost „Uložit jako“.
• Později v novém dialogovém okně „Uložit jako“ zadejte název a v poli „Uložit jako typ“ vyberte „Šablona aplikace Outlook“.
• Nakonec stiskněte tlačítko „OK“.

3. Dále můžete e-mail zavřít bez uložení změn.
4. Následně byste měli stisknout tlačítka „Alt + F11“.
5. Poté se zobrazí okno editoru Outlook VBA.
6. Nyní byste měli vyhledat a otevřít projekt „ThisOutlookSession“ a zkopírovat do něj následující kód 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. Nakonec můžete zavřít aktuální okno a vyzkoušet toto makro.

• Nejprve vyberte více e-mailů v seznamu e-mailů.
• Poté na ně klikněte pravým tlačítkem.
• Dále v kontextové nabídce vyberte možnost „Stejná odpověď“.
• Poté budete vyzváni k zadání šablony použité pro odpověď.
• Po zadání jména a stisknutí tlačítka „OK“ bude stejná odpověď odeslána na tyto vybrané e-maily.

Výhled je náchylný k korupci

Jako běžný uživatel aplikace Outlook jsem se setkal s řadou chyb. Proto jsem přijal různá opatření k ochraně svých dat aplikace Outlook. Vzhledem k tomu, že Outlook je náchylný k poškození a havárii lze jen těžko předvídat, musím však být neustále připraven. Například, abych co nejdříve zachránil svá data, nechal jsem si po ruce pozoruhodný nástroj pro obnovení - DataNumen Outlook Repair. Je schopen opravit Outlook pilník bez starostí.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně korupce sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com