Comment créer un document mhtml avec cdo

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 424 fois - Téléchargée 33 fois

Contenu du snippet

Voici une intéressante technique pour créer un document MHTML (archive web -- page web complète avec images) en utilsant CDO (Collaboration Data Objects). CDO doit etre installé.

Source / Exemple :


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.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.