when accessing this object, after trapping the SEND token for the POST
command for personal (posted) appointments, the object is invalid.

the error coming back is consistent and it is as follows:

Method 'CommandMessage' of object 'IGWClientState5' failed

is there a fix for this?

I'm including some sample code.

I appreciate any feedback on this!

Tim

************************************************** ************************************************** ****************

Public Function WantCommand(sGWContext As String, sGWPersistentID As String)
As Boolean

WantCommand = False

If (InStr(1, sGWContext, "APPOINTMENT", vbTextCompare) <> 0) And
((sGWPersistentID = eGW_CMDID_ACCEPT) Or (sGWPersistentID = eGW_CMDID_SEND))
Then
WantCommand = True
End If

End Function


Public Function BuildCommand( _
sGWContext As String, _
sGWPersistentID As String, _
objGWBaseCommand As Object, _
objGWParameter As Object _
) As Object

Dim GWCmd As New GWCommand

If (sGWContext = eGW_APPOINTMENT) And (sGWPersistentID = eGW_CMDID_SEND)
Then
Let GWCmd.PersistentID = eGW_CMDID_SEND_APPT ' Set persistent ID
for GWCommand object
Set GWCmd.BaseCmd = objGWBaseCommand ' Save base
GWCommand for later use
Set BuildCommand = GWCmd ' Return GWCommand
created

End If


End Function



Public Sub Execute()

On Error GoTo Execute_Err

Select Case m_sPersistentID

Case eGW_CMDID_SEND_APPT:
' open draft SMS message
If (g_C3POManager.ClientState.CommandMessage.Personal ) Then
Call
SendCalendarMessage(g_C3POManager.ClientState.Comm andMessage)
Else
Me.BaseCmd.Execute
DoEvents
End If


Case Else
MsgBox "Unsupported Case"

End Select

Exit Sub

Execute_Err:
Call WriteToErrorLog("Error Executing GWCommand: " & m_sPersistentID, ,
True)


End Sub