SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Egala en Jueves 30 de Enero de 2003, 18:03
-
Hola que tal, vereis mi problema consiste en enlazar el visual basic con el correo electronico. Entonces me dijeron que usara el Shellexecute de la siguiente manera:
ShellExecute hwnd, vbNullString, "mailto:destinatario@servidor.com?Subject=Asunto&Cc=nombre1@servidor.com&Body=Cuerpo", vbNullString, App.Path, 1
y funciona pero quiero tambien poder adjuntar un archivo. Como lo hago?
Gracias de antemano
Egala
-
Private Sub ucbOK_Click()
Dim AppOutlook As Object
Dim Itm As Object
cAsunto = “Asunto del correo”
cCuerpo = “Cuerpo del correo”
Set AppOutlook = CreateObject ("Outlook.Application")
'mandarlo por correo
Set Itm = AppOutlook.createitem(0)
With Itm
'.DeleteAfterSubmit = True ‘(Con esto consigues que no guarde copia en enviados)
.Subject = cAsunto
.To = "Hola@Tio.com"
.Body = cCuerpo
.Attachments.Add “Ruta y Nombre del Fichero a Añadir”
.Send
End With
AppExcel.Quit
Set AppExcel = Nothing
End Sub
-
Gracias Jaume por tu contestacion, pero yo queria usar como gestor de correo el Outlook express y con lo que me dijiste tendria que usar el Outlook verdad?
Gracias de todas formas