LotusScript Agent Code Sample to Forward Documents via Email from Report Manager Database

From Support

Sub Initialize

'Declare Notes Work Variables Dim db As notesdatabase Dim col As notesdocumentcollection Dim doc As notesdocument Dim sEmail As Variant Dim sDocTitle As Variant

'Open Notes Session Dim session As New notessession 'Select current database Set db=session.currentdatabase 'Select all documents Set col=db.AllDocuments 'Get first document Set doc=col.getfirstdocument '----------------------------------------------------------- 'Loop to Process all documents '----------------------------------------------------------- While Not doc Is Nothing

    '-----------------------------------------------------------		
    ' Get Email Address from User Field 1	
    '-----------------------------------------------------------
    sEmail =doc.Getitemvalue("UserField1")
    
   '-----------------------------------------------------------		
   ' Get Document Title and Set as Subject
   '-----------------------------------------------------------
   sDocTitle =doc.Getitemvalue("DocTitle")
   '-----------------------------------------------------------		
   'If email address, email Document to Selected Email Address	
   '-----------------------------------------------------------			
    If Trim(sEmail(0)) <> "" Then 

         '-----------------------------------------------------------	        
       'Set email message subject			
         '-----------------------------------------------------------	          
         doc.Subject = sDocTitle(0)
         '-----------------------------------------------------------	        
       'Forward report via email
          '-----------------------------------------------------------	          
          Call doc.Send(False,sEmail(0))
     
         '-----------------------------------------------------------		
       ' Reset email address
       '-----------------------------------------------------------
          Call doc.Replaceitemvalue("UserField1","")
          Call doc.save(True,False,False)

    End If
     

'Read next document Set doc=col.getnextdocument(doc)

Wend

End Sub