Sobre o Envio de e-mail pessoal, alguém já consegui enviar e-mail em HTML
tipo newsletter ?
Valew,
Em 25/10/07, Robson <[EMAIL PROTECTED]> escreveu:
>
> Vinícius,
> qual o componente q vc ta usando?
> gostaria de incluir o envio de e-mail mas o naum achei qual o componente
> para o WSMTP, qual o componemte e se naum for nativo do delphi qual o
> fornecedor do mesmo.
>
>
>
> Kaputz, Robson
> Skype: kaputz_gri
> "Keep the Dream Alive"
>
> ----- Mensagem original ----
> De: Vinicius da Silva Pinto <[EMAIL PROTECTED] <vinicius%40cnen.gov.br>
> >
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Enviadas: Terça-feira, 23 de Outubro de 2007 18:49:23
> Assunto: RES: [delphi-br] Email para clientes
>
> Boa Tarde !!!
>
> Tenho um cadastro de clientes c/ o campo email e gostaria de enviar um
> email
> para todos os clientes da tabela c/ uma mensagem. Tem como ?
>
> Uso o Delphi 5
>
> Abraço
>
> Doretto
>
> Wsmtp.Connect;
> if not Wsmtp.Connected then
> raise Exception.Create( 'Erro de conexão');
> with Wsmtp.PostMessage do begin
> // E-mail do remetente
> FromAddress := '[EMAIL PROTECTED] com.br';
> // Nome do remetente
> FromName := 'Vinicius da Silva';
> // E-mail do destinatário
> ToAddress.Clear;
> ToCarbonCopy. Clear;
> ArquivosComEmail. Open;
> ArquivosComEmail. First;
> ToAddress.Add('[EMAIL PROTECTED] gov.br');
> ArquivosComEmail. Next;
> while not ArquivosComEmail. Eof do begin
> ToCarbonCopy. Add('email que esta no arquivo');
> ArquivosComEmail. Next;
> end;
> Subject := 'escreva o que vc quiser: ' + WdataS;
> // Corpo da mensagem
> Body.Clear;
> Body.Add('aqui vc coloca o texto da mensagem, pode ser um arquivo
> txt');
> // Se quiser, pode anexar arquivos...
> Attachments. Add('c:\diretori o\arquivo. ext');
> end;
> Wsmtp.SendMail;
> Wsmtp.Disconnect;
>
> Assim funciona comigo....
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> http://br.mail.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
