Indy ile Ekli mail alma ve eki kaydetme

[vkamadan]

mehaba

Kod: Tümünü seç

if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
            begin //general attachment 

kullanımda bir sorun yok önceki örneklere göre yaptım projeyi ama sorun yukarıdaki kod parçasındaki MessageParts ın hiç bir elamanda bu karşılaştırma TRUE döndürmüyor yani hiçbir Part Attachment değil diyor oysaki eklentili mail.
teşekkürler.

[vkamadan]

Merhaba ,
Indy9 vardı bende indy10 u yükledim aynı kodlarla derledim sorunum çözüldü iyi çalışmalar.
Demekki bu indy9 (elphi7 ile birlikte gelen versiyon) bazı durumlarda sağlıklı çalışmıyor.

[dilekdurgun]

ekte sunduğum örnekte olduğu gibi sadece 1 dosya ekleyebiliyorum ama ben 1den fazla dosya eklemek istiyorum bunu nasıl yaprım . yardımcı olursanız sevinirim.

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Ek1.Text:=OpenDialog1.FileName;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdMessage1.Clear;
IdMessage1.From.Text :=Edit1.Text; // kimden geldiği
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text; // gönderenin mail adresi
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; // gönderilecek adres
IdMessage1.Date:=Date; //günün tarihi
IdMessage1.Subject:=Edit4.Text; // konu su
IdMessage1.Body.Text := memo1.Text; // mesajınız buraya
IdMessage1.Priority:=mpNormal;
// eklenecek dosyalar
if not (Ek1.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Ek1.Text);
IdMessage1.Body.Assign(Memo1.Lines);

try
IdSMTP1.Send(IdMessage1); // bağlı mesajların gönderimi
finally
IdSMTP1.Disconnect; // bağlantını kesilmesi
end;
end;