Dim gwMsg As GroupwareTypeLibrary.Message3
Dim gwAppt As GroupwareTypeLibrary.Appointment9
Set gwCalMsgs = gwAcct.Calendar.Messages
For Each gwMsg In gwCalMsgs
If gwMsg.ClassName = "GW.MESSAGE.APPOINTMENT" Then
Set gwAppt = gwMsg
' ---< Now your object is of the 'Appointment' type. >---
End If
Next |