Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/05/2008, 04:48
Griphus
 
Fecha de Ingreso: mayo-2008
Mensajes: 3
Antigüedad: 15 años, 11 meses
Puntos: 0
Re: Enviar email desde Access

Cita:
Iniciado por Avellaneda Ver Mensaje
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!!