#6805
rfaude
Participant

Ok, you say

>Please let us know if you require any further assistance
Yes, yes i need!

i collect all infos to put the output into a portal.

———————————————%————————————————

Const LINK_START  = "<A HREF="
Const UID_MARKER  = "UID:"
Const TABLE_BEGIN = "<table border=""1"" cellpadding=""0"" cellspacing=""1"">"
Const TABLE_END   = "</table>"
Const FONT_STYLE  = "<FONT STYLE=""TEXT-DECORATION:NONE;FONT-FAMILY:ARIAL;COLOR:RED;FONT-SIZE=8PT"">"
Const FONT_END    = "</FONT>"

Sub Main(Client, GWEvent)

Dim iHRT 
Dim iMsg 
Dim iPortal 
Dim iPortals 
Dim iHTML 
dim iFilter
dim oMessages

iHRT = Chr(13) & Chr(10) 

Set iPortals = GroupWise.PortalManager.Portals 
Set iPortal = iPortals.Item("TaskManager") 

if iPortal is nothing then 
   Set iPortal = iPortals.add 
   iPortal.ID = "TaskManager" 
   iPortal.OpenMessages = TRUE 
   iPortal.NavigationControlsEnabled = FALSE 
end if 

iHTML = TABLE_BEGIN & "<tr><th>Prio</th><th align=""left"">Subject</th></tr>"
   
   iFilter = "(TASK AND NOT COMPLETED)"
   
   set oMessages = groupwise.account.calendar.messages.find(iFilter)

   for i = 1 to oMessages.count
      iHTML = iHTML & iHRT & "<tr><td align=""center"">" & _
        FONT_STYLE & oMessages.Item(i).TaskPriority & FONT_END & "</td><td>" & _
        FONT_STYLE & " " & "<A HREF=UID:" & oMessages.Item(i).MessageID & _
        " STYLE=""TEXT-DECORATION:NONE"">" & oMessages.Item(i).Subject & "</A>" & _
        FONT_END & "</td></tr>"
   next
 
   set oMessages = nothing    

iHTML = iHTML & TABLE_END

iPortal.HTML = "<HTML><BODY>" & iHTML & "</BODY></HTML>" 
iPortal.Show 
iPortals.ActivePortal = iPortal.ID 

———————————————%————————————————

Question:

How to sort the column.

Sample:
– Sort by Prio
– Sort by Subject
– Sort by Prio & Subject

i read about the Stringlist and look into the Sample Applet. With a single string i understand the way it works. But with MessageID & Prio & Subject i don’t know.

Best Regards

Ralf

[This message was edited by rfaude on December 17, 2003 at 01:28 PM.]

[This message was edited by Support 3 on December 17, 2003 at 04:33 PM.]