Hoping people are still reading this thread... I tried the below "simpleton" code and it seems to be doing nothing. When I pop this into an ASP page and load it with a browser, it works fine, but not as a .vbs file just opened from a satelllite computer. Do I need to have it be opened on the server itself?
On Error resume Next
Dim TBdy
Dim MyCDO
CR = Chr(13)
Set MyCDO = Server.CreateObject("CDO.Message")
If IsObject (MyCDO) Then
MyCDO.From = "something@other.com"
MyCDO.To = "something@other.com"
MyCDO.Cc = ""
MyCDO.Bcc = "something@other.com"
MyCDO.MailFormat = 0
MyCDO.BodyFormat = 0
MyCDO.Importance = 2
MyCDO.Subject = "Test of VBS file email"
TBdy = "<html>"
TBdy = TBdy & CR & "<head></head>"
TBdy = TBdy & CR & "<body>"
TBdy = TBdy & CR & "<p>"
TBdy = TBdy & CR & "Test email sent on " & Now()
TBdy = TBdy & CR & "</p>"
TBdy = TBdy & CR & "</body>"
TBdy = TBdy & CR & "</html>"
MyCDO.HTMLBody = TBdy
MyCDO.Send
Set MyCDO = nothing
Set TBdy = nothing
Else
Response.Write("Email was not sent")
End If