http://qs321.pair.com?node_id=433784


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:
use 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 ) ; } }
I picked up this code on another thread. Regards Johnny

Replies are listed 'Best First'.
Re^5: Store Lotus Notes Email
by thebigfatgeek (Initiate) on Jul 23, 2009 at 11:28 UTC
    I know this is going back a few years, but how would I use this, do I need to add it into the code supplied by buckaduck, or on its own? The code supplied by buckaduck works great, but only saves the first attachment in an email, and I would love to be able to get a fix for that. Thanks for any advice