G
graemevn
I have the following code listed in this subroutine done in VBScript
(NOT VBA or VB)
Function Item_Open()
Dim mobjOptButControls
Dim objInsp
Dim ol
Dim olns
Dim cf
Dim RISTaskLists
Dim c,itmAppt
Dim ListView1
Set objInsp = Item.GetInspector
objInsp.SetCurrentFormPage "Releases"
Set olns = Item.Application.GetNameSpace("MAPI")
Set objFolder = GetFolder("Mailbox - CRIS Change Control\Calendar")
Set objItems = objFolder.Items
Set ListView1=
objInsp.ModifiedFormPages("Releases").Controls("ListView1")
'Add headers - this isn't being done!!! WHY????????????????
'----------------------------------------------------------------------------------------------------------
ListView1.ColumnHeaders.Add , , "Release Topic", ListView1.Width /
1.95
ListView1.ColumnHeaders.Add , , "Start Date", ListView1.Width / 6.85
ListView1.ColumnHeaders.Add , , "Identifier", ListView1.Width / 6.05
ListView1.ColumnHeaders.Add , , "Priority", ListView1.Width / 6.5
ListView1.ColumnHeaders.Add , , "Release Type", ListView1.Width /
6.5
Set objItems = objFolder.Items
iNumOfItems = objItems
Msgbox(iNumOfItems)
For i = 1 To iNumOfItems
Set c = objItems(i)
'If c.Type Is AppointmentItem Then
itmAppt = oItem
'IPM.Task.CRIS_ALL_TASKS.ListBox1.AddItem c.Subject
'RISTaskLists.AddItem c.Subject
'End If
Next
End Function
The problem is that the headers of the ListView1 control is not being
created! No matter what I do!
As if these lines are ignored or whatever (which sound sily because
through the use of mshboxes, I know the code runs to the end of the
sub.
So what is going o? Why no headers?
(NOT VBA or VB)
Function Item_Open()
Dim mobjOptButControls
Dim objInsp
Dim ol
Dim olns
Dim cf
Dim RISTaskLists
Dim c,itmAppt
Dim ListView1
Set objInsp = Item.GetInspector
objInsp.SetCurrentFormPage "Releases"
Set olns = Item.Application.GetNameSpace("MAPI")
Set objFolder = GetFolder("Mailbox - CRIS Change Control\Calendar")
Set objItems = objFolder.Items
Set ListView1=
objInsp.ModifiedFormPages("Releases").Controls("ListView1")
'Add headers - this isn't being done!!! WHY????????????????
'----------------------------------------------------------------------------------------------------------
ListView1.ColumnHeaders.Add , , "Release Topic", ListView1.Width /
1.95
ListView1.ColumnHeaders.Add , , "Start Date", ListView1.Width / 6.85
ListView1.ColumnHeaders.Add , , "Identifier", ListView1.Width / 6.05
ListView1.ColumnHeaders.Add , , "Priority", ListView1.Width / 6.5
ListView1.ColumnHeaders.Add , , "Release Type", ListView1.Width /
6.5
Set objItems = objFolder.Items
iNumOfItems = objItems
Msgbox(iNumOfItems)
For i = 1 To iNumOfItems
Set c = objItems(i)
'If c.Type Is AppointmentItem Then
itmAppt = oItem
'IPM.Task.CRIS_ALL_TASKS.ListBox1.AddItem c.Subject
'RISTaskLists.AddItem c.Subject
'End If
Next
End Function
The problem is that the headers of the ListView1 control is not being
created! No matter what I do!
As if these lines are ignored or whatever (which sound sily because
through the use of mshboxes, I know the code runs to the end of the
sub.
So what is going o? Why no headers?