Hi Tony,
I double-checked and it compiles ok on this end! Can you attach your script
file to a message to [EMAIL PROTECTED] and let me take a look-see at
it?
Thanks,
Dennis Brown, [EMAIL PROTECTED]
Visit the BlindProgramming web site at
http://brown99.home.mindspring.com
-----Original Message-----
From: TMT <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Date: Thursday, April 22, 1999 8:26 PM
Subject: Re: AutoMaximizeOutlookExpress.
>Hi Denis: I tried placing this script in OutLook but when trying
>to compile, received an error stating "unexpected word Then". I
>typed the script in just as it was read to me. We even double
>checked the spacing with the message. Any clues to what can be
>happening. This script would be very useful. I did eliminate
>changing the properties. Would this make a difference? Thanks
>in qdvance for any help.
>
>Tony Meade
>T M T Consultants
>Your Answer to Adaptive Computer Technology
>Phone: (757)-471-2856
>Fax: (757)-471-5663
>E-Mail: [EMAIL PROTECTED]
>-----Original Message-----
>From: Dennis Brown <[EMAIL PROTECTED]>
>To: JFW List <[EMAIL PROTECTED]>
>Date: Wednesday, April 21, 1999 9:58 AM
>Subject: AutoMaximizeOutlookExpress.
>
>
>Here is that MaximizeStatus script to maximize the messages in
>Outlook
>Express.
>1) While in OE, hit Insert+0 to launch Script Manager.
>2) Hit Control+End to get to the end of the file, and hit Enter
>a to give
>yourself some blank lines from the previous script.
>3) Type in, or cut and paste, the following script:
>
>Script MaximizeStatus ()
>SaveCursor ()
>FindGraphic (GetAppMainWindow (GetCurrentWindow ()), "close
>symbol", s_top,
>s_unrestricted)
>PriorWord ()
>If GetWord () == "Maximize Symbol" Then
>LeftMouseButton ()
>EndIf
>RestoreCursor ()
>Pause()
>EndScript
>
>4) While in that script, hit Control+D to get to it's
>properties. Fill in
>the Synopsis and Description info, and assign it to a key if you
>like, then
>select Ok to get back to the Script Editor.
>5) Hit Shift+F2 to move up through the scripts, stopping on the
>function
>"FocusChangedEvent".
>6) Arrow down to the first "If" statement and hit Home, then
>Enter. This
>will put a blank line above this "If" statement.
>7) Hit Up arrow once, and starting on this blank line, either
>type in, or
>cut and paste, the following "If" statement:
>If(GetWindowTypeCode(GetCurrentWindow()) == 0) Then
>PerformScript MaximizeStatus()
>EndIf
>
>8) Hit Control+S to compile and hit Alt+F4 to exit the Script Ma
>nager.
>
>What it does:
>The script saves the current cursor; searches for the graphic
>labeled "Close
>symbol", which is generally in the upper-right corner of the
>screen, and on
>the same line with the Minimize, Maximize, Restore symbols.
>Once it locates that symbol, it moves one graphic symbol to the
>left, which
>is where the "Maximize symbol" is located when the window isn't
>maximized.
>If it finds the "Maximize symbol", it clicks the left mouse
>button to
>maximize the window, then it restores the saved cursor info.
>Before exiting the script, it pauses long enough for the screen
>to settle
>down, then ends the script. Without the Pause statement, some
>header info
>gets read twice.
>
>The If/Then statement we put in the FocusChangedEvent tells JFW
>that if the
>current window type code isn't "0", don't try to maximize it.
>This keeps
>the script from trying to maximize Ok buttons, Edit fields in
>Spell-check,
>etc.
>
>Hope this helps!
>
>Thanks,
>Dennis Brown, [EMAIL PROTECTED]
>Visit the BlindProgramming web site at
>http://brown99.home.mindspring.com
>
>
>-
>Visit the jfw ml web page: http://jfw.cjb.net
>
>
>-
>Visit the jfw ml web page: http://jfw.cjb.net
-
Visit the jfw ml web page: http://jfw.cjb.net
