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.