Segun tu ejemplo en esta linea no te funcionaría salvo que nunca
uses CC, sino concatena al body el email q pasas en CC.
Código:
'&body='+Body+
CC+
solucion:
Código:
'&body=' + Body +
'&CC=' + CC +
el tercer parametro de la api es de tipo Pchar o sea que deberías
convertir antes de pasar toda la cadena, sino te da error y no
compila la aplicación.
El ejemplo de la web es de Outlook 2000, tengo 2003 y no funciona
tampoco en outlook express, mi SO Win2K SP4
Quedó bárbaro el codigo, pero simplemente no adjunta archivos.
Paso para que alguien vea y pueda echar una mano.
Saludos y gracias por el tiempo. Otra vez será!!!
Código:
procedure TfrmMain.mnuSendMail(Sender: TObject);
Var
MailTo:String;
Body:String;
Archivo:String;
CC:String;
begin
MailTo := 'war.ramos@yahoo.com';
Body := 'NOBODY(No Body)';
Archivo := 'C:\Attachment.txt';
CC := 'waly2k1@hotmail.com';
// NOTA: Así quedó después de tantas idas y vueltas y no anduvo el attach
ShellExecute( Handle, 'open',
PChar(
'mailto:' + Trim( MailTo ) +
'?subject=' + 'Reporte de Servicio Diario' +
'&body=' + Body +
'&CC=' + CC +
'&File=' + Archivo
),
'',
'',
SW_SHOW );
end;