TIdPOP3 Emails speichern

[Daniel666]

Hi !

Also ich probiere schon seit mehreren Stunden eine EMail mit Hilfe der TIdPOP3-Komponente zu speichern.
Leider bisher ohne Erfolg.
Die Beispiel Progs auf der Indy-Homepage bringen mich da auch nicht weiter.
Also ich möchte gerne den Body und den Anhang in zwei separten Dateien speichern. So wie ich das gemacht habe funktioniert das leider nicht:

for (z=0;z<Msg->MessageParts->Count;z++)
{
 if (Msg->MessageParts->Items[z]->ClassNameIs("TIdAttachment"))
 {
   attach=(TIdAttachment*)Msg->MessageParts->Items[z];
   attach->SaveToFile(attach->FileName);
 }
 else
 {
   body=(TIdText*)Msg->MessageParts->Items[z];
   for (z2=0;z2<body->Body->Count;z2++)
   {
     ptr2=fopen("Test.txt","at");
     fprintf(ptr2,"%s\n",body->Body->Strings[z].c_str());
     fclose(ptr2);
   } 
 }
}

Kann mir vieleicht jemand weiterhelfen ?

Gruss Daniel666