indy 10 attachment problemi

[myalcin]

merhaba arkadaşlar.
indy 10 ile smtp mail göndermeyi başardım .Fakat bir türlü attachment işini halledemedim.
indy 9 da falan şu kod işe yarıyordu.

Kod: Tümünü seç

  Attach := TIdAttachment.Create(idmessage.MessageParts, File);

ama indy 10 da attachment create metodunda sadece tcollection tipi girilebiliyor.
yani kodda görmüş olduğunuz file parametresi yazılırsa "too many actual parameters" hatası veriyor.
çok aradım ama indy 10 attach işini halledemedim.
bu konuda bilgilerinizi paylaşırsanız sevinirim.
iyi çalışmalar.

[conari]

bu şekilde kullan.

Kod: Tümünü seç

E_filename.Text:= OpenDialog.FileName

Kod: Tümünü seç

 Attachment := TIdAttachment.Create( IdMessage.MessageParts, E_filename.Text );
  Attachment.ContentDisposition := 'attachment';
  Attachment.ExtraHeaders.Values['content-id'] := E_filename.Text;

[myalcin]

mesajın için teşekkürler. Bu şekilde denedim olmadı fakat başka bir çözüm buldum.

Kod: Tümünü seç

uses ... IdAttachmentFile
var
eklidosya:TidAttachmentFile;
begin
eklidosya:=TidAttachmentFile.Create('idMesage1.MessageParts,'C:\1.txt');
.
.
.
.
end;