Hallo Lars,
versuch mal folgenden Code:
Delphi-Quellcode:
var aContactItem : OleVariant;
...
for i := 1 to Contacts.Items.Count do
aContactItem := Contacts.Item(i)
aContactItem.Attachments.Add('c:\IrgendeineDatei.txt', olByValue, 10000, 'Ein Name für den Anhang');
aContactItem.Save;
end;
Gruß Dale