florian138
Messages postés4Date d'inscriptionmercredi 15 janvier 2003StatutMembreDernière intervention27 septembre 2005
-
22 août 2003 à 12:08
lgire
Messages postés1Date d'inscriptionmercredi 13 août 2008StatutMembreDernière intervention13 août 2008
-
13 août 2008 à 10:03
Voila j'aimerai copier le contenu de mes mail depuis ma boite outlook vers excel AVEC un script VBS, j'ai deja une partie du code capable de m'afficher le sujet de chaque message et pour ouvrir excel ainsi que la feuille desirée mais il me manque le code pour copier le contenu du texte quelqu'un pourrait-il m'aider ??
Voici le code deja ecrit jusque ici:
'Debut du code
set objol = Wscript.createobject("outlook.application")
set olfolder = objol.activeExplorer.currentfolder
curfolder = olfolder
wscript.echo "Current folder name = " & Curfolder
Set olfolderitems = olfolder.items
Numitems = olfolderitems.countwscript.echo "Current folder name " & Curfolder & vblf & "Nombre d'item " & Numitems
For I = 1 to Numitems
Set olmyitem = olfolderitems(I)
Wscript.echo olmyitem.subject
next
Set appXL = Wscript.createobject("excel.application")
appXL.visible = true
appXL.Workbooks.open("M:\Mes Documents\Feuilles Excel\sondage.xls")