Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Call up a website or e-mail
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00461576
Message ID:
00461742
Vues:
10
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform