-------------------------------------------------------------------------------
¡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/configuration/smtpusessl") =
True
Campos.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
Campos.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.gmail.com"
Campos.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 465
Campos.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 30
Campos.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
strDe
Campos.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
strPassword
Campos.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 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:01f10141-ca58-429b-93fe-***@googlegroups.com...
El jueves, 10 de septiembre de 2015, 15:37:55 (UTC+2), José Mª Fueyo
Post by José Mª FueyoHola
¿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 = "***@gmail.com"
v_password = "alearadiz"
Dim iconf As Object
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM
method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
v_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
v_password
.Update
End With
' build email parts
v_destino = "***@gmail.com"
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