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


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 ) ;
    }
}

    [download]
    I picked up this code on another thread. Regards Johnny
[reply]
[d/l]
      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]
      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