Just create a little wrapper around the below and you are cool. Works on any late-model Windows OS.

'----------------                                                                                         

Set objMessage = CreateObject("CDO.Message")                                                             

objMessage.Subject = "Status file"                                  

objMessage.TextBody = "See the...