¿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 existentes 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 del botón.

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

🤖	Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
	Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
	Super búsqueda: Búsqueda virtual de criterios múltiples  |   Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
	Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
	Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
	Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas   |  Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas   |  Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
	Los 15 mejores conjuntos de herramientas:  12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

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

---

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...