Problem mit ListenIndex überschreitung

[sakura]

Du hast eine 0 basierte Liste, d.h. die Items gehen von 0 bis Count-1

Code:

// Teile der Email durchgehen
For j:=0 to EMail.MessageParts.Count[color=#ff0000]-1[/color] do
begin 

[i][color=#3b00ff]// anschließen 0 mit J ersetzen[/color][/i]
//wenn ein Teil Text ist, diesen in Email ablegen 
IDmessagePart := Email.messageparts.items[[color=#ff0000]j[/color]];

......