[blindeudora] Re: Return Receipt script

  • From: northstar1950@xxxxxxx
  • To: blindeudora@xxxxxxxxxxxxx
  • Date: Tue, 28 Sep 2010 17:54:40 -0500

hmmm, that's exactly how i have it in my scripts and have no problems compiling the scripts. taken from my scripts running windows xp pro and eudora 7.1.0.9. 



Script ReturnReceipt ()
;Added by L. Salinas 02/23/02

var
        int hwnd

let hwnd = GetCurrentControlID ()
if  hwnd != "5050"
&& hwnd != "5052"
&& hwnd != "5053"
&& hwnd != "5054"
&& hwnd != "59664"  then
SayString ("You are not composing a message")
Else
SaveCursor ()
RouteJAWSToPc ()
SaveCursor ()
if FindGraphic (GetCurrentWindow (), "No Receipt", s_bottom, s_unrestricted) == True then 
Say ("No receipt requested", ot_message)
LeftMouseButton ()
else
FindGraphic (GetCurrentWindow (), "Return Receipt", s_bottom, s_unrestricted)
Say ("receipt requested", ot_message)
EndIf
LeftMouseButton ()
RestoreCursor ()
RestoreCursor ()
EndIf
EndScript

Legend has it that on Tuesday 9/28/2010 01:41 AM, Lou Burton said:
Not being a jaws user, but somewhat familiar with programming language, it looks like the line with var and int hwnd got split, if you could edit the line to look like: 


var int hwnd


and then try to complie that sucker.

Later hun, me!
At 01, 07 9/28/2010, you wrote:

Aloha all,
I have a very old email from Leonard Salinas containing the Return Receipt Script and instruction for pasting it into the script manager. Perhaps I'm having trouble because I am running a newer version of JAWS, but when I follow the instructions and then try to save the file, I get the following message: 

The word var must be followed by a variable definition.


and it won't compile.


Can anyone see what might be the matter?
TIA, Betsy



Date: Mon, 30 Aug 2004 20:45:15 -0500
From: Leonard Salinas <okiespirit@xxxxxxxxxxxxx>
below is the return receipt script. select all lines beginning with Script ReturnReceipt () to and including EndScript. while in eudora Press insert plus 0 to bring up the script manager with the eudora scripts. Press ctrl+end to move to the bottom of the document and press enter a couple of times. Now paste the script you selected here. 
I will send instructions on how to label the graphics in my next message.


Script ReturnReceipt ()
;Added by L. Salinas 02/23/02

var
        int hwnd

let hwnd = GetCurrentControlID ()
if  hwnd != "5050"
&& hwnd != "5052"
&& hwnd != "5053"
&& hwnd != "5054"
&& hwnd != "59664"  then
SayString ("You are not composing a message")
Else
SaveCursor ()
RouteJAWSToPc ()
SaveCursor ()
if FindGraphic (GetCurrentWindow (), "No Receipt", s_bottom, s_unrestricted) == True then 
Say ("No receipt requested", ot_message)
else
FindGraphic (GetCurrentWindow (), "Return Receipt", s_bottom, s_unrestricted) 
Say ("receipt requested", ot_message)
EndIf
LeftMouseButton ()
RestoreCursor ()
RestoreCursor ()
EndIf

EndScript


Teamwork: Together we achieve the extraordinary.


List web page: //www.freelists.org/webpage/blindeudora
Send all list problems or inquires to: blingeudora@xxxxxxxxxxxxxxx
to un subscribe:
blindeudora-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject
field
__________ Information from ESET Smart Security, version of virus signature database 5484 (20100927) __________ 

The message was checked by ESET Smart Security.

http://www.eset.com
A government big enough to give you everything you want, is strong enough to take 
everything you have.'
-Thomas Jefferson -


List web page: //www.freelists.org/webpage/blindeudora
Send all list problems or inquires to: blingeudora@xxxxxxxxxxxxxxx
to un subscribe:
blindeudora-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject
field



List web page: //www.freelists.org/webpage/blindeudora
Send all list problems or inquires to: blingeudora@xxxxxxxxxxxxxxx
to un subscribe:
blindeudora-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject
field

Other related posts:

  1. Home
  2. blindeudora
  3. Archive
  4. 09-2010