Re: [delphi-br] Exportar dados para html, como fazer????

Cido Fri, 19 May 2006 15:16:07 -0700

Fiz um sisteminha pra enviar emails avisando da publicação de um
Informativo, olha ai pra ver se vc entende.
Jogo o HTML dentro de um Memo.

Memo1.Clear;

Memo1.Lines.Add('<html><body>');
Memo1.Lines.Add('<center>Clique abaixo para acessar</center> ');
Memo1.Lines.Add('<a href="" href="http://www.CC.CCCCC..br/informe/acesso.asp">http://www.CC.CCCCC..br/informe/acesso.asp"
border=0>');
Memo1.Lines.Add('<center><img
src="" href="http://www.cc.ccccc.br/informe/imagens/testeinformeativo2.gif">http://www.cc.ccccc.br/informe/imagens/testeinformeativo2.gif"
border=0></img></center>');
Memo1.Lines.Add('<center>Número ' + Edit1.Text + ' de ' +
Edit2.Text + ' a ' + MaskEdit5.Text + '<center>');
Memo1.Lines.Add('</a>');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('<center>Caso deseje cancelar o recebimento deste aviso,
clique <a href="" PROTECTED] da
Lista">aqui</a>.</center>');
Memo1.Lines.Add('</body></html>');

//EMITE AVISO
NMSMTP1.Host := 'servidor.cc.ccccc.br'; //servidor SMTP
NMSMTP1.UserID := 'informe';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := '[EMAIL PROTECTED]';
NMSMTP1.PostMessage.ToAddress.Text := Query3.FieldByName('Email').AsString;
NMSMTP1.SubType:= mtHTML;
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.PostMessage.Subject := 'Informe CC n. ' + Edit1.Text + ' de ' +
Edit2.Text + ' a ' + MaskEdit5.Text;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;

Cido

----- Original Message -----
From: "Allan" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, May 18, 2006 10:29 PM
Subject: [delphi-br] Exportar dados para html, como fazer????

Prezados colegas,
 estou precisando enviar informações via e-mail, só que num arquivo com o
formato html, como fazer isso, já tentei de tudo um pouco, mas nada de
certo.Alguém teria uma idéia de como fazer e que funcione?.

Agradeço desde já.

[]s
Allan.

[As partes desta mensagem que não continham texto foram removidas]

--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Links do Yahoo! Grupos

-- <<<<< 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!.

Re: [delphi-br] Exportar dados para html, como fazer????

Responder a