#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