ACCESS - Enviar mail con Outlook desde Access

[Laufwerk]

Hola amigos!!
Quisiera saber si puedo enviar un mail con unos datos desde Acces utilizando el Outlook.
Si tenéis algún código de ejemplo o ejemplo en vivo me gustaria poder verlo.


Gracias!

[Taribo007]

Ejemplos hay muchos, por ejemplo:

Sub Mail_workbook_Outlook()
'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Asunto del mensaje"
.Body = "Este es el texto del mensaje"
'Se pueden adjuntar ficheros
.Attachments.Add ("C:\Mi_Fichero.pdf")
.Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
End With
Set OutMail = Nothing
Set OutApp = Nothing

End Sub


Pasate por la pagina del buho

Pon outlook en el buscador y te salen un monton de ejemplos, muchos de ellos ya los tienes implentados.

Tambien puedes pasarte por aqui

Es un programita con las preguntas y respuestas de 5 años de vida de un foro expecifico de access, imprescindible.

Un saludo