Fórum TXMLDocument #322750

  if FileExists( dtmDados.mDiretorioModulos + ´\lite\dados\config-sugestoes.xml´ ) then
    DeleteFile( dtmDados.mDiretorioModulos + ´\lite\dados\config-sugestoes.xml´ );

  XMLDocEmail.Active := True;

  XMLDocEmail.Create(dtmDados.mDiretorioModulos + ´\lite\dados\config-sugestoes.xml´);

>>>>>>>>  XMLDocEmail.AddChild(´servidor´);<<<<<<<<<

  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 + ´\lite\dados\config-sugestoes.xml´ ) ;

  XMLDocEmail.XML.Clear ;
  XMLDocEmail.Active   := False ;