Programación General > Visual Basic 6.0 e inferiores

 Re: Adjuntar ficheros a un correo electronico

(1/1)

Egala:
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

Jaume:
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

Egala:
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

Navegación

[0] Índice de Mensajes