Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   Enviar email desde Access (http://www.forosdelweb.com/f69/enviar-email-desde-access-586706/)

Griphus 15/05/2008 03:46

Enviar email desde Access
 
Hola muy buenas a todos.
Estoy trabajando en un programa sencillito dentro del cual, quiero hacer un formulario en el que se redacte todo lo que se quiera y al dar al boton de enviar se envie automaticamente un email a una misma dirección, esta dirección nunca va a cambiar ya que siempre quiero que se le envie el correo a una misma persona...
¿Qué comando se utiliza para posibilitar el envio del contenido de un formulario, ya sea adjunto o solo el texto via email?

Gracias de antemano

Un saludo

Avellaneda 15/05/2008 04:39

Re: Enviar email desde Access
 
Hola Griphus.

Lo puedes hacer facilmente con la referencia a MS Outlook, ejemplo:

Código PHP:

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 "[email protected]"
olMail.Subject "Formulario..."
olMail.Attachments.Add "c:\Formulario.pdf"
olMail.Body "Estimado pepe; te envío el formulario con los datos..."
olMail.Send
    
MsgBox 
"Correo enviado..."
outNsp.Logoff
Set outNsp 
Nothing
Set olMail 
Nothing
End Sub 


Agur :adios:

Griphus 15/05/2008 04:48

Re: Enviar email desde Access
 
Cita:

Iniciado por Avellaneda (Mensaje 2405682)
Hola Griphus.

Lo puedes hacer facilmente con la referencia a MS Outlook, ejemplo:

Código PHP:

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 "[email protected]"
olMail.Subject "Formulario..."
olMail.Attachments.Add "c:\Formulario.pdf"
olMail.Body "Estimado pepe; te envío el formulario con los datos..."
olMail.Send
    
MsgBox 
"Correo enviado..."
outNsp.Logoff
Set outNsp 
Nothing
Set olMail 
Nothing
End Sub 


Agur :adios:

Mil gracias tio!!!
Lo voy a probar a ver que tal lo adapto a mi BD

Gracias de nuevo!!

Agur!!

Griphus 15/05/2008 06:22

Re: Enviar email desde Access
 
Solucionado!

Avellaneda 15/05/2008 07:04

Re: Enviar email desde Access
 
Cita:

Iniciado por Griphus (Mensaje 2405768)
Solucionado!


Enhorabuena!

Agur :adios:

bertusnet 12/03/2014 01:50

Respuesta: Enviar email desde Access
 
Tengo el mismo problema, pero en lugar de querer enviar como anexo un fichero ya creado, necesito enviar un informe de Access.
La linea de código en cuestión es la siguiente:

olmail.Attachments.Add "DoCmd.OpenReport stDocName, acPreview, , '[Formularios]![Alumnos: BU]![CodigoAlumno]= [CodigoAlumno]'"

Me devuelve el error de "Nombre Directorio o Archivo no válido". Parece como si esperara un archivo. ¿De qué modo puedo enviar un objeto de Access (en este caso un Informe)?
Gracias y un Saludo


La zona horaria es GMT -6. Ahora son las 06:42.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2014, Jelsoft Enterprises Ltd.

SEO by vBSEO 3.3.2