Comment répondre par lots à plusieurs e-mails avec le même contenu dans votre Outlook

De nombreux utilisateurs demandent une solution leur permettant de répondre par lots à plusieurs e-mails sélectionnés avec le même contenu dans Outlook. Bien qu'Outlook ne fournisse pas une telle fonctionnalité, vous pouvez toujours l'obtenir via un morceau de code VBA.

J'ai entendu un grand nombre d'utilisateurs se plaindre qu'Outlook n'a pas de fonction les aidant à envoyer une même réponse à plusieurs e-mails en une seule fois. Lorsqu'ils sélectionnent plusieurs e-mails, les actions "Répondre" et "Répondre à tous" deviennent grisées - sont désactivées. En examinant ce problème, ci-après, nous partagerons une méthode pour réaliser cette fonctionnalité.

Répondre par lots à plusieurs e-mails avec le même contenu

1. En premier lieu, start votre programme Outlook.
2. Ensuite, vous devez créer un modèle de réponse que vous souhaitez utiliser pour répondre à plusieurs e-mails.

• Tout d'abord, créez un nouvel e-mail.
• Ensuite, composez cet e-mail en fonction de ce à quoi vous souhaitez répondre.
• Ensuite, cliquez sur "Fichier" et choisissez l'option "Enregistrer sous".
• Plus tard, dans la nouvelle boîte de dialogue « Enregistrer sous », saisissez un nom et sélectionnez « Modèle Outlook » dans la boîte « Enregistrer sous le type ».
• Enfin, appuyez sur le bouton "OK".

3. Ensuite, vous pouvez fermer l'e-mail sans enregistrer les modifications.
4. Ensuite, vous devez appuyer sur les touches "Alt + F11".
5. Après cela, la fenêtre de l'éditeur Outlook VBA s'affichera.
6. Maintenant, vous devez localiser et ouvrir le projet "ThisOutlookSession" et y copier le code VBA suivant.

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. Enfin, vous pouvez fermer la fenêtre en cours et essayer cette macro.

• Tout d'abord, sélectionnez plusieurs e-mails dans la liste de diffusion.
• Ensuite, faites un clic droit dessus.
• Ensuite, choisissez et appuyez sur l'option "Même réponse" dans le menu contextuel.
• Ensuite, vous devrez spécifier le modèle utilisé pour la réponse.
• Après avoir saisi le nom et cliqué sur "OK", la même réponse sera envoyée à ces e-mails sélectionnés.

Outlook est sujet à la corruption

En tant qu'utilisateur régulier d'Outlook, j'ai été sujet à diverses erreurs. Par conséquent, j'ai pris diverses mesures pour protéger mes données Outlook. Cependant, étant donné qu'Outlook est susceptible d'être endommagé et qu'il est difficile de prévoir un plantage, je dois rester préparé tout le temps. Par exemple, afin de récupérer mes données au plus vite, j'ai gardé à portée de main un remarquable outil de récupération - DataNumen Outlook Repair. Il est capable de réparer Outlook fichier sans prise de tête.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris corruption sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com