Access To Do List Items with VB 6.0

HCL Domino Domino Forum
1

I am try to build a program in VB 6.0 that will allow me to sort, edit and delete my “To Do” and “Calendar” entries in lotus notes. I am having a hard time finding information on accessing these sub systems. Can some one help direct me to the right area?

I have been able to find this code which will allows me to move and delete mail messages. I would like to know how I can edit this code to access the To Do list or Calendar views instead of the InBox.

Thanks for the help

BDS

[Code Sample Starts Here:]

Dim ntSession As Object, db As Object, dc As Object, doc As Object

Dim counter As Long, rtitem As Object

Set ntSession = CreateObject("Notes.NotesSession")

Set db = ntSession.GETDATABASE("servername", "mail db")

 

If Not db.ISOPEN Then

    db.OPENMAIL

End If

Set dc = db.GetView("($Inbox)")

Set doc = dc.GETFIRSTDOCUMENT

 

strSubject = "Hi Test"

Do While Not (doc Is Nothing)

     

    If InStr(1, doc.GetItemValue("Subject")(0), strSubject) > 0 Then

        doc.PUTINFOLDER "Personal", True

        doc.REMOVEFROMFOLDER "($Inbox)"

        Exit Do

    End If

    Set doc = dc.GETNEXTDOCUMENT(doc)

Loop
2

Subject: RE: Access To Do List Items with VB 6.0

These entries are just documents, and you manipulate them by setting their item values, just as you would when working with memos. The trick is knowing what items to set, and as far as I know there’s not a lot of documentation out there for that. Your best bet is to take a “before” snapshot of a document by exporting it as structured text, make a change manually, then export an “after” snapshot and use a text diff tool to compare them to see what changed. In many cases, changing one field may result in multiple items changing in the stored document.