Re^2: Store Lotus Notes Email

[buckaduck]

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

[konveyance]

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?

[pointer2002]

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

[thebigfatgeek]

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

[Anonymous Monk]

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? -- [e-mail]

[NateTut]

Did you try pointer2002's method of downloading attachemnts?

[facudy]

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.