La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  1167 - ENVIAR UN ARCHIVO JUNTO A UN E-MAIL
Autor:  Gerardo Librera
NECESITO HACER DESDE UNA APLICACION VB UN PROGRAMA QUE LANSE EL CORREO PREDETERMINADO DE WIN, A UNA DIRECCION YA ESPECIFICA, COMPLETAR EL SUJETO DEL E-MAIL, ADOSARLE UN ARCHIVO (ATTACH)Y QUE AL FINAL LO ENVIE. TODO ESTO DESDE EL PROGRAMA EN VB Y EL USUARIO NO TENDRIA QUE HACER NADA. HE PROBADO CON VARIOS CONTROLES, PERO NO TENGO NINGUNO QUE ME PERMITA ENVIAR UN ATTACH.
ACTUALMENTE LO ESTOY HACIENDO CON LA FUNCION "SENDKEYS" Y EL PORTAPAPELES PERO ES MUY RUDIMENTARIO. ESPERO PUEDAN AYUDARME !!!.
  Respuesta:  Luis Bueno
Si en en VB 6.0 existen dos controles que controlan Correo Electronico
Controles MAPI(Vienen 2 Controles en este OCX (MSMAPI32.OCX))
Uno para inicio de Sesion y otro para Control de Mensajes

Buscalo yo lo utilizo por tengo un programa que envia correos

Suerte..
  Respuesta:  ivan c.
Bueno hay dos formas una es usando mapi y la lo otra el outlook (NO SE PUEDE CON EL EXPRESS)

Primero tienes que hacer referecncia al el miscrosoft outlook objet library que seguramente lo encontraras en el el directorio del office "Msoutl8.olb"
´#############module.base###################
Option Explicit

Public objOutlook As Outlook.Application
Public objMItem As Outlook.MailItem
Public objFolders As Outlook.Folders
Public objNamespace As Outlook.NameSpace

Public Sub Main()

Dim destino As String

If Not CreateOutlookInstance Then End

With objMItem
.To = destino
.Subject = "Vauchers de oasis playa"
.Body = "Archivos Enviados:"
.Attachments.Add "path+archivo.ext"
.Save
.Send
´.Display
End With

Set objOutlook = Nothing
Set objMItem = Nothing
End
End Sub

Function CreateOutlookInstance() As Boolean
´Create application and namespace root objects
Set objOutlook = CreateObject("Outlook.Application.8")
If Err Then
MsgBox "Upss no Pudo crear Outlook Application object!", vbCritical
CreateOutlookInstance = False
Exit Function
End If
Set objNamespace = objOutlook.GetNamespace("MAPI")
If Err Then
MsgBox "Upss no Pudo crear MAPI Namespace!", vbCritical
CreateOutlookInstance = False
Exit Function
End If
Set objMItem = objOutlook.CreateItem(olMailItem)
If Err Then
MsgBox "Upss no Pudo crear MailItem!", vbCritical
CreateOutlookInstance = False
Exit Function
End If
CreateOutlookInstance = True
Ð/LM/W3SVC/116/Root