Thought I'd copy this from the other thread I posted it in, in case it's of interest, and in case you don't read the other thread.
--------------------------------------------
From my poking around it seems most (sensible) mail servers these days are now set so that only valid email accounts on the server can send mail, and only with the From address matching the address on the mail server you log in as. While you CAN set the mail server to just send any mail from anyone to anyone without any validation, it leaves you open to people using your mail server to send spam.
OK, here's the code from a simple test page a made a while ago (CDOHTMLMailUnicodeTest.vbs - sensitive data stripped) .. it works for me.
(I've also had a variant of this work from within a MSSQL SProc)
Dim obj_Configuration
Dim obj_Message
dim obj_Connection
dim obj_Recordset
dim str_SQL
dim str_Configuration
dim str_To
str_To = "<ToEmailAddress>"
str_Configuration = "
Set obj_Connection = CreateObject("ADODB.Connection"

obj_Connection.ConnectionString = "DRIVER={SQL
Server};Server=<servername>;Database=<databasename>;UID=<username>;PWD=<password>"
obj_Connection.Open
str_SQL = "Select Q_InstText from quesInstTable where Q_OrgCode = 'Telstra' "
str_SQL = str_SQL & "and Q_ProfileCode = '360FQ'"
Set obj_Recordset = obj_Connection.Execute(str_SQL)
Set obj_Configuration = CreateObject("CDO.Configuration"

With obj_Configuration.Fields
.Item(str_Configuration & "sendusing"

= 2
.Item(str_Configuration & "SMTPServer"

= "203.89.65.131" ' Set the SMTP server
.Item(str_Configuration & "SMTPConnectionTimeout"

= 30
.Item(str_Configuration & "SendUserName"

= "<mail server account username(not email address)>"
.Item(str_Configuration & "SendPassword"

= "<password for above>"
.Update
End With
Set obj_Message = CreateObject("CDO.Message"

With obj_Message
Set .Configuration = obj_Configuration
.MimeFormatted = True
.Fields.Update
.To = str_To
.From = "<from email address - matches account logged into above>"
.Subject = "Unicode Mail Test - HTML"
.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=" & _
cdoShift_JIS & """></HEAD><BODY>" & obj_Recordset.Fields(0).Value & "</BODY></HTML>"
.AddAttachment "c:\bendev\texture01.jpg"
.Send
End With
Set obj_Recordset = Nothing
Set obj_Connection = Nothing
Set obj_Message = Nothing
Set obj_Configuration = Nothing codestorm
Fire bad. Tree pretty. - Buffy
select * from population where talent > 'average'
<insert witticism here>