stimmt, das items war zu viel!
jetzt versuche ich immernoch, an den blöden Anhang des Termins zu kommen. ich habe jetzt einfach nur mal versucht, herauszubekommen, wieviel Anhänge er denn findet:
Am Ende möchte ich dann den Pfad mit Dateinamen haben, ich hatte es auch schon versucht mit SaveToFile, aber da sagte er dann, dass die MEthode nicht unterstützt wird.
Code:
for i := 1 to gefilterteTermine.Count do
begin
Termin := GefilterteTermine.Item(i);
//Titel des Termins und Startdatum mit Zeit auslesen:
ShowMessage(Termin.Subject + ' '+ DateToStr(Termin.Start) );
//Anhang extrahieren oder den Pfad + Datei
x := Termin.Attachments;
end;
Fehlermeldung: eVariantTypeCastError: Variante des Typs Dispatch konnte nicht in Typ Integer konvertiert werden.
Was muss ich denn nun machen?