He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo hacer para que incluya la firma en el mensaje? Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If End Sub Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Boolean ' ahora doy vida al objeto Set Email = New CDO.Message Set wsDest = Sheets(1) Set tablaDest = wsDest.ListObjects("TablaDestinatarios") ' Cuenta la cantidad de filas de la tabla cantDest = tablaDest.ListRows.Count 'indicamos los datos del servidor: Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 'indicamos el nro de puerto Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465) 'autentificación Email.Configuration.Fields.Item("https://schemas.microsoft.com/cdo/" & _ "configuration/smtpauthenticate") = Abs(1) 'segundos para el tiempo maximo de espera Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' autentificación para el envío de mails. Autentificacion = True ' opciones de login de gmail: If Autentificacion Then 'nombre de usuario Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/sendusername") = Trim([b1].Value) 'contraseña Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/sendpassword") = Trim([b2].Value) ' SSL (secure socket layer) Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End If ' Dirección del remitente Email.From = Range("B1").Value 'Ruta de los archivos adjuntos If [b3].Value <> vbNullString Then Email.AddAttachment (Trim([b3].Value)) End If If [c3].Value <> vbNullString Then Email.AddAttachment (Trim([c3].Value)) End If If [d3].Value <> vbNullString Then Email.AddAttachment (Trim([d3].Value)) End If If [e3].Value <> vbNullString Then Email.AddAttachment (Trim([e3].Value)) End If For i = 1 To cantDest ' Dirección del Destinatario Email.To = tablaDest.DataBodyRange.Cells(i, 3) ' Asunto del mensaje Email.Subject = tablaDest.DataBodyRange.Cells(i, 2) & ", xxxxxxxxxxxxx" ' Cuerpo del mensaje Email.HTMLBody = Range("B4").Value & Trim(tablaDest.DataBodyRange.Cells(i, 1).Value) & Range("C4").Value 'antes de enviar actualizamos los datos: Email.Configuration.Fields.Update 'colocamos un capturador de errores, por las dudas: On Error Resume Next 'enviamos el mail Email.Send 'si el numero de error es 0 (o sea, no existieron errores en el proceso), 'hago que la función retorne Verdadero If Err.Number = 0 Then EnviarMails_CDO = True Else 'caso contrario, muestro un MsgBox con la descripcion y nro de error MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number End If Next i 'destruyo el objeto, para liberar los recursos del sistema If Not Email Is Nothing Then Set Email = Nothing End If 'libero posibles errores On Error GoTo 0 End Function

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Incluir firma cuando envío un mail con cuenta de gmail

Autor del tema viru88
Fecha de inicio 2 Oct 2013

viru88

New member

2 Oct 2013

He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Incluir Firma con Imagen (Predeterminada)

Respuestas: 0

10 Abr 2015

angelik1028

Pregunta

Comparación de tablas mediante macro (Incluir datos estadisticos)

Respuestas: 3

9 Abr 2024

Deleted member 10123

Pregunta

Evitar incluir valores duplicados

Respuestas: 0

3 Nov 2023

Elianasth

Resuelto

Incluir en una macro "distinto de 0 o distinto de blanco"

Respuestas: 8

20 Mar 2023

Jise

Pregunta

Incluir Cumpleaños en un ListBox.

Respuestas: 3

16 Nov 2021

Jose Ignacio Pino Mondeja

Pregunta

Calendario ayuda con incluir fechas por colores.

Respuestas: 1

23 Jun 2021

Macro Antonio

Pregunta

Cómo incluir dos macros en un evento hoja

Respuestas: 5

19 Sep 2019

Leopoldo Blancas

Pregunta

Incluir una celda con varios componentes para usarlos como filtro

Respuestas: 4

4 Sep 2019

Cacho R

Pregunta

Incluir una o dos condiciones a código VBA

Respuestas: 0

20 Feb 2018

Aretradeser

Pregunta

INCLUIR UNA PorgressBar MIENTRAS SE EJECUTAN MACROS

Respuestas: 2

6 Sep 2017

jhony12

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba