- Local lcFileName,lcStr && Variables locales
- Declare Integer ShellExecute In "Shell32.dll" ;
- INTEGER HWnd, ;
- STRING lpVerb, ;
- STRING lpFile, ;
- STRING lpParameters, ;
- STRING lpDirectory, ;
- LONG nShowCmd
- lcFileName = Sys(2015)+'.mht' && Nom du document final
- oMSG = Createobject("CDO.Message") && Message couriel -- strictement pour la fonction suivante
- oMSG.CreateMHTMLBody("http://www.microsoft.com") && Créer un document MHTML
- lcStr = oMSG.getstream && Stocker le document dans une variable
- lcStr.SaveToFile(lcFileName,1) && Sauvegarder le document en MHT.
- ShellExecute(0,"Open",lcFileName,"","",0) && Ouvrir avec ShellExecute.
Local lcFileName,lcStr && Variables locales
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
lcFileName = Sys(2015)+'.mht' && Nom du document final
oMSG = Createobject("CDO.Message") && Message couriel -- strictement pour la fonction suivante
oMSG.CreateMHTMLBody("http://www.microsoft.com") && Créer un document MHTML
lcStr = oMSG.getstream && Stocker le document dans une variable
lcStr.SaveToFile(lcFileName,1) && Sauvegarder le document en MHT.
ShellExecute(0,"Open",lcFileName,"","",0) && Ouvrir avec ShellExecute.