parametros de email (arquivo.eml)

06/08/2008

1

gente estou tendo dificuldades para mudar o parametro para quem vai ser enviado.
procedure form.btnClick;
var
  stemail: TStringList;
  stArquivo: String;
begin
  stemail := TStringList.create;
  stemail.loadFromFile(´c:\eml\Teste.eml´);
  starquivo := stemail.text;
  starquivo := ReplaceString(starquivo, ´¬PARA¬´, edit1.text, [rfReplaceAll]);
  stemail.text := starquivo;
  stemail.saveToFile(´c:\eml\Teste.eml´);
  shellExecute(Application.Handle, etc...); // ignorem isto daqui. não me lembro como é o final deste comando.
end;

A ultima linha funciona perfeitamente, pois ele executa o outlook para o envio do email.
Meu problema é que eu não consegui trocar o parametro de para quem vai ser enviado, a linha 9 (...ReplaceString...).

Alguem sabe me informar uma solução? ou aonde eu estou errando!?

Agradeço.
.lg.


Responder