Okay, I used John M. Dlugosz's suggestion, and I wrapped the entire collection call in curlies, like so:
foreach my $item ( in {$folder->Items} ) { foreach my $attachment ( in {$item->Attachments} ) { print "Saving " . $attachment->FileName . " from \"" . $item-> +Subject . "\"\n"; $attachment->SaveAsFile( "C:\\Download\\" . $attachment->FileN +ame ) ; } }
This works perfectly for me... When I tried cacharbe's suggestion of doing it this way:
in $folder->{Items}, I got this error:
-- More than perfect! Let us engage the Concord!Win32::OLE(0.15) error 0x80020003: "Member not found" at bestshots.pl +line 47 Win32::OLE(0.15): GetOleEnumObject() Not a Win32::OLE::Enum object at +C:/Perl/si te/lib/Win32/OLE/Lite.pm line 167. Can't use string ("0") as a HASH ref while "strict refs" in use at bes +tshots.pl line 47.
In reply to Re: Foreach-ing an OLE Collection object
by patgas
in thread Foreach-ing an OLE Collection object
by patgas
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |