Hallo Eugen,

die Methode .GetExtensionName(...) benötigt eine vollqualifizierte Pfadangabe.

Die liefert Deine Variable strFile offensichtlich nicht. In Deinem Fall sieht es sogar so aus, als würde die Variable vor Verwendung nicht einmal initialisiert.

Allein anhand dem Dateinamen, bzw der .FileName-Eigenschaft , könntest Du wie folgt prüfen:

IF LCase(Right(objAttachments.Item(i).FileName,4)) = ".pdf" THEN
'...