PureBasic Forum

Protected Sess.COMateObject ;Dim Sess As Object
    Protected DB.COMateObject ;Dim DB As Object
    Protected Flag.i ;Dim flag As Boolean
    Protected Item.VARIANT ;Dim item As Variant
 
    Define.COMateEnumObject Dc
    Define.COMateObject NodeObject
     
    Sess = COMate_CreateObject("Notes.NotesSession") ; Set Sess = CreateObject("Notes.NotesSession")
    DB = Sess\GetObjectProperty("GetDatabase('', '')") ; Set DB = Sess.GetDatabase("", "")
    DB\Invoke("OPENMAIL") ; DB.OpenMail
    flag = #True
     
    If Not DB\GetIntegerProperty("IsOpen") ; If Not (DB.IsOpen) Then
     Flag = DB\Invoke("Open('', '')") ; flag = DB.Open("", "")
    EndIf
     
    ;Debug COMate_GetLastErrorDescription()
    If Flag
     
     Dc = DB\CreateEnumeration("AllDocuments")
     ;Doc = Dc\CreateEnumeration("GetFirstDocument")
     
     If Dc
     
      NodeObject = Dc\GetNextObject()
     
      While NodeObject
       
       Debug NodeObject\GetStringProperty("GetItemValue('Subject')(0)")
           
       NodeObject\Release()
       NodeObject = Dc\GetNextObject()
       
      Wend
       
      Dc\Release()
       
     EndIf
                   
     Sess\Release()
     DB\Release()
       
    EndIf

Dim Sess As Object
 Dim DB As Object
 Dim flag As Boolean
 
 Dim dc As Object
 Dim Doc As Object
 Dim item As Variant
 
 Set Sess = CreateObject("Notes.NotesSession")
 Set DB = Sess.GetDatabase("", "")
 DB.OpenMail
 flag = True
 
 If Not (DB.IsOpen) Then flag = DB.Open("", "")

 If flag Then
 
  Set dc = DB.AllDocuments
  Set Doc = dc.GetFirstDocument
 
  Do While Not (Doc Is Nothing)
 
   Debug.Print Doc.GetItemValue("Subject")(0)
   Set Doc = dc.GetNextDocument(Doc)
 
  Loop
 
 End If
 
 Set Sess = Nothing
 Set DB = Nothing