in reply to Re^3: Store Lotus Notes Email
in thread Store Lotus Notes Email
You may use another way to save the attachments like this:
I picked up this code on another thread. Regards Johnnyuse constant RTELEM_TYPE_FILEATTACHMENT=>8; ... foreach $doc($alldocs) { .. ... if( $Document->HasEmbedded ) { print "hasembeded\n"; my $body = $Document->GetFirstItem('Body'); my $nav = $body->CreateNavigator; if( $nav->FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) ) { do { my $att = $nav->GetElement; my $dir = "$oriDIR/$cpt"; mkdir $dir unless -d $dir; my $file = "$dir/" . $att->Source; $att->ExtractFile( $file ); print "$file extracted\n"; } while( $nav->FindNextElement ) ; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Store Lotus Notes Email
by thebigfatgeek (Initiate) on Jul 23, 2009 at 11:28 UTC |
In Section
Code Catacombs