COMatePLUS version 1.2

[Falko]

http://www.nxsoftware.com/ ---> No input file specified.

No COMate Plus downloads ?

[netmaestro]

COMatePLUS is a free open-source program, so I don't believe srod would mind my mirroring it here:

http://lloydsplace.com/COMatePLUS-PB4-50.zip

If he does, I guess I'll hear from him soon.

[Falko]

Thank you for this link

[Bisonte]

COMatePLUS is a free open-source program, so I don't believe srod would mind my mirroring it here:

http://lloydsplace.com/COMatePLUS-PB4-50.zip

If he does, I guess I'll hear from him soon.

Sorry, but this link don't work ....

[DoubleDutch]

Has anyone got this, plus AdoMate?

[Little John]

COMate Plus -- and other interesting stuff -- can be downloaded from RSBasic's backup page.

[DoubleDutch]

Thanks....

I didn't spot AdoMate - do you know if it's there?

[DoubleDutch]

Update: Don't worry - I've dloaded it now.

[kenmo]

@srod
Maybe I am a few years behind... today is the first time I've ever needed COM automation through PureBasic... but thank you for this COM package, it is extremely handy!

[srod]

You're welcome Kenmo.

[zapman*]

I've posted a tip to convert .doc, .docx and .odt documents to HTML and PDF using COMatePLUS and OpenOffice.
You can find it here : http://www.purebasic.fr/english/viewtop ... 12&t=50137

[DoubleDutch]

I've been looking at reading the sensors that are in nextgen Windows 7 and Windows 8 laptops/tablets...

http://software.intel.com/en-us/article ... ent-guide/

Reading them should be possible using COMatePlus - anyone tried this yet or have any examples?

[Kwai chang caine]

Hello

I try since 6 hours to convert a VB code who works fine in PB, without succes
If someone can help me

PB Code

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

VB Code

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

[Kwai chang caine]

Nobody can help me ??

[falsam]

Nobody can help me ??

I do not use Lotus note. sorry