delphi ile mail idsmtp idmessage

[savasgti]

Arkadaşlar iki ay önce yaptığım mail programı şu an çalışmıyor. mail normalde çalışıyor testini yaptım. Hata şu : Soket error #10051 network is unreachable. Lütfen yardım edebilirmisiniz.

Kod: Tümünü seç

  Try
    with IdSMTP1 do
    begin
      Host := FnHost.Text;
      Password := FnSifre.Text;
      AuthType := atDefault;
      Username := FnUser_Id.Text;
      Port := 25;
      if Connected = False Then
        Connect;
    End;
  Except
    msg := 'Bağlantı Sağlanamadı...';
  End;
  Try
    with IdMessage1 do
    begin
      Clear;
      From.Name := FnUser_Id.Text;
      From.Address := FnUser_Id.Text;
      Subject := FnKonu.Text;
      Body.Assign(Memo1.Lines);
      ReplyTo.EMailAddresses := FnUser_Id.Text;
      Recipients.EMailAddresses := FnKime.Text;
      //idattachentfile unitini ekle
      TIdAttachmentFile.Create(MessageParts, OpenDialog1.FileName);
    end;
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;
    msg := 'Mailiniz Başarıyla Gönderildi...';
  Except
    msg := 'Mailiniz Gönderilemedi...';
    IdSMTP1.Disconnect;
  End;

[conari]

Telekomun 25 nolu port değişikliğini kaçırdınız sanırım.

viewtopic.php?f=13&t=25769

[savasgti]

üstat hay senden allah razı olsun kafayı yedirecekti şeref... bana. Kolay gelsin tekrar tekrar teşekkür ederim.