Indy email attachment

[guest48704]

I found this example, but it no longer works.  It says that there are too many parameters in TIdAttachment.Create.  This must be an old example from I9.  Does anyone have a good Indy 10 attachment example?  Thanks

Code: [Select]

uses IdAttachment

Attachment: TIdAttachment;

for x := 0 to ListBox1.Items.Count-1 do
    Attachment := TIdAttachment.Create(IdMessage1.MessageParts, ListBox1.Items.Strings[x]);



[lucamar]

Please, use [code] tags to insert code snippets into your posts. Otherwise they get mangled very easily, as you can see in your post.

Code: Pascal  [Select][+][-]

1. uses IdAttachment
2.  
3. Attachment: TIdAttachment;
4.  
5. for x := 0 to ListBox1.Items.Count-1 do
6.     Attachment := TIdAttachment.Create(IdMessage1.MessageParts, ListBox1.Items.Strings[x]);

[guest48704]

Found the solution:

Code: [Select]

use IdAttachmentFile

Attachment: IdAttachmentFile

for x := 0 to ListBox1.Items.Count-1 do
    Attachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, ListBox1.Items.Strings[x]);