c num tem indy ae ?
IDSMTP site do componente: http://www.indyproject.org/index.en.aspx exemplo em delphi : http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=340&mode=thread&order=0&thold=0 ----- Original Message ----- From: Robson To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 25, 2007 11:58 AM Subject: Res: RES: [delphi-br] Email para clientes 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]> Para: delphi-br@yahoogrupos.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] [As partes desta mensagem que não continham texto foram removidas]