Manage Learn to apply best practices and optimize your operations.

LotusScript agent to send all field values to email recipient

LotusScript agent to send all field values to email recipient

This agent sends an email with the body containing all values for each field in the currently-opened document. It does not sort the fields by name, but you can find code that does elsewhere on this site by searching for "Bubble".


Sub Initialize
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document
     Dim db As NotesDatabase
     Set db = doc.parentdatabase
     Dim stuff As Variant
     Dim memodoc As New NotesDocument(db)
     Dim stuffx As Variant
     stuffx=""
     memodoc.form = "memo"
     memodoc.sendto = "Rob Pinion/USA/BAC"
     memodoc.subject = "Result"
     Set rtitem = New NotesRichTextItem( memodoc, "Body" )
     Forall item In doc.items
          If item.issummary Then
               Forall v In item.values
                    stuffx = stuffx & " " & v
               End Forall
               Call rtitem.AddNewLine( 1 )
               Call rtitem.AppendText( item.name & " == " & stuffx )
               stuffx = ""
          End If
          
     End Forall
     Call memodoc.send(False)
     
End Sub

Dig Deeper on Domino Resources - Part 4

SearchWindowsServer

Search400

  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury

SearchDataCenter

SearchContentManagement

Close