fedelphi
28-01-2007, 21:46:19
Hola a todos en el foro, he buscado como enviar un email con outlook express desde Delphi y como no podia ser de otra manera encontre en foro como hacerlo, pero mi intención es enviar un archivo adjunto y el código que figura en un hilo no me adjunta el archivo. El códigop es el siguiente
procedure TForm1.Button1Click(Sender: TObject);
const
rsFormatoCuerpo = '&body="%S"';
// rsFormatoAsunto = 'mailto:%S?subject=%S';
rsFormatoAsunto = 'mailto:%S?subject=%S&file="%S"';
var
contador: integer;
cuerpoTemporal: TStrings;
cadenaEjecucion, destino, asunto, cuerpo, archivo: string;
begin
destino := 'unacasilla@alguncorreo.com';
asunto := 'Este es el asunto del correo';
cuerpo := 'Este es el cuerpo del correo' +#13+#10+ 'en dos líneas distintas';
archivo :='archivo.txt';
cuerpoTemporal := TStringList.Create;
cuerpoTemporal.Text := cuerpo;
// cadenaEjecucion := Format(rsFormatoAsunto, [destino, asunto]);
cadenaEjecucion := Format(rsFormatoAsunto, [destino, asunto, archivo]);
for contador := 0 to cuerpoTemporal.Count-1 do
begin
cuerpoTemporal[contador] := Format(rsFormatoCuerpo, [cuerpoTemporal[contador]]);
end;
cadenaEjecucion := cadenaEjecucion + cuerpoTemporal.Text;
ShellExecute(Handle, 'open', PChar(cadenaEjecucion), nil, nil, SW_SHOWNORMAL);
cuerpoTemporal.Free;
end;
Estoy haciendolo con delphi 7 y outlook express 6. Y tampoco me sale la primera linea del cuerpo que dice 'Esto es el cuerpo del correo', pero si sale la segunda 'en dos lines distintas'. Alguien me puede orientar sobre cual es el error? Ya que no comprendo bien el funcionamiento.
Muchas gracias y espero alguna ayuda.
Fede
procedure TForm1.Button1Click(Sender: TObject);
const
rsFormatoCuerpo = '&body="%S"';
// rsFormatoAsunto = 'mailto:%S?subject=%S';
rsFormatoAsunto = 'mailto:%S?subject=%S&file="%S"';
var
contador: integer;
cuerpoTemporal: TStrings;
cadenaEjecucion, destino, asunto, cuerpo, archivo: string;
begin
destino := 'unacasilla@alguncorreo.com';
asunto := 'Este es el asunto del correo';
cuerpo := 'Este es el cuerpo del correo' +#13+#10+ 'en dos líneas distintas';
archivo :='archivo.txt';
cuerpoTemporal := TStringList.Create;
cuerpoTemporal.Text := cuerpo;
// cadenaEjecucion := Format(rsFormatoAsunto, [destino, asunto]);
cadenaEjecucion := Format(rsFormatoAsunto, [destino, asunto, archivo]);
for contador := 0 to cuerpoTemporal.Count-1 do
begin
cuerpoTemporal[contador] := Format(rsFormatoCuerpo, [cuerpoTemporal[contador]]);
end;
cadenaEjecucion := cadenaEjecucion + cuerpoTemporal.Text;
ShellExecute(Handle, 'open', PChar(cadenaEjecucion), nil, nil, SW_SHOWNORMAL);
cuerpoTemporal.Free;
end;
Estoy haciendolo con delphi 7 y outlook express 6. Y tampoco me sale la primera linea del cuerpo que dice 'Esto es el cuerpo del correo', pero si sale la segunda 'en dos lines distintas'. Alguien me puede orientar sobre cual es el error? Ya que no comprendo bien el funcionamiento.
Muchas gracias y espero alguna ayuda.
Fede