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

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

Inserte la firma en el correo electrónico de Outlook al enviar por Excel VBA
Inserte fácilmente la firma de Outlook al enviar correos electrónicos en Excel con una herramienta increíble
Más tutoriales para enviar por correo en Excel ...

Inserte la firma en el correo electrónico de Outlook al enviar por Excel VBA

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

1. Abra la hoja de trabajo que contiene la lista de direcciones de correo electrónico a la que desea enviar un correo electrónico y luego presione el otro + F11 llaves.

2. En la apertura Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, y luego copia lo siguiente VBA 2 en la ventana Código del módulo.

3. Ahora debe reemplazar el .Cuerpo en linea VBA 2 con el código en VBA 1. Después de eso, mueve la línea. .Monitor debajo de la linea Con xMailOut.

VBA 1: Plantilla de envío de correos electrónicos con firma predeterminada de Outlook en Excel

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

VBA 2: envíe un correo electrónico a las direcciones de correo electrónico especificadas en las celdas de 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 el F5 clave para ejecutar el código. Entonces un Kutools for Excel aparece el cuadro de selección, seleccione las direcciones de correo electrónico a las que enviará los correos electrónicos y luego haga clic en DE ACUERDO.

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

Consejos:

• 1. Puede cambiar el cuerpo del correo electrónico en el código 1 de VBA según sus necesidades.
• 2. Después de ejecutar el código, si aparece un cuadro de diálogo de error que advierte que el tipo definido por el usuario no está definido, cierre este cuadro de diálogo y luego haga clic en Herramientas > Referencias en el capítulo respecto a la Microsoft Visual Basic para aplicaciones ventana. En la apertura Referencias - VBAProject ventana, compruebe la Biblioteca de objetos de Microsoft Outlook cuadro y clic DE ACUERDO. Y luego ejecute el código nuevamente.
  

Inserte fácilmente la firma de Outlook al enviar correos electrónicos en Excel con una herramienta increíble

Si eres un novato en VBA, aquí recomiendo encarecidamente el Enviar correos electrónicos utilidad de Kutools for Excel para ti. Con esta función, puede enviar fácilmente correos electrónicos basados ​​en ciertos campos en Excel y agregarles la firma de Outlook. Haz lo siguiente.

En primer lugar, debe crear una lista de correo con diferentes campos en los que enviará correos electrónicos.

Puede crear manualmente una lista de correo según lo necesite o aplicar la función Crear lista de correo para hacerlo rápidamente.

1. Hacer clic en Kutools Más > Crear lista de distribución.

2. En el Crear lista de distribución cuadro de diálogo, especifique los campos que necesita, elija dónde mostrar la lista y luego haga clic en el OK

3. Ahora se crea una muestra de lista de correo. Como es una lista de muestra, debe cambiar los campos a cierto contenido necesario. (se permiten varias filas)

4. Después de eso, seleccione la lista completa (incluya encabezados), haga clic en Kutools Más > Enviar correos electrónicos.

5. En el Enviar correos electrónicos caja de diálogo:

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

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

Artículos relacionados:

---

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
• ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...