Enviar correu electrònic directament des d'Access

Per enviar un correu electrònic directament des d'Access escriu el següent codi en un botó. Perquè funcioni has d'activar la referència Microsoft Outlook 15.0 Object Library desde la finestra de Microsoft Visual Basic para Aplicaciones, anant a Herramientas > Referencias > Microsoft Outlook 15.0 Object Library

Private Sub Command1_Click()
Dim outApp As Outlook.Application
Dim outNsp As Outlook.NameSpace
Dim olMail As Outlook.MailItem

Set outApp = CreateObject("Outlook.Application")
Set outNsp = outApp.GetNamespace("MAPI")
outNsp.Logon
Set olMail = outApp.CreateItem(olMailItem)
olMail.To = " ramon@gmail.com"
olMail.Subject = "Formulari..."
olMail.Attachments.Add "c:\Formulari.pdf"
olMail.Body = "Benvolgut Ramon, envio el formulari amb les dades..."
olMail.Send

MsgBox "Correu enviat..."
outNsp.Logoff
Set outNsp = Nothing
Set olMail = Nothing
End Sub