parametros de email (arquivo.eml)
06/08/2008
0
gente estou tendo dificuldades para mudar o parametro para quem vai ser enviado.
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.
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.
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)