Ako v programe Outlook dávkovo odpovedať na viac e-mailov s rovnakým obsahom

Mnoho používateľov žiada o riešenie, ktoré im umožní hromadne odpovedať na vybrané e-maily s rovnakým obsahom v Outlooku. Aj keď Outlook neposkytuje takúto funkciu, stále to môžete dosiahnuť pomocou kódu VBA.

Počul som veľké množstvo používateľov, ktorí sa sťažovali, že Outlook nemá žiadnu funkciu, ktorá by ich podporovala pri odosielaní rovnakej odpovede na viac e-mailov naraz. Keď vyberú viac e-mailov, akcie „Odpovedať“ a „Odpovedať všetkým“ budú sivé - zablokované. Keď sa pozrieme na toto vydanie ďalej, budeme zdieľať spôsob realizácie tejto funkcie.

Dávkové odpovede na viac e-mailov s rovnakým obsahom

1. V prvom rade spustite program Outlook.
2. Potom musíte vytvoriť odpoveď so šablónou, ktorú chcete použiť na odpovedanie na viac e-mailov.

• Najskôr vytvorte nový e-mail.
• Potom napíšte tento e-mail na základe toho, na čo chcete odpovedať.
• Ďalej kliknite na „Súbor“ a vyberte možnosť „Uložiť ako“.
• Neskôr v novom dialógovom okne „Uložiť ako“ zadajte názov a v poli „Uložiť ako typ“ vyberte možnosť „Šablóna programu Outlook“.
• Nakoniec stlačte tlačidlo „OK“.

3. Ďalej môžete e-mail zavrieť bez uloženia zmien.
4. Následne by ste mali stlačiť klávesové skratky „Alt + F11“.
5. Potom sa zobrazí okno editora Outlook VBA.
6. Teraz by ste mali vyhľadať a otvoriť projekt „ThisOutlookSession“ a skopírovať do neho nasledujúci 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. Nakoniec môžete zavrieť súčasné okno a vyskúšať toto makro.

• Najskôr vyberte v zozname pošty viac e-mailov.
• Potom na ne kliknite pravým tlačidlom myši.
• Ďalej v kontextovej ponuke kliknite na možnosť „Rovnaká odpoveď“.
• Potom budete požiadaní, aby ste určili šablónu použitú na odpoveď.
• Po zadaní mena a stlačení tlačidla „OK“ sa na tieto vybrané e-maily odošle rovnaká odpoveď.

Výhľad je náchylný na korupciu

Ako bežný používateľ Outlooku som sa stretol s rôznymi chybami. Preto som prijal rôzne opatrenia na ochranu svojich údajov programu Outlook. Avšak vzhľadom na skutočnosť, že program Outlook je náchylný na poškodenie a je ťažké ho predpovedať, musím byť neustále pripravený. Napríklad, aby som čo najskôr zachránil svoje údaje, nechal som si po ruke pozoruhodný nástroj na obnovenie - DataNumen Outlook Repair, Je schopný opraviť Outlook pilník bez akýchkoľvek rozruchov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane korupcia sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S