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]
