Her er et svar, hvis du stadig er interesseret - og det virker på Windows 2003:
OSysConf
Set objCDOSYSConf = Server.CreateObject ("CDO.Configuration")
'CDO send method
objCDOSYSConf.Fields("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
'SMTP port
objCDOSYSConf.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Outgoing SMTP server
objCDOSYSConf.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = "vip.cybercity.dk"
'Timeout
objCDOSYSConf.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'Update the CDOSYS Configuration
objCDOSYSConf.Fields.Update
Dim objCDOSYSMail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'Set Configuration
Set objCDOSYSMail.Configuration = objCDOSYSConf
'Build mail
objCDOSYSMail.To = "receiver@email.com"
objCDOSYSMail.From = "sender@email.com"
objCDOSYSMail.Subject = "subject"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
'objCDOSYSMail.HTMLBody = "html enhanced email message goes here<br>and here"
objCDOSYSMail.TextBody = "plan text goes here"
'Any attachments?
' Dim objAttachment
' Set objAttachment = objCDOSYSMail.AddAttachment("c:\somefile.doc")
' objAttachment.ContentMediaType="application/msword"
' Set objAttachment= objCDOSYSMail.AddAttachment("c:\anotherfile.html")
' objAttachment.ContentMediaType="text/html"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSConf= Nothing