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