Oops, the code above had 'elseif' instead of 'elsif', otherwise it would run. Everything works except the code that is supposed to determine the type of attachment.

The code was supposed to this.

foreach my $embeddedDoc ( $DocumentBody->{EmbeddedObjects} ) {
        my $edocType =$embeddedDoc->{Type};
        if ( $edocType eq 'EMBED_ATTACHMENT' ) {
            print "Embedded Attachment!\n"; 
        } elsif ( $edocType eq 'RICH_TEXT' ) {
            print "Some sort of Rich Document\n";
        } else { 
            print "Unknown Attachment! [ $edocType ] \n"; 
        }
        
    }
[download]

Output is:

..snip.. Running Notes "Release 4.5.5 (Intl)|14 April 1998" on "Windows/32". There are 470 documents in the database. 1. Test 2. Test .. snip .. 74. Metrics for the past 2 weeks. Unknown Attachment! .. snip .. All I get is a null string. 8-(