Comments on: Outlook for the Blind Redux

By: Rob van Gelder

Rob van Gelder — Wed, 22 Jun 2005 05:13:00 +0000

Wouldn't it be nice if the reader could be signalled to ignore updates for a period of time?

eg.
ScreenReader.ProcessScreenUpdates = False
dtm = GetSelectedOutlookDate()
ScreenReader.ProcessScreenUpdates = True

Surely this automation problem would affect more apps than just Outlook?

Rob

By: Jack Dahlgren

Jack Dahlgren — Thu, 16 Jun 2005 07:16:00 +0000

Dick,

MS Project doesn't support this property either. If I really don't want it to flicker I set visible = false until I'm done or switch the active project to one which is blank.

-Jack

By: TJM

TJM — Wed, 15 Jun 2005 08:02:00 +0000

I don’t know anything about the programmability of screen reader programs but would an alternative approach be to try and turn that on / off in preference to trying to turn Outlook screen refresh on / off?

By: Rob van Gelder

Rob van Gelder — Wed, 15 Jun 2005 07:03:00 +0000

Dick,

The closest I can get is as follows:

It still shows the appointment window, but appears not to draw the contents of the window?

Private Declare Function LockWindowUpdate Lib "user32? (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32? () As Long

Sub GetCurrentDay()
Dim dtSelected As Date
Dim i As Long

If Application.ActiveExplorer.CurrentFolder.DefaultItemType = olAppointmentItem Then
LockWindowUpdate (GetDesktopWindow)
Application.ActiveExplorer.CommandBars.FindControl(, 1106).Execute
For i = 1 To 10000: DoEvents: Next i
dtSelected = Application.ActiveInspector.CurrentItem.Start
Application.ActiveInspector.Close olDiscard
LockWindowUpdate (0)
Debug.Print Format(dtSelected, "mm/dd/yyyy hh:mm")
End If

End Sub

By: excelthoughts

excelthoughts — Wed, 15 Jun 2005 04:57:00 +0000

Sue Mosher seems to have all the Outlook answers. Unfortunately the answer
is that you can't do it.
http://www.outlookcode.com/threads.aspx?forumid=2&messageid=9292

Regards
Andrew
excelthoughts.com