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 = "
cor...@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.