Enviar email usando OUTLOOK 2003

[ContraVeneno]

ahem....

http://www.clubdelphi.com/foros/showthread.php?t=18819

[Nomad]

El problema que yo me encontre usando esto, es que no puedo cambiar la direccion de correo, subject o body en tiempo de ejecucion.

[waly2k1]

Muchachos, no es broma, pero me cansé de probar varios metodos aquí publicados para mandar un simple email con un archivo adjunto y no anda, no pido colores, negritas, italicas, nada de nada. Simplemente un email [email protected] con un PDF generado por mi sistema y no anda. Vi discusiones sobre outlook, bien, me abre el outlook con subject y todos los datos parametrizados pero y el adjunto... se lo llevaron los marcianos ???

El ShellExecute con adjuntos no anda(ó al menos no logré que ande), quien diga lo contrario pido la linea de codigo y la pruebo.

Gente, No puede ser que el sistema abra outlook, pone email, subject y que despues el usuario tenga que ir manualmente a buscar el archivo a adjuntar, esto es lamentable!

En fin Jose Manuel, si lograste hacerlo, pasame por favor el metodo u ejemplo, que será muy bien agradecido.

Muchas gracias!!! Walter del país de la 8 maravilla!!!

[ContraVeneno]

Código Delphi [-]
  ShellExec(frmInicial.Handle,
  'open',
  'mailto:'+Trim(edtMail0.Text)+
  '?subject='+'Reporte de Servicio Diario'+
  '&body='+Body+
  CC+
  '&Attach="'+Archivo+'"',
  '',
  '',
  SW_SHOW);

STFW, RTFM

[waly2k1]

*Contraveneno*
Las variables Body, Archivo y CC son todas del tipo PChar ?
En tu ej. no veo conversiones de ningun tipo pero como concatenas las cadenas de caracteres sin errores ?

Yo no usaba ShellExec, sino ShellExecute, que esta sí la encontre en la ShellApI, estamos hablando de la misma función ?. No encontré en que unit está esta.

Sigo probando a ver que sale. Saludos y muchas gracias!!!

[ContraVeneno]

archivo, body y cc son te tipo cadena... string en ingles...

[waly2k1]

Acá te copio la rutina:

Var
MailTo:String;
Body:String;
Archivo:String;
CC:String;
begin
MailTo := '[email protected]';
Body := 'NOBODY(No Body)';
Archivo := 'c:\wall_cel_CBR600RR_176x220.jpg';
CC := '[email protected]';

ShellExecute( Self.Handle, 'open',
PChar(
'mailto:' + Trim( MailTo ) +
'?subject=' + 'Reporte de Servicio Diario' +
'&body=' + Body +
CC +
'&Attach="' + Archivo + '"'
),
'',
'',
SW_SHOW );

Esto es el resultado:
Destino, asunto está bien, el cuerpo queda así
NOBODY(No Body)[email protected]

Si observas convierto toda la cadena de string a PChar(), sino no funciona
la copia CC aparece en el body, supongo porque no posee un indicador y no adjunta la imagen. Esto lo estoy probando con Outlook Express

Saludos y muchas gracias por tu tiempo.