Convert Text to HTML Table and e-mail
I have text file with following columns. I want the to converted to HTML table and the HTML file to be e-mailed.
NASvolumeName | DFSName | Total Size | Free Size
\\NAS01\Vol1 | \\Dom1\fileshr1 | 1,800 | 600
"|" should be used as a separator.
NASvolumeName | DFSName | Total Size | Free Size
\\NAS01\Vol1 | \\Dom1\fileshr1 | 1,800 | 600
"|" should be used as a separator.
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
http://www.petri.co.il/forums/showthread.php?t=59619
Based on the topics selected, I'm assuming you're generating the output from VBS scripts.
If yes, then put set the output to HTML or create the email directly in an HTML format and send it from the VBS script.
http://www.petri.co.il/forums/showthread.php?t=59619
Alternatively, if you're getting the data in a .txt or .csv format then the easiest option is to create a macro in Excel.
I'm being a lazy admin here, but let me know if you need more help with the specific option you require...
Based on the topics selected, I'm assuming you're generating the output from VBS scripts.
If yes, then put set the output to HTML or create the email directly in an HTML format and send it from the VBS script.
http://www.petri.co.il/forums/showthread.php?t=59619
Alternatively, if you're getting the data in a .txt or .csv format then the easiest option is to create a macro in Excel.
I'm being a lazy admin here, but let me know if you need more help with the specific option you require...
With this script i tried to put for one volume but I am not sure how can do it for mutiple voulmes.....Here is teh script I am using....
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("NASVolumeUsage.htm")
On Error Resume Next
a = "<style>"
a = a& "BODY{background-color:Lavender ;}"
a = a& "TABLE{font-size: 10pt; font-family: arial;}"
a = a& "TH{background-color: buttonface; font-decoration: bold;}"
a = a& "</style>"
objNewFile.WriteLine "<html>"
objNewFile.WriteLine "<head>"
objNewFile.WriteLine "<title>NAS Volume Usage Information</title>"
objNewFile.WriteLine a & "</head><body>"
objNewFile.WriteLine "<h2>NAS Volume Usage Information -- Date: " _
& Now() & "</h2>"
objNewFile.WriteLine "<table BORDER=""1"">"
objNewFile.WriteLine "<tr><th>NAS Volume Name</th><th>DFS Share Name</th><th>Total</th><th>Free</th></tr>"
Dim result , machine , drvletter , netpath , dompath
Dim objNetwork , objDrive , objFSO
Const Decimals = 2
netpath = "\\nas1\vol1"
dompath = "\\domain1\dfs1"
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objNetwork.MapNetworkDrive "y:", netpath
Set objDrive = objFSO.Drives("y:\")
Total = FormatNumber(objDrive.TotalSize /1073741824, Decimals)
Free = FormatNumber(objDrive.FreeSpace /1073741824, Decimals)
objNewFile.WriteLine "<tr><td> " & netpath & " </td><td> " & dompath & "</td><td> " & Total & "</td><td> " & Free & "</td></tr>"
objNetwork.RemoveNetworkDrive "y:"
objNewFile.WriteLine "</table>"
objNewFile.WriteLine "<br />"
objNewFile.WriteLine "</body>"
objNewFile.WriteLine "</html>"
objNewFile.Close
wscript.quit
Premium Content
You need an Expert Office subscription to comment.Start Free Trial