parametros de email (arquivo.eml)

06/08/2008

0

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.


.lg.

.lg.

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar