"Fred" a écrit dans le message de
news:O$
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Fred" <nospam@nospam.com> a écrit dans le message de
news:O$QrqiJJJHA.5656@TK2MSFTNGP05.phx.gbl
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Fred" a écrit dans le message de
news:O$
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Fred" a écrit dans le message de
news:O$
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr
Bonjour Gilles,
Merci pour votre réponses.
Toutefois, pour être un peu plus gourmand, je me demande si il n'y aurait
pas un moyen de passer de WSH en VBA.
En effet, je suis plus à l'aise (notemment sur Excel) en VBA (enregistreur
de macro, référence des méthodes dans l'aide...).
Le problème dans mon script est que j'ouvre un mail depuis MS Outlook à
l'aide d'Excel:
... Set Mail_Ouvert = ActiveInspector.CurrentItem
... xlapp.Workbooks.OpenText Fic_Liste
Un fois ici, je me trouve dans l'impossibilité d'utiliser VBA...
Je dois utiliser WSH (je pense parce que je ne nuis pas vraiment dans
Excel...).
Y aurait-il un moyen de rester dans le même script en utilisant VBA ?
Merci.
FRED.
"Gilles LAURENT [MVP]" a écrit dans le message de
news:"Fred" a écrit dans le message de
news:O$
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr
"Fred" <nospam@nospam.com> a écrit dans le message de
news:O$QrqiJJJHA.5656@TK2MSFTNGP05.phx.gbl
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Bonjour Gilles,
Merci pour votre réponses.
Toutefois, pour être un peu plus gourmand, je me demande si il n'y aurait
pas un moyen de passer de WSH en VBA.
En effet, je suis plus à l'aise (notemment sur Excel) en VBA (enregistreur
de macro, référence des méthodes dans l'aide...).
Le problème dans mon script est que j'ouvre un mail depuis MS Outlook à
l'aide d'Excel:
... Set Mail_Ouvert = ActiveInspector.CurrentItem
... xlapp.Workbooks.OpenText Fic_Liste
Un fois ici, je me trouve dans l'impossibilité d'utiliser VBA...
Je dois utiliser WSH (je pense parce que je ne nuis pas vraiment dans
Excel...).
Y aurait-il un moyen de rester dans le même script en utilisant VBA ?
Merci.
FRED.
"Gilles LAURENT [MVP]" <glsft@free.fr> a écrit dans le message de
news:uk6yMJKJJHA.1756@TK2MSFTNGP02.phx.gbl...
"Fred" <nospam@nospam.com> a écrit dans le message de
news:O$QrqiJJJHA.5656@TK2MSFTNGP05.phx.gbl
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Fred" a écrit dans le message de
news:O$
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr
Bonjour Gilles,
Merci pour votre réponses.
Toutefois, pour être un peu plus gourmand, je me demande si il n'y aurait
pas un moyen de passer de WSH en VBA.
En effet, je suis plus à l'aise (notemment sur Excel) en VBA (enregistreur
de macro, référence des méthodes dans l'aide...).
Le problème dans mon script est que j'ouvre un mail depuis MS Outlook à
l'aide d'Excel:
... Set Mail_Ouvert = ActiveInspector.CurrentItem
... xlapp.Workbooks.OpenText Fic_Liste
Un fois ici, je me trouve dans l'impossibilité d'utiliser VBA...
Je dois utiliser WSH (je pense parce que je ne nuis pas vraiment dans
Excel...).
Y aurait-il un moyen de rester dans le même script en utilisant VBA ?
Merci.
FRED.
"Gilles LAURENT [MVP]" a écrit dans le message de
news:"Fred" a écrit dans le message de
news:O$
| Bonjour,
Bonjour,
| Je tente (en vain...), de faire un scipt qui pourrait m'enregistrer
| un mail en fichier .txt à plat.
| Je fais un script qui sauvegarde le mail en HTML, puis tente de
| l'enregistrer en tant que fichier texte, mais en vain...
| Je ne trouve pas la fonction qui me permettrait de le convertir et
| m'arrête lamentablement sur ma ligne : "xlapp.Workbooks.Open
| FileName:=Fic_Liste"
Voici un bout de code VBScript permettant de convertir à l'aide de
Microsoft Excel un fichier HTML au format texte. Les codes pages ANSI et
OEM sont supportés :
--- Coupez ici : CodeSnippet.vbs ---
Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlertsúlse ' overwrite
Set oWorkbook=oExcel.Workbooks.Open("D:TestTest.html")
oWorkbook.SaveAs "D:TestTest.txt", 20 ' ANSI codepage
' oWorkbook.SaveAs "D:TestTest.txt", 21 ' OEM codepage
oWorkbook.Close ' be a good citizen
oExcel.Quit()
--- Coupez ici : CodeSnippet.vbs ---
Les formats d'enregistrement supportés (Jusqu'à Excel 2007) :
http://msdn.microsoft.com/en-us/library/bb241279.aspx" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://msdn.microsoft.com/en-us/library/bb241279.aspx
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://glsft.free.fr