¿Cómo insertar la firma de Outlook al enviar un correo electrónico en Excel?

Supongamos que desea enviar un correo electrónico directamente en Excel, ¿cómo puede agregar la firma predeterminada de Outlook en el correo? Este artículo proporciona dos métodos para ayudarlo a agregar la firma de Outlook al enviar correos electrónicos en Excel.

Inserte la firma en el correo de Outlook al enviarlo mediante VBA de Excel
Inserte fácilmente la firma de Outlook al enviar un correo electrónico en Excel con una herramienta asombrosa
Más tutoriales para enviar correos desde Excel...

Inserte la firma en el correo de Outlook al enviarlo mediante VBA de Excel

Por ejemplo, hay una lista de direcciones de correo electrónico en una hoja de cálculo, para enviar correos electrónicos a todas estas direcciones en Excel y agregar la firma predeterminada de Outlook en los correos. Por favor, aplique el siguiente código VBA para lograrlo.

1. Abra la hoja de cálculo que contiene la lista de direcciones de correo electrónico a las que desea enviar correo, y luego presione las teclas Alt + F11.

2. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, haga clic en Insertar > Módulo, y luego copie el siguiente VBA 2 en la ventana de código del Módulo.

3. Ahora necesita reemplazar la línea .Body en VBA 2 con el código en VBA 1. Después de eso, mueva la línea .Display debajo de la línea With xMailOut.

VBA 1: Plantilla para enviar correos electrónicos con la firma predeterminada de Outlook en Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Enviar correo electrónico a direcciones especificadas en celdas en Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

La siguiente captura de pantalla puede ayudarlo a encontrar fácilmente las diferencias después de cambiar el código VBA.

4. Presione la tecla F5 para ejecutar el código. Luego aparecerá un cuadro de selección de Kutools para Excel, seleccione las direcciones de correo electrónico a las que enviará los correos y luego haga clic en Aceptar.

Luego se crean los correos electrónicos. Puede ver que la firma predeterminada de Outlook se agrega al final del cuerpo del correo.

Consejos:

• 1. Puede cambiar el cuerpo del correo electrónico en el código VBA 1 según sus necesidades.
• 2. Después de ejecutar el código, si aparece un cuadro de diálogo de error indicando que el tipo definido por el usuario no está definido, cierre este cuadro y luego vaya a hacer clic Herramientas > Referencias en la Microsoft Visual Basic para Aplicaciones ventana. En la ventana que se abre Referencias – VBAProject marque la casilla de Biblioteca de objetos de Microsoft Outlook y haga clic en Aceptar. Y luego ejecute el código nuevamente.
  

Inserte fácilmente la firma de Outlook al enviar un correo electrónico en Excel con una herramienta asombrosa

Si es nuevo en VBA, aquí recomendamos encarecidamente la utilidad Enviar Correos Electrónicos de Kutools para Excel. Con esta función, puede enviar fácilmente correos electrónicos basados en ciertos campos en Excel y agregar la firma de Outlook. Por favor, siga los siguientes pasos.

Primero, necesita crear una lista de correo con diferentes campos en los que se basará para enviar correos.

Puede crear manualmente una lista de correo según sea necesario o aplicar la función Crear Lista de Correo para hacerlo rápidamente.

1. Haga clic en Kutools Plus > Crear Lista de Correo.

2. En el cuadro de diálogo Crear Lista de Correo, especifique los campos que necesita, elija dónde generar la lista y luego haga clic en el botón Aceptar.

3. Ahora se crea una muestra de lista de correo. Como es una lista de muestra, necesita cambiar los campos por cierto contenido necesario. (se permiten múltiples filas)

4. Después de eso, seleccione toda la lista (incluidos los encabezados), haga clic en Kutools Plus > Enviar Correos Electrónicos.

5. En el cuadro de diálogo Enviar Correos Electrónicos:

• 5.1) Los elementos en la lista de correo seleccionada se colocan automáticamente en los campos correspondientes;
• 5.2) Complete el cuerpo del correo electrónico;
• 5.3) Marque ambas casillas Enviar correo electrónico a través de Outlook y Usar configuración de firma de Outlook;
• 5.4) Haga clic en el botón Enviar. Ver captura de pantalla:

Ahora se envían los correos electrónicos. Y la firma predeterminada de Outlook se agrega al final del cuerpo del correo.

Artículos relacionados: