Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to start default browser
Message
From
02/09/1999 21:53:45
 
 
To
02/09/1999 18:07:00
Alex Zhadanov
Computer Generated Solutions
New York City, New York, United States
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00260713
Message ID:
00260967
Views:
23
>>>Hi people!
>>>Is it possible to start default browser or default email engine from
>>>foxpro 2.6?
>>>Thank you Alex.
>>
>>Yep...
>>
>>Start Default Browser
>>
>>=lbShellEx('blank.htm')
>>
>>Start Default Mailer
>>
>>=lbShellEx('mailto:')
>>
>>The mailto will actually start your associated URL:MailTo Protocol program defined in your File Types. I assumed there is an association for the default mailer, but I don't know what it is.
>>
>>Here is the lbShellEx function... you will need FoxTools.fll set to for this to work.
>>
>>BOb
>>
>>
>>
>>function lbShellEx
>>******************* Copyright of Geac Computers, Inc.  *********************
>>* Name        : lbShellEx
>>* Purpose     : Run an external program using the windows API
>>*             :
>>* Originated  : 05/12/1999 RKA
>>*             :
>>* Parameters  : lcFileName, lcPath
>>* Called from :
>>* Returns     : .t. if successfull  .f. if failed
>>****************************************************************************
>>parameters lcFile, lcPath
>>
>>private lnShellEx, lcOp, lcArg, llRetVal, lnRetVal
>>
>>if pcount() = 1
>>   lcPath = ''
>>endif
>>lcOp = 'open'
>>lcArg = ''
>>
>>** -- Register Win API
>>lnShellEx = RegFN("ShellExecute","I@C@C@C@CI","I","SHELL.DLL")
>>
>>** -- CALL API Function
>>lnRetVal = CallFN(lnShellEx, 0, @lcop, @lcfile, @lcarg, @lcpath, 9)
>>
>>** -- Prepare return value
>>llRetVal = (lnRetVal > 32)
>>
>>return llRetVal
>>
>Thank you very much.
>It's exactly what i need.
>One more small question:
>How can i put email addresses into "TO" and "FROM" boxes when i open default mailer?
>Thanks . Alex




You can set the "TO", "Subject" but you can't set the "FROM" as default mailer setting!!

=lbShellEx("mailto:justok@iname.com?Subject=Have%20a%20Nice%20day")
The weak wait for chance, The strong bid for chance,
The clever notch up chance, but The merciful give you chance.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform