مشکل با دریافت Attachment ایمیل با کامپوننت Indy

[Kamyar.Kimiyabeigi]

با سلام
من یک میل سرور دارم که با pop3 , smtp کار میکنه که البته در قسمت pop3 از ssl استفاده میشه وقتی تنظیمات رو در outlook انجام میدم ایمیل را میگیرم و ضمیمه آن را هم بدرستی میگیرم ولی وقتی در برنامه خودم این تنظیمات را بوسیله کامپوننت indy انجام میدم ایمیل رو بدرستی دریافت میکنم ولی هیچ ضمیمه ایی نمیگیرم. چرا ؟

[Mask]

سلام :
فارغ از بحث فنی این موضوع : سریعترین جوابی که میشه به شما داد ، استفاده از کامپوننت Clever Internet Suite هست.
در زیر سمپلهای موجود در این کامپوننت رو میتونید ببینید.

[Kamyar.Kimiyabeigi]

ممنون میشم اگر مدیران تاپیک منو در قسمت درست (قسمت شبکه دلفی) قرار بدن
اینم کدی که نوشتم

  Memo1.Clear;

  POP3.ConnectTimeout := 20000;

  if POP3.Connected then

    POP3.Disconnect;

  POP3.Host := '*****';

  POP3.Port := 995;

  POP3.Username := '*****';

  POP3.Password := '*****';

  SSLIOHandler.Host := POP3.Host;

  SSLIOHandler.Port := POP3.Port;

  POP3.IOHandler := SSLIOHandler;

  POP3.UseTLS := utUseImplicitTLS

  try

    POP3.Connect;

  except

    Memo1.Text := Memo1.Text + 'Can not connect to server' + #13#10;

    Memo1.Text := Memo1.Text + '==========' + #13#10;

  end;

  for i := 1 to POP3.CheckMessages do

  begin

    Msg.Clear;

    POP3.RetrieveHeader(i, Msg)

    Memo1.Text := Memo1.Text + 'Subject: ' + Msg.Subject + #13#10;

    Memo1.Text := Memo1.Text + 'AttachmentCount: ' + IntToStr(Msg.MessageParts.AttachmentCount) + #13#10;

    Memo1.Text := Memo1.Text + 'MessagePartsCount: ' + IntToStr(Msg.MessageParts.Count) + #13#10;

    Memo1.Text := Memo1.Text + '==========' + #13#10;

  end;

  POP3.Disconnect;

  Memo1.Text := Memo1.Text + 'End of conecction' + #13#10;

[Kamyar.Kimiyabeigi]

هیچکس نمیتونه کمک کنه؟؟؟؟