ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment créer un document MHTML avec CDO

	Description
Retour à la liste L'auteur Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004 Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle Note des membres pas de note	Contributions > 20 - Trucs et Astuces Comment créer un document MHTML avec CDO # 0000000041 ajouté le 03/11/2004 20:11:10 et modifié le 03/11/2004 consulté 8792 fois Niveau expert Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0
	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é.
	Code source :
	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.
	Commentaires
	le 03/11/2004, Mike Gagnon a écrit : Fred Va voir "Comment créer un document MHTML avec CDO" dans la section trucs et astuces. le 03/11/2004, Francis Faure a écrit : CDO est disponible que sur windows 2000 et Plus ? Pas sur toutes les machines ? Quels sont les prérequis pour utiliser CDO ? le 03/11/2004, Mike Gagnon a écrit : "Where to Acquire the CDO Libraries (all versions)" http://support.microsoft.com/default.aspx?scid=kb;EN-US;171440 le 09/06/2008, ybenam a écrit : Bonjour Mike j'ai juste une précision supplémentaire pour : <lcStr.SaveToFile(lcFileName,1) && Sauvegarder le document en MHT> renvoie une erreur au cas où le fichier existe (c'est peut être ce qui a expliqué que tu ait pris sys(2015) pour avoir une version unique)....constante adSaveCreateNotExist Il y a aussi <lcStr.SaveToFile(lcFileName,2) qui sauvegarde le fichier en MHT avec écrasement (overwrite) s'il existe.( adSaveCreateOverWrite) Amicalement. le 09/06/2008, Mike Gagnon a écrit : Le code montré est à titre d'exemple seulement, et il y a aucune verification d'erreur, je laisse cela au soins du programmeur qui va utiliser ce code.

Comment créer un document MHTML avec CDO

Contributions > 20 - Trucs et Astuces