PureBasic Forums - English

Code: Select all

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

Code: Select all

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