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

Comment créer un document MHTML avec CDO   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
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é 5397 fois
Niveau expert

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description

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.

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3