Cómo responder por lotes a varios correos electrónicos con el mismo contenido en Outlook

Muchos usuarios solicitan una solución que les permita responder por lotes varios correos electrónicos seleccionados con el mismo contenido en Outlook. Aunque Outlook no proporciona dicha función, aún puede lograrla a través de un fragmento de código VBA.

He escuchado a un gran número de usuarios quejarse de que Outlook no tiene una función que les permita enviar una misma respuesta a varios correos electrónicos de una sola vez. Cuando seleccionan varios correos electrónicos, las acciones "Responder" y "Responder a todos" aparecerán atenuadas; desactívelas. En cuanto a este tema, a continuación, compartiremos un método para realizar esta característica.

Responder por lotes varios correos electrónicos con el mismo contenido

1. En primer lugar, start su programa Outlook.
2. Luego, debe crear una plantilla de respuesta que desee utilizar para responder a varios correos electrónicos.

• En primer lugar, cree un nuevo correo electrónico.
• Luego, redacte este correo electrónico según lo que desee responder.
• A continuación, haga clic en "Archivo" y elija la opción "Guardar como".
• Más tarde, en el nuevo cuadro de diálogo "Guardar como", ingrese un nombre y seleccione "Plantilla de Outlook" en el cuadro "Guardar como tipo".
• Por último, presione el botón "Aceptar".

3. A continuación, puede cerrar el correo electrónico sin guardar los cambios.
4. Posteriormente, debe presionar los botones de tecla "Alt + F11".
5. Después de eso, se mostrará la ventana del editor de Outlook VBA.
6. Ahora, debe ubicar y abrir el proyecto "ThisOutlookSession" y copiar el siguiente código VBA en él.

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. Finalmente, puede cerrar la ventana actual y probar esta macro.

• En primer lugar, seleccione varios correos electrónicos en la lista de correo.
• Luego, haz clic derecho sobre ellos.
• A continuación, elija y presione la opción "Misma respuesta" en el menú contextual.
• Luego, se le pedirá que especifique la plantilla utilizada para responder.
• Después de ingresar el nombre y presionar "Aceptar", se enviará la misma respuesta a estos correos electrónicos seleccionados.

Outlook es propenso a la corrupción

Como usuario habitual de Outlook, he estado sujeto a una variedad de errores. Por lo tanto, he tomado varias medidas para proteger mis datos de Outlook. Sin embargo, debido al hecho de que Outlook es susceptible de sufrir daños y es difícil predecir el bloqueo, debo estar preparado todo el tiempo. Por ejemplo, para rescatar mis datos lo antes posible, he tenido a mano una notable herramienta de recuperación: DataNumen Outlook Repair. Es capaz de arreglar Outlook archivo sin ningún problema.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupción sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com