Enviar email con firma desde hoja Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

Podemos enviar email con archivo adjunto y con una firma desde la hoja Excel.

Enviar email con firma desde hoja Excel

En la columna A disponemos de los encabezados de los datos del email y en la columna B escribiremos los valores del email.

 A
1 
2
Para:
3
CC:
4
CCOO:
5
Asunto:
6
Mensaje a:
7
Mensaje b:
8
Mensaje c:
9
Mensaje d:
10
11
Archivo adjunto 1:
12
Adjunto 2:
13
14
Firma nombre:
15
Departamento:
16
Empresa:
17
Email:
18
web:
19
Logo empresa:
  • VALORES DEL EMAIL
  1. Ir a: Celda B2 / Escribir: email1@email.com. O el correo deseado del destinatario.

  2. Ir a: Celda B3 / Escribir: email2@email.com. O el correo deseado con copia.

  3. Ir a: Celda B4 / Escribir: email3@email.com. O el correo deseado con copia oculta.

  4. Ir a: Celda B5 / Escribir: Informe mensual. O el asunto deseado para el correo.

  5. Ir a: Celda B6 / Escribir: Buenos días, O el saludo deseado para el correo.

  6. Ir a: Celda B7 / Escribir: Remito el informe mensual con los datos actualizados. O el cuerpo de correo deseado.

  7. Ir a: Celda B8 / Escribir: El texto deseado. Como añadido al cuerpo del mensaje.

  8. Ir a: Celda B9 / Escribir: Saludos. Como despedida del cuerpo del mensaje.

    Datos para el correo electrónico en la hoja Excel
  9. Ir a: Celda B11 / Escribir: C:\Informe1.pdf. O la ruta y el archivo 1 adjunto.

  10. Ir a: Celda B12 / Escribir: C:\Informe2.pdf. O la ruta y el archivo 2 adjunto, si se desea.

    Guardar Informe1.pdf e Informe2.pdf en la ruta indicada, como archivos adjuntos.

     
  11. Ir a: Celda B14 / Escribir: Nuestro nombre y apellidos. Para la firma del correo.

  12. Ir a: Celda B15 / Escribir: Nuestro departamento. Para la firma del correo.

  13. Ir a: Celda B16 / Escribir: El nombre de nuestra empresa. Para la firma del correo.

  14. Ir a: Celda B17 / Escribir: Nuestro correo electrónico. Para la firma del correo.

  15. Ir a: Celda B18 / Escribir: Nuestra web. Para la firma del correo.

  16. Ir a: Celda B19 / Escribir: C:\imagenes\Logo.jpg. O la ruta y el archivo con la imagen del logotipo de la empresa para la firma del correo.

Datos de la firma para el correo
 
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. Escribir el código de la macro:

    Sub Email_Firma()

    Dim mi_App As Object
    Dim mi_Correo As Object

    Set mi_App = CreateObject("Outlook.Application")
    mi_App.Session.logon

    Set mi_Correo = mi_App.CreateItem(0)
    ActiveWorkbook.Save

    On Error Resume Next

    With mi_Correo
    body1 = Range("B6").Value
    body2 = Range("B7").Value
    body3 = Range("B8").Value
    body4 = Range("B9").Value

    firma_nombre = Range("B14").Value
    firma_departamento = Range("B15").Value
    firma_empresa = Range("B16").Value
    firma_email = Range("B17").Value
    firma_web = Range("B18").Value
    firma_logo = Range("B19").Value

    .To = Range("B2").Value
    .CC = Range("B3").Value
    .BCC = Range("B4").Value
    .Subject = Range("B5").Value

    .HTMLBody = "<p>" & body1 & "<br><br>" & body2 & "<br>" & body3 & "<br>" & body4 & "<br><br><br><br></p>" & "<p><img src='d:\305246620.jpg" & Pathimag & "' border=0>" & "<br>" & firma_nombre & "<br>" & firma_departamento & "<br>" & firma_empresa & "<br>" & firma_email & "<br>" & firma_web & "<br><br>" & "</p>"
    .Attachments.Add Range("B11").Value
    .Attachments.Add Range("B12").Value
    .DeleteAfterSubmit = False
    .Send
    End With

    MsgBox "Email enviado con éxito"

    On Error GoTo 0

    Set mi_Correo = Nothing
    Set mi_App = Nothing

    End Sub

    .DeleteAfterSubmit = False; Almacena copia en bandeja enviados; True, no almacena.

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

 
  • INSERTAR BOTÓN
  1. Ir a: Cinta de opciones / Pestaña: Desarrollador / Grupo: Controles / Insertar / Controles de formulario / Botón.

    Asignar una macro a un botón en Excel: Botón insertar, mostrando los controles disponibles
  2. Ir a la hoja / Trazar un área rectangular para el botón. Mostrará ventana de Asignar macro.

    Ventana de asignar macro con la macro deseada
  3. Ir a: Nombre de la macro / Clic sobre: Email_Adjunto. Para seleccionar la macro.

  4. Pulsar el botón Aceptar. Asigna la macro al botón.

Hoja Excel con el botón para ejecutar macro
 
  • INSERTAR REFERENCIA
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Herramientas / Referencias. Mostrará la ventana de referencias VBAProject.

  4. Activar la casilla: Microsoft Outlook 16.0 Object Library (El número representa la versión de Excel).

  5. Pulsar el botón Aceptar. Cierra la ventana y activa la libreria.

 
  • EJECUTAR MACRO
  1. Ejecutar la macro "Email_Adjunto".

  2. Mostrará mensaje de confirmación de envío.

    Mensaje de confirmación email enviado con éxito
  3. Verificar como se envía el email con el archivo adjunto y con firma.

Vista del correo electrónico con firma recibido

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

2 comentarios en “Enviar email con firma desde hoja Excel

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.