ActiveDelphi

[thiago.rj]

Como faço para enviar emails para uma listagem de pessoas (contidas em um listbox)?

Obs.: Já fiz a programação de envio de mail (digitado em um edit) e funcionou; porém, não sei como "pegar" os email listados em um lisbox e enviar a mensagem para eles.

[faccruz]

Faz um for lendo a quantidade dos e-mails no list
_________________
Facc System - Sistemas para Computador

[thiago.rj]

Vou tentar. Vlw!

[thiago.rj]

Tem como me ajudar de novo? Não estou conseguindo, segue o código:

for I:=1 to lbPara.Items.Count-1 do
begin
idMensagem.Recipients.EMailAddresses := lbPara.Items[I];
IdMensagem.Subject := edtAssunto.Text;
IdMensagem.Body := mmMensagem.Lines;
end;