Delphi7
Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
Continua a pergunta: Quem componente é esse? Sds.
>From: Bruno Silva <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: RE: [delphi-br] Utilizando o XMLDocEmail
>Date: Fri, 2 Jun 2006 09:05:30 -0300 (ART)
>
>Olá!!
>
> 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]
>
>
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
---------------------------------
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!.
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!.
