VB: How to create a calendar item

[pharcyder]

Hello, i'm trying to add a calendar item via Visual Basic.

Here's the code i'm using (so far):
[tt]
Sub Notes()

Dim session As Object
Dim db As Object
Dim doc As Object
Set session = CreateObject("Notes.NotesSession&quot
Set db = session.GETDATABASE("", "C:\notes\test.nsf&quot
Set doc = db.CREATEDOCUMENT()
doc.Form = "memo" 'What else can i use here ?
doc.Subject = "Subjekt"
doc.Body = "Bodytext"
'doc.sendto = "test@tes.com" 'This is for mails
Call doc.Save(True, False)


Set doc = Nothing
Set db = Nothing
Set session = Nothing
End Sub
[/tt]

Now this code creates a new memo in my draft folder. But how can I create a calendar entry (and what properties can I set) via VB ??

Thanks in advance,
Jens K.

 

[pharcyder]

Okay, I changed the [tt]doc.Form[/tt] to "Appointment",
now it's a calendar item. But how can I save this item in the calendar ?
Now its just being stored in the drafts folder...