Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re^3: Store Lotus Notes Email

by konveyance (Initiate)
on Feb 18, 2005 at 20:14 UTC ( #432492=note: print w/replies, xml ) Need Help??

in reply to Re^2: Store Lotus Notes Email
in thread Store Lotus Notes Email

The Attachments seemed not to be saving off... I get no message warnings using the newer code... but when I print that ExtractFile message anyways it says something about: No such file or directory. I tried hard coding the path and it still doesn't save off the attachments. Any ideas?

Replies are listed 'Best First'.
Re^4: Store Lotus Notes Email
by pointer2002 (Initiate) on Feb 23, 2005 at 17:37 UTC
    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
      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
Re^4: Store Lotus Notes Email
by Anonymous Monk on Feb 25, 2005 at 21:41 UTC
    The code worked right out of the box. Very impressed. I have a different attachment problem - $doc->{'$FILE'} returns only one attachment name. I have multiple attachments. I got my hands on some API docs that say
    LNNote::GetAttachments Gets an array of all the file attachments in the note and associates i +t with the specified array object. Syntax LNSTATUS GetAttachments( LNAttachmentArray *attachments ) const Arguments attachments Output, pointer to attachment array. Return value LNSTATUS Zero (LNNOERROR) if successful, non-zero otherwise. See also LNNote class LNAttachmentArray class LNNote::GetAttachment
    I can't seem to make it work. Any ideas? --
      Did you try pointer2002's method of downloading attachemnts?
Re^4: Store Lotus Notes Email
by facudy (Initiate) on Jul 26, 2012 at 05:10 UTC
    I've tried this program,the attachment is not able to be downloaded,after debugging I found that the issue is on the line:my $array_ref = $doc->{'$FILE'}; The statement "$doc->{'$FILE'}" return's nothing so the variable $array_ref is null,who can help me ..? I'm using Lotus Notes 8.5.3. Best Regards.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://432492]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2020-10-27 15:41 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (257 votes). Check out past polls.