bloke
06-25-2003, 10:59 AM
Hello folks
I'm looking at some inherited code and can't quite figure out why this doesn't work. It apparently used to, but doesn't any more! Here goes:
' *** mail routine start
Dim mailBody
Dim MyMail 'The CDO object
' Create NewMail object
Set MyMail = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
MyMail.From = "someone@blokeinthekitchen.com"
MyMail.To = "someoneelse@blokeinthekitchen.com"
MyMail.Subject = "blah blah"
'build body text
mailBody = somevariable
mailbody = mailbody & anothervariable
MyMail.Body = mailBody
' Send the message
MyMail.Send()
Set MyMail = Nothing
' *** mail routine end
It doesn't fall over, it just doesn't appear to do anything. Anything obvious amiss?
Cheers
I'm looking at some inherited code and can't quite figure out why this doesn't work. It apparently used to, but doesn't any more! Here goes:
' *** mail routine start
Dim mailBody
Dim MyMail 'The CDO object
' Create NewMail object
Set MyMail = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
MyMail.From = "someone@blokeinthekitchen.com"
MyMail.To = "someoneelse@blokeinthekitchen.com"
MyMail.Subject = "blah blah"
'build body text
mailBody = somevariable
mailbody = mailbody & anothervariable
MyMail.Body = mailBody
' Send the message
MyMail.Send()
Set MyMail = Nothing
' *** mail routine end
It doesn't fall over, it just doesn't appear to do anything. Anything obvious amiss?
Cheers