Re^2: Store Lotus Notes Email

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

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

These are some awesome improvements! I'm glad we could help each other.

buckaduck

Comment on Re^2: Store Lotus Notes Email

Replies are listed 'Best First'.
Re^3: Store Lotus Notes Email by konveyance (Initiate) on Feb 18, 2005 at 20:14 UTC
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?	[reply]
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 ) ; } }` [download] I picked up this code on another thread. Regards Johnny	[reply] [d/l]
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	[reply]
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` [download] I can't seem to make it work. Any ideas? -- matthew.persico@gmail.com	[reply] [d/l]
Re^5: Store Lotus Notes Email by NateTut (Deacon) on Apr 13, 2005 at 17:14 UTC
Did you try pointer2002's method of downloading attachemnts?	[reply]
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.	[reply]

In Section Code Catacombs