Bueno, aqui te mando el codigo que utiliza el demo de la Indy de nombre MailClient para adicionar adjuntos al tidMessage...
Ha, esto es con la Indy 9...
Aqui la forma en que agregan un adjunto...
Código Delphi
[-]
procedure AddAttachment;
begin
if OpenDialog1.Execute then
begin
TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);
ResetAttachmentListView;
end;
end;
Aqui como lo gestionan...
Código Delphi
[-]
procedure ResetAttachmentListView;
var li: TListItem;
idx: Integer;
begin
lvFiles.Items.Clear;
for idx := 0 to Pred(IdMsgSend.MessageParts.Count) do
begin
li := lvFiles.Items.Add;
if IdMsgSend.MessageParts.Items[idx] is TIdAttachment then
begin
li.ImageIndex := 0;
li.Caption := TIdAttachment(IdMsgSend.MessageParts.Items[idx]).Filename;
li.SubItems.Add(TIdAttachment(IdMsgSend.MessageParts.Items[idx]).ContentType);
end
else
begin
li.ImageIndex := 1;
li.Caption := IdMsgSend.MessageParts.Items[idx].ContentType;
end;
end;
end;
Espero esto te sirva, de todos modos puedes descargar los demos de la pagina de la Indy, para que te documentes mas okas...