Fórum parametros de email (arquivo.eml) #362133

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;