Como enviar un correo desde Acces

Buenos dias,



Quiero enviar un correo electrónico con datos de un formulario. Por Internet he encontrado este módulo que me parece bastante claro y suficiente:



Sub EnviarMensaje()



'Es necesario añadir la referencia 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 = ""

.Subject = "Asunto del mensaje"

.Body = "Texto del mensaje" & Forms!ActForm!NumExp



'Se pueden adjuntar ficheros

'.Attachments.Add ("C:\Mi_Fichero.pdf")



.Send 'también .Display lo enseña

End With



Set OutMail = Nothing

Set OutApp = Nothing



End Sub



Cuando intento ejecutarlo, el puntero se para en la 1ra linea de definición de variables, y muestra el error: "No se ha definido el tipo definido por el usuario". Des de la ayuda veo que deberia definir alguna variable, y ahí me pierdo.



Qué debo hacer?



Gracias de antemano.