Support 1

An alternative approach you could try is based on the GroupWise token ItemGetSource:

const SRC_MAILBOX = 1
const SRC_SENT_ITEMS = 2
const SRC_PERSONAL = 3

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.ItemGetSource("X00") = SRC_PERSONAL)

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

End Sub

It may be that there is a defect in the GroupWise client (or in your co-worker’s installation), causing it to report the box type/message source in error.

In addition, it may be that your co-worker’s local copy of the relevant view has been edited in some way that alters the type reported by GroupWise. Perhaps you can experiment with replacing that view with your own ‘working’ view file. If you wish, send us the view file to analyze, at support@advansyscorp.com.

Advansys Support