Email Informe de access
Tengo el siguiente codigoen VB para enviar correos electrónico sin usar outlook o similar. O sea que uso una cuenta de gmail. Mi pregunta es como hago para poder anexar a este código un informe llamado "Asistencia" y que lo envíe en forma automática como lo hace con el correo. Desde ya muchas gracias
Private Sub Comando12_Click()
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") = " [email protected] "
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = " xxxxxxxxx "
.Update
End With
' build email parts 'Construir piezas de correo electrónico
With cdomsg
.To = Me.E_mail
.From = Me.Correo
.Subject = " Asistensia del mes de Mayo "
.TextBody = " 21705/11 "
.Send
End With
Set cdomsg = Nothing
End Sub
El código funciona pero no se como anexar el informe. Una vez más garcías por sus tiempos.
Private Sub Comando12_Click()
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") = " [email protected] "
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = " xxxxxxxxx "
.Update
End With
' build email parts 'Construir piezas de correo electrónico
With cdomsg
.To = Me.E_mail
.From = Me.Correo
.Subject = " Asistensia del mes de Mayo "
.TextBody = " 21705/11 "
.Send
End With
Set cdomsg = Nothing
End Sub
El código funciona pero no se como anexar el informe. Una vez más garcías por sus tiempos.
1 respuesta
Respuesta de Roberto Alvarado
1
Ese es mi principal inconveniente no se cuales son las lineas de código para adjuntar el archivo.
Espero pueda ayudarme y una vez más gracias por tomarse un momento y dedicármelo. Quedo a la espera de una respuesta.
Espero pueda ayudarme y una vez más gracias por tomarse un momento y dedicármelo. Quedo a la espera de una respuesta.
En la propiedades del objeto mail que utilizas para enviar o crear el mail, hay una que dice attach : .Attach = "rutalocalpc\archivoadjunto.txt"
