V
Vaughan
The Outlook View Control is potentially going to do a big job for me, but I
can't figure out how to use it. Here's the problem:
I understand that the view and folder need to be set with code. To test it I
have simply placed the control on a blank page of a IPM.Message form and I
have drafted a few lines to set folder and view. These seem to work when I
select "Form | Run this form".
However, if I send the message to myself and open the message from either
the Inbox or the Sent Items folder the control shows the contents of my Inbox
instead of the specified folder. If I open the message from my inbox and
select "Tools | Forms | Design this form", and then select "Forms | Run this
form", I get the right result.
I'm at a loss.
My code is :
Function Item_Open
Set ctl =
Item.GetInspector.ModifiedFormPages("Estimates").Controls("ViewCtl1")
ctl.Folder = "\\Public Folders\All Public Folders\Vaughan\Estimates"
ctl.View = "Current Estimates"
End Function
Function Item_Read
Set ctl =
Item.GetInspector.ModifiedFormPages("Estimates").Controls("ViewCtl1")
ctl.Folder = "\\Public Folders\All Public Folders\Vaughan\Estimates"
ctl.View = "Current Estimates"
End Function
Any clues?
can't figure out how to use it. Here's the problem:
I understand that the view and folder need to be set with code. To test it I
have simply placed the control on a blank page of a IPM.Message form and I
have drafted a few lines to set folder and view. These seem to work when I
select "Form | Run this form".
However, if I send the message to myself and open the message from either
the Inbox or the Sent Items folder the control shows the contents of my Inbox
instead of the specified folder. If I open the message from my inbox and
select "Tools | Forms | Design this form", and then select "Forms | Run this
form", I get the right result.
I'm at a loss.
My code is :
Function Item_Open
Set ctl =
Item.GetInspector.ModifiedFormPages("Estimates").Controls("ViewCtl1")
ctl.Folder = "\\Public Folders\All Public Folders\Vaughan\Estimates"
ctl.View = "Current Estimates"
End Function
Function Item_Read
Set ctl =
Item.GetInspector.ModifiedFormPages("Estimates").Controls("ViewCtl1")
ctl.Folder = "\\Public Folders\All Public Folders\Vaughan\Estimates"
ctl.View = "Current Estimates"
End Function
Any clues?