Access - Como enviar email desde access con fichero adjunto

   
Vista:

Como enviar email desde access con fichero adjunto

Publicado por Jorge (3 intervenciones) el 20/06/2012 12:43:31
Hola a todos.
hace tiempo consegui este codigo para poder enviar email desde access directamente sin outlook.
hasta ahora me ha ido bien, pero tengo que modificarlo para poder enviar un fichero adjunto que me solicitan.
El fichero adjunto es un informe que esta dentro de la misma base de datos de access desde donde envio el email.

Me es un poco indiferente si se hace el envio del informe directamente, casi lo prefiero, sin tener que exportarlo al disco duro.
aunque tampoco me disgusta.

Necesitaria me dijerais los mas entendidos como modificar el codigo que os doy a continuacion para poder adjuntar un informe de access al email que se envia.

Un saludo cordial y muchas gracias anticipadas...

Codigo:------------------------------------->>>>>>

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "xxxxxxxxxxxxxxxxxxxxxxx"
objMessage.From = """Email"" <xxxxxxxxxxxxxx@xx.xxx>"
objMessage.To = "xxxxxxxxxxxxxx@xx.xxx"
objMessage.BCC = "xxxxxxxxxxxxxx@xx.xxx"
objMessage.HTMLBody = "textoooooooooooooooooooo"
'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxx.es"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usaurio"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send
MsgBox "Mensaje Enviado Satisfactoriamente..."

Fin de codigo:....................................>>>>>>>>>>>>>>
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como enviar email desde access con fichero adjunto

Publicado por deneg_nhj (349 intervenciones) el 22/06/2012 15:21:21
Pues que yo sepa, enviar un solo objeto de Access "no se puede", lo que debes de hacer es exportarlo y luego adjuntar ese archivo.

Las soluciones que yo he realizado si utilizan el Outlook, por lo que te muestro parte del código que utilizo.



Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

'Formato del correo = HTML
objMailItem.BodyFormat = olFormatHTML

'La direccion del destinatario
If Len(sDestino) > 0 Then
objMailItem.Recipients.Add sDestino
End If
.
.
.
.
objMailItem.HTMLBody = sCuerpoCorreo
objMailItem.Attachments.Add "c:\archivox.txt"
objMailItem.Subject = sTituloMail
.
.
.
end







Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como enviar email desde access con fichero adjunto

Publicado por Jorge (3 intervenciones) el 22/06/2012 17:53:04
Ok, lo probare a ver si me vale el codigo que me has puesto.
muchas gracias por todo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar