Delphi ile eskisi kadar uğraşmayınca sorularımda azalmaya başladı
Şöyle bi sorum olacaktı; Indy bileşenleri ile bir mail gönderme programı yaptım. Veritabanındaki mail listesindeki zatı muhteremlere sırayla mail gönderiyorum. Yalnız şöyle bir problem oluyor. Toplu halde mail göndermeye başladığımda, 15-20 bazen 30-40 mail gönderdikten sonra program kitleniyor. Veri tabanındaki bütün kayıtlara mail göndermeyi tamamlayamadan, programda sorun oluşuyor. Döngü içinde sleep veya gecikme gibi programlar kullandım, biraz dinlensin dedim makina döngülerde ama banamısın demedi Varmıdır bir fikre sahip olan? 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;
*******************************************************************
