Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Como enviar un correo desde Acces

17/09/2012 - 11:03 por Toni | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 15 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Toni
17/09/2012 - 11:22 | Informe spam
Olvidé comentar que he intentado añadir la referencia LibraryBiblioteca de objetos de Microsoft Outlook 8.0 (tengo Acces 2007), pero no la he encontrado en Herramientas de VB.

Gracias.


On Monday, September 17, 2012 11:03:08 AM UTC+2, Toni wrote:
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.
Respuesta Responder a este mensaje
#2 Toni
19/09/2012 - 13:30 | Informe spam
Buenos dias,

Podrian echarme una mano con esta duda? Por mucho que me entretengo, no consigo dar con la solución.

Gracias.
Toni


On Monday, September 17, 2012 11:22:39 AM UTC+2, Toni wrote:
Olvidé comentar que he intentado añadir la referencia LibraryBiblioteca de objetos de Microsoft Outlook 8.0 (tengo Acces 2007), pero no la he encontrado en Herramientas de VB.
>
> 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.
Respuesta Responder a este mensaje
#3 Emilio
19/09/2012 - 18:24 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

si la referencia no aparece lo mas probable es que se deba a que no está
instalado Outlook en el ordenador, ¿Lo está?

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
Respuesta Responder a este mensaje
#4 Emilio
19/09/2012 - 19:11 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
se me olvidaba añadir que si está instalado y no aparece la referencia yo
repararía la instalación de Office.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
Respuesta Responder a este mensaje
#5 Toni
20/09/2012 - 09:18 | Informe spam
Outlook està instalado, sí, pero a lo mejor Acces no lo detecta.

On Wednesday, September 19, 2012 7:11:57 PM UTC+2, Emilio wrote:

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te

sirvió o no la respuesta dada. Muchas gracias


Hola!

se me olvidaba añadir que si está instalado y no aparece la referencia yo

repararía la instalación de Office.



Saludos a todos desde Huelva



Emilio [MS-MVP Access 2006/11]

http://www.mvp-access.com/foro

http://www.mvp-access.es/emilio
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida