Ard arda email

[meren]

merhaba arkadaşlar ben bir program hazırladım progrmaın mail atma bölümünde Query1'deki kayıtların hepsini dola$ıp tek tek mail atmasını istiyorum benim program her kayıta geldiğinde mail atmaya çalı$ıyor.. 1. kayıta geliyor maili gönderiyor sorun olmuyor fakat 2. kayıta geldiğinde maili gönderemiyor hata veriyor.. mail gönderme kodunu aşağıdaki gibi kullandım acaba nerede hata yapıyorum ?, yardımlarınızı bekler iyi çalışmalar dilerim

Kod: Tümünü seç

    IdSMTP1.Disconnect;
    IdMessage1.Sender.Address :='asd@asd.com';
    IdMessage1.From.Name      :='ASD';//gönderenin adı
    IdMessage1.From.Address   :='asd@asd.com';//gönderen mail adresi
    IdMessage1.Recipients.EMailAddresses :=Memo4.Lines.Text;
    IdMessage1.Priority := mpNormal;//mesaj önceliği
    IdMessage1.Date := DxDateEdit2.Date;
    IdMessage1.UseNowForDate := true;
    IdMessage1.ContentType :='Text/html';
    IdMessage1.Body.Assign(RichEdit1.Lines);
    IdMessage1.Body.Append('<br>');
    IdMessage1.Body.Append('<br>');
    IdMessage1.Body.Append('Toplantı Bilgileri');
    IdMessage1.Body.Append('<br>');
    IdMessage1.Body.Append('Top.Kodu ='+ComboBox2.Text);
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('Top.Tarihi ='+DxDateEdit1.Text);
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('Top.Konusu ='+Edit2.Text);
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Subject :='TOPLANTI BİLGİ MAİLİ';
    IdMessage1.Body.Append('<br>');
    IdMessage1.Body.Append('Mad.Bit.Tarihi ='+DxDateEdit3.Text);
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('&nbsp');
    IdMessage1.Body.Append('Madde No ='+Edit5.Text);
// bağlantı bölümü
    IdSMTP1.Authenticate;
    IdSMTP1.AuthenticationType:=atLogin;//smtp login bölümü
    IdSMTP1.Password :='asd@asd.com';
    IdSMTP1.Username :='123456';
    IdSMTP1.Host:='mail.asd.com';
    IdSMTP1.Port:=25;

   IdSMTP1.Connect;
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;

bana şöyle bir hata veriyor arkadaşlar 2. maili gönderirken
EidNoConnected with message "Not Connected" nasıl çözebilirim bu problemi acaba?

saygılar

[ender_arslanturk]

hocam bir ara bende yakın birşey sordum... Ama şaşırtıcı cevap aldım... Niyetimde kötü değildi yani... Aldığım cevap spamcıysan diye olmuştu... Birde kendi sorduğun soruyu görüntüleme bile yapmamışsın...

İstersen arama yap , bu konular burada çok konuşuldu... Örnek çokkk... Bu ara admin kızmaz inşallah sana

Kısaca the search

[vedatkaba]

Kurduğun döngüde hata yapıyor olmayasın ,,,bence mail atma olayında hata yok ...kolay gelsin.

[mussimsek]

viewtopic.php?t=11980&highlight=

Delphi Forum başka forumlara benzemez! LÜTFEN FORUM KURALLARINI OKUYUP, UYUN!!!

[mege]

viewtopic.php?p=68172#68172

aynı soruyu iki kere sormak forum kurallarına aykırıdır.