Mega Code Archive
Neoturk forum - tidsmtp
<![CDATA[
"
Bugün 14:12
TIdSMTP
TIdMessage ve TIdSMTP nesnelerini kullanarak mail atabiliyorum.
Programda mailin gönderilip gönderilmediğini nasıl anlayabilirim.
Teşekkürler...
Heşin
"
cevap:
mailin gönderilip gönderilmediğini smtp nesnesinin "onstatus"
özelliğinden öğrenebilirsin.
procedure TForm1.IdSMTP1Status(axSender: TObject;
const axStatus: TIdStatus; const asStatusText: String);
begin
//...kontroller ve gereken kodlar burada yazılabilir....
case axstatus of
hsResolving: //IP adresi çözülmüştür
begin
end;
hsConnecting://bağlantı noktası açılmıştır
begin
end;
hsConnected://bağlantı kurulmuştur
begin
end;
hsDisconnecting://bağlantı kesilmek üzeredir.
begin
end;
hsDisconnected://bağlantı kalmamıştır, kapanmıştır
begin
end;
hsText://genel bilgi mesajı burada verilmektedir.
begin
label1.caption:=asstatustext;//genel info bilgisini labelde göster
//burada ilgili statustext bilgilerine göre
//mailinizin yerine ulaşıp ulaşmadığını anlayabilirsiniz.
end;
end;//case
//final
end;
size tavsiyem,
örnek bir mail atın, sağlam gönderilen maildeki "asstatustext"yazısını
kontrol edin bakın ne yazıyor içinde diye.
daha sonra hatalı bir mail adresi gönderin. tekrar bu metnin içeriğini kontrol
edin.
duruma göre "pos" functionundan faydalanarak mailin akibeti konusunda kullanıcıyı
bilgilendirebilirsiniz.
bu işlemler nmstrm nesnelerinde daha kolaydı, indy nesnelerinde neden daraltmışlar
anlayamadım bi türlü zaten...
çözüm yukarıda verdiğim mantığa uygundur,
bu nesne için başka yöntem varsa da bilmiyorum.....
kolay gelsin...
saygılarımla_
neoturk_
]]>