M
Mike
Hi,
I've got a command button on the Outlook command bar launching a time
consuming process and want to prompt the user with a message and
change the mouse pointer.
I've found some help on Sue Moshers "Developer learning center" on
www.outlookcode.com/d/tips/changepointer.htm but it's not really doing
the stuff.
Admittedly, it's probably because I'm not grasping the logic of
ModifiedFormPages. As my code is called from Outlook panel, I've no
customized pages to work on, thus can't set the property of a
modifiedFormPage ... or can I?
Does anyone know of a way to display a message, without creating a
userform.
Sue's code said:
Sub CommandButton1_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("P.2")
' set pointer to hourglass
objPage.MousePointer = 11
' do something that takes a long time
' YOUR CODE GOES HERE
' when it's done, reset pointer
objPage.MousePointer = 0
Set objPage = Nothing
End Sub
I've got a command button on the Outlook command bar launching a time
consuming process and want to prompt the user with a message and
change the mouse pointer.
I've found some help on Sue Moshers "Developer learning center" on
www.outlookcode.com/d/tips/changepointer.htm but it's not really doing
the stuff.
Admittedly, it's probably because I'm not grasping the logic of
ModifiedFormPages. As my code is called from Outlook panel, I've no
customized pages to work on, thus can't set the property of a
modifiedFormPage ... or can I?
Does anyone know of a way to display a message, without creating a
userform.
Sue's code said:
Sub CommandButton1_Click()
Set objPage = Item.GetInspector.ModifiedFormPages("P.2")
' set pointer to hourglass
objPage.MousePointer = 11
' do something that takes a long time
' YOUR CODE GOES HERE
' when it's done, reset pointer
objPage.MousePointer = 0
Set objPage = Nothing
End Sub