Insertar firma en correo de Gmail

Hola
¿Y como ejecutas este código? ¿desde Access? ¿que tipo de objeto es cdomsg?

Salu2,
José Mª Fueyo

El jueves, 10 de septiembre de 2015, 15:37:55 (UTC+2), José Mª Fueyo escribió:

Hola
¿Y como ejecutas este código? ¿desde Access? ¿que tipo de objeto es cdomsg?

Salu2,
José Mª Fueyo

________________________________________________________________

Hola José Mª.

En primer lugar gracias por tu ayuda y disculpa por no haber sido lo suficientemente explícito en mi solicitud de ayuda.

Utilizo Access 2010 y te adjunto el código completo para que compruebes la naturaleza del objeto cdomsg.


Public Function send_email_GMAIL()

Dim v_origen, v_destino, v_asunto, v_texto, v_adjunto, v_password

v_origen = ""
v_password = "alearadiz"


Dim iconf As Object

Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/co...sing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/co...rver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/co...port") = 587
.Item("http://schemas.microsoft.com/cdo/co...cate") = 1
.Item("http://schemas.microsoft.com/cdo/co...essl") = True
.Item("http://schemas.microsoft.com/cdo/co...eout") = 60
.Item("http://schemas.microsoft.com/cdo/co...name") = v_origen
.Item("http://schemas.microsoft.com/cdo/co...word") = v_password
.Update
End With
' build email parts


v_destino = ""
v_asunto = "Prueba mail con Gmail"
v_texto = " Este es una prueba de envío de mail mediante gmail"
v_adjunto = "c"

With cdomsg
.To = v_destino
.From = v_origen
.Subject = v_asunto
'.TextBody = v_texto
.HTMLBody = v_texto
' Set .Configuration = iconf

.AddAttachment "C:\Vgest\VgestLogosEmpresa\logo1.jpg"
.Send
End With
Set cdomsg = Nothing
End Function

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!

yo utilizo este código y funciona

'*******************************************************************************
'* EnviarEmailCDOGmail
'* envío por medio de gmail de mensajes de correo
'* en caso de que haya varios destinatarios o archivos adjuntos, se
separaran
'* mediante puntos y coma ";"
'* Argumentos: strDe => cuenta gmail del remitente
'* strPassword => password
'* strPara => cuenta/s del/los destinatario/s
'* strAsunto => asunto del mensaje
'* strMensaje => Contenido del mensaje
'* strCC => (opcional) cuenta/s del/los destinatario/s
c/copia
'* strBCC => (opcional) cuenta/s del/los destinatario/s
c/copia
'* oculta
'* strAdjuntos => (opcional) ruta del/los archivo/s adjunto/s
'*
separados por puntos y coma
'* uso: EnviarEmailCDOGmail "Usuario", "Password",
"Destinatario1;Destinatario2", "Asunto", "Mensaje", "DestinatarioConCopia",
"DestinatarioConCopiaOculta", "C:\Adjunto1;C:\Adjunto2"
'* ESH 03/07/10 18:29
'* http://www.mvp-access.es/emilio/
'* Si utilizas este código, respeta la autoría y los créditos
'*******************************************************************************

Public Function EnviarEmailCDOGmail(strDe As String, strPassword As String,
strPara As String, strAsunto As String, strMensaje As String, Optional strCC
As String, Optional strBCC As String, Optional strAdjuntos As String) As
Boolean
Dim Mensaje As Object, _
Configuracion As Object, _
Campos As Object, _
Adjuntos As Variant, _
i As Long

On Error GoTo EnviarEmailCDOGmail_TratamientoErrores

DoCmd.Hourglass True
Set Mensaje = CreateObject("CDO.Message")
Set Configuracion = CreateObject("CDO.Configuration")
' configuración de CDO
Set Campos = Configuracion.Fields
Campos.Item("http://schemas.microsoft.com/cdo/co...essl") =
True
Campos.Item("http://schemas.microsoft.com/cdo/co...cate")
= 1
Campos.Item("http://schemas.microsoft.com/cdo/co...rver") =
"smtp.gmail.com"
Campos.Item("http://schemas.microsoft.com/cdo/co...port")
= 465
Campos.Item("http://schemas.microsoft.com/cdo/co...eout")
= 30
Campos.Item("http://schemas.microsoft.com/cdo/co...name") =
strDe
Campos.Item("http://schemas.microsoft.com/cdo/co...word") =
strPassword
Campos.Item("http://schemas.microsoft.com/cdo/co...sing") = 2
Campos.Update

' Mensaje
Set Mensaje.Configuration = Configuracion
Mensaje.From = strDe
Mensaje.To = strPara
If Not strCC = vbNullString Then
Mensaje.CC = strCC
End If
If Not strBCC = vbNullString Then
Mensaje.BCC = strBCC
End If
Mensaje.Subject = strAsunto
Mensaje.TextBody = strMensaje
' adjunto/s si hubiera
If Not strAdjuntos = vbNullString Then
Adjuntos = Split(strAdjuntos, ";")
For i = 0 To UBound(Adjuntos)
If Not Dir$(Trim$(Adjuntos(i))) = vbNullString Then
Mensaje.AddAttachment Trim$(Adjuntos(i))
Next i
End If
' envío el mensaje
Mensaje.Send

EnviarEmailCDOGmail = True


EnviarEmailCDOGmail_Salir:
Set Mensaje = Nothing
Set Configuracion = Nothing
Set Campos = Nothing
DoCmd.Hourglass False
On Error GoTo 0
Exit Function

EnviarEmailCDOGmail_TratamientoErrores:
EnviarEmailCDOGmail = False
MsgBox "Error " & Err & " en proc.: EnviarEmailCDOGmail de Módulo:
Módulo8 (" & Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
Resume EnviarEmailCDOGmail_Salir

End Function ' EnviarEmailCDOGmail


Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de
noticias:

El jueves, 10 de septiembre de 2015, 15:37:55 (UTC+2), José Mª Fueyo
escribió:

Hola
¿Y como ejecutas este código? ¿desde Access? ¿que tipo de objeto es
cdomsg?

Salu2,
José Mª Fueyo

________________________________________________________________

Hola José Mª.

En primer lugar gracias por tu ayuda y disculpa por no haber sido lo
suficientemente explícito en mi solicitud de ayuda.

Utilizo Access 2010 y te adjunto el código completo para que compruebes la
naturaleza del objeto cdomsg.


Public Function send_email_GMAIL()

Dim v_origen, v_destino, v_asunto, v_texto, v_adjunto, v_password

v_origen = ""
v_password = "alearadiz"


Dim iconf As Object

Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/co...sing") = 2 'NTLM
method
.Item("http://schemas.microsoft.com/cdo/co...rver") =
"smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/co...port") = 587
.Item("http://schemas.microsoft.com/cdo/co...cate") = 1
.Item("http://schemas.microsoft.com/cdo/co...essl") = True
.Item("http://schemas.microsoft.com/cdo/co...eout")
= 60
.Item("http://schemas.microsoft.com/cdo/co...name") =
v_origen
.Item("http://schemas.microsoft.com/cdo/co...word") =
v_password
.Update
End With
' build email parts


v_destino = ""
v_asunto = "Prueba mail con Gmail"
v_texto = " Este es una prueba de envío de mail mediante gmail"
v_adjunto = "c"

With cdomsg
.To = v_destino
.From = v_origen
.Subject = v_asunto
'.TextBody = v_texto
.HTMLBody = v_texto
' Set .Configuration = iconf

.AddAttachment "C:\Vgest\VgestLogosEmpresa\logo1.jpg"
.Send
End With
Set cdomsg = Nothing
End Function