How to access another resource in Groupwise

Could anyone tell me or direct me to a sample of some code, that shows how to access another resource in Groupwise with VB.

The main goal is to send a appointmentsfrom another resource by accessing this resource that you have authority from own mailaccount

or from an account I have access to.

This so far I have come:

Dim objApp
Dim objAccount As Account
Dim objDraftMsg

objApp = CreateObject("NovellGroupWareSession")

' objAccount = objAccount.ObjType.egwResource

objAccount = objApp.Login("", "") 'My own account but want to access either the account that owns the resource or from my own
' objAccount = objApp.objtype.egwresource("Schema")
objDraftMsg = objAccount.WorkFolder.Messages.Add("GW.MESSAGE.APP OINTMENT")

Dim date1 As New Date(2013, 5, 2, 8, 30, 0)

objDraftMsg.StartDate = date1
objDraftMsg.Duration = 1.5 / 24 ' duration
objDraftMsg.OnCalendar = True

objDraftMsg.Subject.PlainText = "Testar schema" ' Subject
objDraftMsg.BodyText.PlainText = "Hälsar Giggi" ' Body
objDraftMsg.Recipients.Add("XX")
objDraftMsg.Send()

Thank you un advance
Giggi