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.

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