Delphi ile eskisi kadar uğraşmayınca sorularımda azalmaya başladı
![Smile :)](./images/smilies/icon_smile.gif)
![Smile :)](./images/smilies/icon_smile.gif)
döngü kodu:
----------------------------------
while not adotbl.Eof do
begin
i := i + 1;
AliciAdres := adotbl.FieldByName('UyeMail').AsString;
lblMail.Caption := AliciAdres;
MailSend(AliciAdres); //aliciadresini girdiğim kişey maili gönderiyor
lblMailCount.Caption := inttostr(i);
// Delay(100);
// sleep(100);
adotbl.Next;
end;
********************************************************
MailSend alt programı
------------------------------
function TForm1.MailSend(Adres: String): Boolean;
begin
try
try
msg.From.Address := cmbbxUserName.Items[cmbbxUserName.ItemIndex];
msg.Recipients.EMailAddresses := Adres;
msg.Subject := edtSubject.Text;
msg.Body.Assign(edtBody.Lines);
finally
smtp.Send(msg);
//stsbrDurum.SimpleText := 'Mail Gönderildi';
//delay(100);
end;
except
ShowMessage('Mail Gönderilemedi');
end;
end;
*******************************************************************