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 = "correo@dominio.com"
.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.