$head = $head + “<style>”

at the beginning of the header and

$head = $head + “<style>” at the end

JJ

#############################################################################
# List all VM with snapshots
#
# Created by Anders Mikkelsen, 2008
# Updated by Anders Mikkelsen, 2009
# http://www.amikkelsen.com
#
# Thanks to:
# Ryan for updating the snapshot list (January 2009)
# John Daily for adding mail functionality (March 2009)
#############################################################################
Add-PSSnapin VMware.VimAutomation.Core

$smtpServer = “SMTPSERVER.DOMAIN.COM”
$strFrom = “SenderUser@DOMAIN.COM”
$strTo = “RecipientUser@DOMAIN.COM”
$VCServer = “VIRTUALCENTERSERVER.DOMAIN.COM”

Connect-VIServer $VCServer

# Output File
$strOutFile = “C:\Windows\Temp\snapshot_list.htm”

# HTML/CSS style for the output file
$head = “<style>”
$head = $head + “BODY{background-color:white;}”
$head = $head + “TABLE{border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;}”
$head = $head + “TH{border-width: 1px;padding: 0px;border-style: solid;border-color: black;background-color:#FFD700}”
$head = $head + “TD{border-width: 1px;padding: 0px;border-style: solid;border-color: black;background-color:#FFFFFF}”
$head = $head + “</style>”

# SMTP info
$strDate = get-date -DisplayHint date
$strSubject = “List of current VMware Snapshots – ” + $strDate
$strBody = “Attached is the list of Snapshots”
$strMail = “” + $strSubject + “”

# Get the list of VM’s
$vms = Get-VM

# ————– Logic —————————–
$myCol = @()
ForEach ($vm in $vms){
$snapshots = Get-SnapShot -VM $vm
if ($snapshots.Name.Length -ige 1 -or $snapshots.length){
ForEach ($snapshot in $snapshots){
$myObj = “” | Select-Object VM, Snapshot, Created, Description
$myObj.VM = $vm.name
$myObj.Snapshot = $snapshot.name
$myObj.Created = $snapshot.created
$myObj.Description = $snapshot.description
$myCol += $myObj
}
}
}

# Write the output to an HTML file
$myCol | Sort-Object VM | ConvertTo-HTML -Head $head -Body $strMail | Out-File $strOutFile

# Mail the output file
$msg = new-object Net.Mail.MailMessage
$att = new-object Net.Mail.Attachment($strOutFile)
$smtp = new-object Net.Mail.SmtpClient($smtpServer)
$msg.From = $strFrom
$msg.To.Add($strTo)
$msg.Subject = $strSubject
$msg.IsBodyHtml = 1
$msg.Body = Get-Content $strOutFile
$msg.Attachments.Add($att)
$smtp.Send($msg)