#6888
Support 1
Participant

The object returned by GroupWise.ComposingItem is not a fully initialized Message object.
Formally, the BoxType property is undefined. I suggest using the following approach to determine whether the open message being composed is a personal task.

Sub Main(Client, GWEvent)

  dim iPersonal
  dim oMsg

  set oMsg = GroupWise.ComposingItem
  if not (oMsg is nothing) then
    iPersonal = (oMsg.ClassName = "GW.MESSAGE.TASK") _
      and GroupWise.ItemGetAttribute("X00", 198)

    msgbox "ClassName: " & oMsg.ClassName & ", Personal: " & iPersonal
  end if

End Sub

Note that “X00” identifies the current composing message, which does not yet have a defined message ID.

Advansys Support