Hey Folks,
Why not just find and read your Outlook 98 attachments by using the
following simple script; paste it into the bottom of your
\settings\enu\outllib.jss file. Admittedly, the script looks a little weird
and is replete with pauses, but it seems to work consistently. Use Dennis
Brown's general instructions given in his Script Tips and assign the script
to an unoccupied key combination. The script source code follows:
Script ReportAttachments ()
var
int counter,
int TheTypeCode
{Escape}
SpeechOff()
Pause()
Pause()
Pause()
{Shift+F10}
while(counter < 6)
{Down-arrow}
Let counter = counter + 1
EndWhile
{Enter}
Let counter = 0
While (counter < 20)
Pause()
Let counter = counter + 1
endwile
Pause()
let TheTypeCode = GetWindowSubtypeCode(GetCurrentWindow())
Pause()
If(TheTypeCode > 0) Then
Pause()
Pause()
SayInteger(TheTypeCode)
MuteSynthesizer () SpeechOn()
{Escape}
Say("there are no attachments associated with this file", OT_String)
Else
MuteSynthesizer () SpeechOn()
Say("to read the list of attachments, press the down arrow.",
OT_String)
Say("To open an attachment, press the Enter key.", OT_String)
EndIf
EndScript
It may be possible to comment out some of the pauses (one pause at a time)
by trial and error and then examine a message that is known to contain an
attachment(s). But if that given message is being shown as not having an
attachment following these trial, you must keep the Pause or Pauses.
Best Regards,
- --
Pat Acquaviva
-
Visit the jfw ml web page: http://jfw.cjb.net
