Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Call up a website or e-mail
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00461576
Message ID:
00461742
Views:
9
Here is a function to open the default browser and navigate to a web site:

FUNCTION GoToInternetSite
LPARAMETERS cUrl

  IF NOT "http" $ LOWER(cUrl)
   cUrl = "http://" + ALLTRIM(cUrl)
  ENDIF

  DECLARE INTEGER GetDesktopWindow IN WIN32API
  DECLARE INTEGER ShellExecute IN SHELL32 ;
    INTEGER, STRING, STRING, STRING, STRING, INTEGER

  hWnd = GetDesktopWindow()

  ShellExecute( hWnd, 'open', cUrl, '', '.', 5)

RETURN



Here is the code to send an email using Microsoft Outlook

  LOCAL oOutlook, cRecipient, cSubject, oEmail

  oOutlook = CREATEOBJECT("Outlook.Application")
  oEmail = oOutlook.CreateItem(0)
  WITH oEmail

   .To = "someone@somewhere.com"
   .Subject = "This is the subject"
   .Body = "This is the body"
   .Send()
  ENDWITH
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform