Send e-mail with various attachments

Question

I am sending e-mail through the INDY, the email is being sent and the attachment is going, but as it appears in the code below, I do a go through all the attachments, and it only sends the last, someone knows what is wrong?

    if pAnexo.Count > 0 then
    begin
      for i := 0 to pAnexo.Count - 1 do
      begin
          vIdAttachmentFile.Create(vIdMessage.MessageParts, pAnexo.Strings[i]);
      end;
    end;

The variable pAnex is an array of files that will be attached, I’m trying to send a jpeg and an xml, in the future I want to send a PDF together.

Answer 1

Below follows the way it worked for me, it was just a detail! Melissa helped me: /users/111325/melissa

if pAnexo.Count > 0 then
begin
  for i := 0 to pAnexo.Count - 1 do
  begin
      TIdAttachmentFile.Create(vIdMessage.MessageParts, pAnexo[i]);
  end;
end;

Answer 2

I believe that the pAnexo be a stringList, otherwise, change. And then pass this way:

vIdAttachmentFile.Create(vIdMessage.MessageParts, pAnexo[i]);

Another thing, check the ContentType:

vIdMessage.ContentType := 'multipart/mixed';