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]';
// Nome do remetente
FromName := 'Vinicius da Silva';
// E-mail do destinatário
ToAddress.Clear;
ToCarbonCopy.Clear;
ArquivosComEmail.Open;
ArquivosComEmail.First;
ToAddress.Add('[EMAIL PROTECTED]');
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:\diretorio\arquivo.ext');
end;
Wsmtp.SendMail;
Wsmtp.Disconnect;
Assim funciona comigo....
