Mail gönderme mesajı

[AliRiza]

Arkadaşlar idsmtp ile mail gönderiyorum.Mail gidiyor.Attığım yerde kontrol ediyorum.Mail göndermede problem yok.İdsmtp'nin statsu olayında aşağıdaki kodu yazdım.Ama bana bağlanma durumu veya bağlanama ,mail gönderildi gibi hiç bir uyarı gelmiyor.Astatustext'le mesajın gözükmesi gerekmezmi.

Kod: Tümünü seç

procedure TForm4.IdSMTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  StatusMemo.Lines.Insert(1,'Status: ' + AStatusText);
end;

Yardımlarınızı bekliyorum..

[bilbeyi]

yazdığın procedure 'nin en üstüne
Application.ProcessMessages;
eklersen sorun kalmaz diye düşünüyorum.
Bunları bende kullanıyorum ve bir sorunum yok

[AliRiza]

Bilbeyi kardeş denedim olmadı.Neden olmadı bilmiyorum..
Sizce neden olabilir?

[bilbeyi]

ilk olarak programı satır satır çalıştırıp bir kontrol edin. Acaba gerçekten program sizin istediğiniz gibi mi işliyor.
Bu kontrolleri ilgili procedurlerde yapıyorum.
mesela
Try
idsmtp1.send(idmessage1);
string:=' mail gönderildi';
except
string:=' mail gönderilemedi';

gerçi bunu şu şekillerde yapabilirsin. Belki böylesi daha sağlıklı olur
help kısmından şunları aratırsın

hsResolving - A host name is being resolved to an IP Address
hsConnecting - A connection is being opened
hsConnected - A connection has been made
hsDisconnecting - The connection is being closed
hsDisconnected - The connection has been closed
hsText - The connection is generating an informational message