#6889
Support 1
Participant

    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