Help for this page

Select Code to Download


  1. or download this
    # Dim rtitem As Variant
    # Set rtitem = doc.GetFirstItem( "Body" )
    ...
    #   End If
    # End Forall
    #End Sub
    
  2. or download this
    foreach my $embeddedDoc ( $DocumentBody->{EmbeddedObjects} ) {
        my $edocType =$embeddedDoc->{Type};
    ...
            }
            
    }
    
  3. or download this
    use strict;
    use Win32::OLE;
    ...
    # You can get documentation on Notes objects from
    # http://www.lotus.com/products/lotusscript.nsf