Enviar email usando OUTLOOK 2003

[Jose Manuel]

Utilizando el comando MAILTO, no se podría adjuntar anexos y en este caso es muy importante que en cada correo se adjunte un fichero anexo.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle, nil,
    'mailto:eds2004 @ latiumsoftware.com' +
    '?Subject=Test&Body=Just testing the example',
    nil, nil, SW_NORMAL);
end;