Enviar email usando OUTLOOK 2003

[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.

[ContraVeneno]

pues síguele probando, porque tal cual como lo puse yo, así lo estoy usando y nunca he tenido problemas para enviar un correo con un archivo adjunto.

Debes de tener el problema en algún otro lado, a mi me funciona perfectamente.

[waly2k1]

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.

  '&body='+Body+
  CC+

solucion:

'&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á!!!

procedure TfrmMain.mnuSendMail(Sender: TObject);
Var
    MailTo:String;
    Body:String;
    Archivo:String;
    CC:String;
begin
    MailTo := '[email protected]';
    Body := 'NOBODY(No Body)';
    Archivo := 'C:\Attachment.txt';
    CC := '[email protected]';

	// 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;

[ContraVeneno]

el día que quieras, te invito a que pases a alguna computadora que este utilizando el sistema donde uso esa línea para que veas que si funciona...

tiene más de 1 año funcionando y enviando correos y hasta ahora no he recibido queja.

Claro, para llenar la variable CC, tengo un If en donde si existe correo alternativo, se agrega el '&CC = "dir-com"'', si no existe, entonces CC := '';

pensé que eso era obvio

pues estaremos hablando de cosas diferentes porque yo no lo cambio a pchar... como dije, así tal cuál puse el shellexec, el correo se envía con un archivo adjunto.

[waly2k1]

Ok ok, ya no pongo en duda nada, tampoco me haré un viajecito de miles de Km. para ver si funciona tu ejemplo hehe.

Estoy con Delphi 7 y la API que uso es Shellexecute no shellexec como dices tu. La linea en cuestion claro le faltaba algo.

Bueno viejo, saludos y muchas gracias. Por el momento pruebo con otras cosas.

[[Chris]]

Acabo de leer este hilo y luego de probar, a mí tampoco me sirve lo de attach. hasta ahora solo he utilizado los comandos con "Ejecutar" de "Inicio->Ejecutar". Sin envargo, no creo que sea algo del cliente de correo, porque si le hago un "Enviar por correo" en openoffice o word, el nuevo mensaje mensaje muestra el archivo adjunto.

Supongo que lo de "&Attach" debe ser con otro nombre o en otro caso se debe de utilizar de forma distinta.

PD: utilizo thunderbird y también he probado ingresando etiquetas html sencillas al body y me han servido.

[waly2k1]

Desde luego, lo probé de todas formas y no logré que funcione con archivos adjuntos. Por el momento 'colgué' el tema para seguir insistiendo mas adelante. Si sabes algo al respecto te pido lo postees aquí.
Saludos.