#7141
Support 1
Participant

Thank you for your enquiry.

Below is an example of how one might use the GroupWise Object API from Formativ to obtain the Subject, Personal Subject and Categories from the open Message View.

Please note that Personal Subject and Categories are message properties which became available in GroupWise 6.5 and later.

Sub Main(Client, GWEvent)

  dim iPerSubject, iSubject, iText
  dim oCategories, oCategory
  dim oMsg

  set oMsg = nothing
  set oMsg = Client.ClientState.CommandMessage
  if not (oMsg is nothing) then
    iSubject = "Subject: " & oMsg.Subject.PlainText
    iPerSubject = "Personal Subject: " & oMsg.PersonalSubject

    iText = ""
    set oCategories = oMsg.Categories
    if not (oCategories is nothing) then
      if oCategories.Count > 0 then
        for each oCategory in oCategories
          iText = iText & "Category: " & oCategory.Name & vbNewLine
        next
      else
        iText = vbNewLine & iText & "No categories"
      end if
    end if
    iText = iSubject & vbNewLine & iPerSubject & vbNewLine & iText
  else
    iText = "Message not found"
  end if

  MsgBox iText

End Sub

For more information about the Object API see this online reference.

I hope this helps you.

Advansys Support

[This message was edited by Support 3 on March 01, 2005 at 05:20 PM.]