Como añadir ficheros zip a e-mail
Desearía me indicaras como añadir ficheros a un email utilizando la instrucción ShellExecute.
Podrías darme un ejemplo.
Recibe un cordial saludo y ánimos para seguir.
Muchas gracias de antemano.
Podrías darme un ejemplo.
Recibe un cordial saludo y ánimos para seguir.
Muchas gracias de antemano.
Respuesta de gaunmanuel
1
Es algo así:
var
pCh: PChar;
begin
pCh := 'mailto:[email protected]?subject=your_subject&body=your_body&file="c:\autoexec.bat"';
ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;
var
pCh: PChar;
begin
pCh := 'mailto:[email protected]?subject=your_subject&body=your_body&file="c:\autoexec.bat"';
ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;
