[DELPHI] Invio email a indirizzi presenti in TListBox

[camaleonteplus]

var
I: Integer;
begin
Lista.Items.Clear;
for I := 0 to StrToInt(Num.Text)-1 do
begin
//visualizza IP
begin
//setup SMTP
SMTP.Host := Server.Text;
SMTP.Port := 25;
//Camuffare il programma
SMTP.MailAgent := Agent.Text;
//setup mail message
MailMessage.From.Address := Da.Text;
MailMessage.From.Name := Nome.Text;
MailMessage.Recipients.EMailAddresses :=
A.Text + ',' + CC.Text;
MailMessage.CCList.EMailAddresses := CC.Text;
MailMessage.BccList.EMailAddresses := Ccn.Text;
MailMessage.Subject := Oggetto.Text;
MailMessage.Body.Text := Messaggio.Text;
if FileExists(Allegato.Text) then
TIdAttachment.Create(MailMessage.MessageParts,
Allegato.Text);
//send mail
try
try
SMTP.Connect(3000);
SMTP.Send(MailMessage);
except on E:Exception do
Messaggio.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if SMTP.Connected then
SMTP.Disconnect;