ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA

Hola a todos, ¿qué tal estáis?, espero que muy bien.

En el post de hoy voy os mostraré un método para incorporar imágenes y texto en un correo que vamos a enviar desde Outlook pero utilizando VBA en Excel.

Este tema suele ser muy recurrente y no es la primera vez que me piden en la web una macro para realizar esta tarea.

En una hoja Excel utilizaré dos columnas, una para indicar el correo electrónico y otra para indicar el texto de correo que queremos enviar:

ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA

Para enviar el correo utilizaremos la siguiente macro:

ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA1

El código os lo dejo como imagen (el motivo es el campo HTMLBody que al tener caracteres en HTML se ejecutan en el post y hacen que no se vea correctamente). De todas formas, en el adjunto lo podéis copiar.

En esta macro generamos un correo por cada línea de datos que tengamos en la hoja “CORREO”. Para que la imagen sea visible y se pueda embeber o incrustar en el correo primero hacemos referencia al lugar en el que se encuentra del equipo, en este caso es el logo de Excel Signum:

imagen = "C:\Users\Segu\Documents\EXCEL SIGNUM\EXCELSIGNUM.jpg"

Una vez que la hemos seleccionado la adjuntamos al correo e indicamos que no sea visible como archivo adjunto:

.Attachments.Add imagen, 0

Ahora que ya la tenemos, componemos con Html la firma del correo:

ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA2

En la firma he incluido un hipervínculo a mi web y hago referencia a la imagen que hemos adjuntado y ocultado para que se muestre en el cuerpo del correo. Para que quede como si fuese una firma lo ponemos al final e incorporamos unos cuantos saltos de línea “br” antes del texto que he incluido en la variable “texto”.

El resultado es el siguiente:

ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA3

Como podéis observar, ya tenemos nuestra firma con imagen y texto (y un vínculo) en nuestro cuerpo de correo. Perfecto!.

Este método solo funcionará correctamente en outlook, dado que estamos trabajando en todo momento con el objeto Outlook.applicatacion.

Y eso es todo, espero que os resulte de interés y lo podáis usar en vuestras comunicaciones.

Descarga el archivo de ejemplo pulsando en: ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.

Donate Button with Credit Cards

¡¡Muchas gracias!!

8 pensamientos en “ENVIAR FIRMA CON IMAGEN Y TEXTO DESDE OUTLOOK USANDO EXCEL Y VBA

  1. como podria ser el codigo para visual basic 6 uso el siguiente codigo:

    Private Sub cmdSend_Click()
    Dim objOutlook As Outlook.Application
    Dim objMailItem As Outlook.MailItem
    Dim objATCH As Outlook.Attachments
    Dim Cuerpo As String
    Set objOutlook = CreateObject(“outlook.application”)
    Set objMailItem = objOutlook.CreateItem(olMailItem)

    objMailItem.SentOnBehalfOfName = Correo_De
    objMailItem.To = txtPara.Text
    objMailItem.CC = txtCc.Text
    objMailItem.BCC = txtCco.Text
    objMailItem.Subject = txtAsunto.Text

    Cuerpo = Cuerpo & ” ” & Me.lblSaludo1.Caption & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblSaludo2.Caption & vbCr & vbCr & vbCr

    Cuerpo = Cuerpo & ” ” & Me.lblNombres.Caption & ” ” & Me.Text1.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblCedula.Caption & ” ” & Me.Text2.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblFicha.Caption & ” ” & Me.Text3.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblEmpresa.Caption & ” ” & Me.Text4.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblGerencia.Caption & ” ” & Me.Text5.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblDepartamento.Caption & ” ” & Me.Text6.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblCargo.Caption & ” ” & Me.Text7.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblIngreso.Caption & ” ” & Me.Text8.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblEgreso.Caption & ” ” & Me.Text9.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblPreaviso.Caption & ” ” & Me.Text10.Text & vbCr
    Cuerpo = Cuerpo & ” ” & Me.lblMotivo.Caption & ” ” & Me.Text11.Text & vbCr & vbCr & vbCr

    Cuerpo = Cuerpo & Me.lblDespedida.Caption & vbCr & vbCr & vbCr

    Cuerpo = Cuerpo & Me.Image1 & vbCr & vbCr & vbCr

    Cuerpo = Cuerpo & Usuario & vbCr & vbCr & vbCr ‘ la variable del usuario que se firmo jejejejej

    objMailItem.Body = Cuerpo & vbCr

    objMailItem.BodyFormat = olFormatHTML
    objMailItem.Send

    MsgBox “Correo Electronico Enviado “, vbInformation, “Los mejores Programando a distancia jejejej”

    Set objOutlook = Nothing
    End Sub

    no me adjunta la imagen para la firma

    Me gusta

  2. Hola, te felicito por el desarrollo del tema.
    Solo tengo una pregunta ¿Cómo puedo hacer para abrir un correo de Outlook, desde una dirección de correo en Excel?
    Gracias por tus comentarios

    Saludos

    Me gusta

¿Te ha gustado?, Realiza un comentario.

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s

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