Enviar email usando OUTLOOK 2003

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

[tocomi]

contra veneno, tengo un problema con la solucion que pusiste, me abre una ventana para enviar el mail, pero no seria posible que directamente lo enviara???, probe alternativas y nunca pude hacer que lo mandara directamente

PD: yo tambien lo tuve que convertir a pchar y usar shellexecute, sino no funciona

[ContraVeneno]

en este mismo hilo:

http://www.clubdelphi.com/foros/show...3&postcount=11

[emeceuy]

Hola, como estan !?

A mi me funciona perfecto con el shellexecute, pero me gustaría que ya apareciera automaticamente la firma en el correo.

Tengo mi Outlook 2007 configurado para que agregue siempre una firma, pero con el shellexecute no lo hace, aparece el mensaje que pongo en el "body" pero sin la firma.

Alguien sabe si se puede pasar este parametro a la funcion para que ponga una firma?

Muchas gracias, saludos. Marcelo.

[Casimiro Noteví]

Te aconsejo que crees un nuevo hilo con tu duda.
Saludos.

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

[[Chris]]

Claro, aunque en este momento no me estoy dedicando al tema al 100%, estoy trabajando en otro proyecto. De todos modos, si consigo algo, lo publico.