Enviar email desde Access

[Griphus]

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]

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

[Griphus]

Iniciado por Avellaneda

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

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

Gracias de nuevo!!

Agur!!

[Griphus]

Solucionado!

[Avellaneda]

Iniciado por Griphus

Solucionado!

Enhorabuena!

Agur

[bertusnet]

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