Estou usando o seguinte codigo:
if FileExists( dtmDados.mDiretorioModulos + '\pangeia-lite\dados\config-sugestoes.xml' ) then
DeleteFile( dtmDados.mDiretorioModulos + '\pangeia-lite\dados\config-sugestoes.xml' );
XMLDocEmail.Active := True;
XMLDocEmail.Create(dtmDados.mDiretorioModulos + '\pangeia-lite\dados\config-sugestoes.xml');
XMLDocEmail.AddChild('servidor'); <<<< da erro nessa linha!!
XMLDocEmail.ChildNodes.Last.AddChild('usuario').NodeValue := 'suporte';
XMLDocEmail.ChildNodes.Last.AddChild('senha').NodeValue := cSenha;
XMLDocEmail.ChildNodes.Last.AddChild('pop').NodeValue := cPOP3;
XMLDocEmail.ChildNodes.Last.AddChild('smtp').NodeValue := cSMTP;
XMLDocEmail.ChildNodes.Last.AddChild('nome').NodeValue := dblkUsuario.Text;
XMLDocEmail.ChildNodes.Last.AddChild('email').NodeValue := edtEmail.Text;
XMLDocEmail.ChildNodes.Last.AddChild('assunto').NodeValue := 'Email Enviado por '+ qryLojaNOME_LOJA.AsString;
XMLDocEmail.ChildNodes.Last.AddChild('texto').NodeValue := mmoDescricao.Text;
XMLDocEmail.SaveToFile( dtmDados.mDiretorioModulos + '\pangeia-lite\dados\config-sugestoes.xml' ) ;
XMLDocEmail.XML.Clear ;
XMLDocEmail.Active := False ;
Bruno Silva
desenvolvedor web
msn: [EMAIL PROTECTED]
---------------------------------------------------------
"O maior prazer de um homem inteligente é bancar o
idiota diante de um idiota que banca ser o inteligente."
---------------------------------------------------------
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
