<%
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoURLGetLatestVersion = "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion"
Const cdoAuth = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoSendUsername = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod)       = 2 ' cdoSendUsingPort
.Item(cdoSMTPServer)        = "127.0.0.1"
.Item(cdoSMTPServerPort)= 25
.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Item(cdoURLGetLatestVersion)   = True
.Item(cdoAuth)   = 1
.Item(cdoSendUsername)   = "test@127.0.0.1"
.Item(cdoSendPassword)   = "test"
.Update
End With
With iMsg
   Set .Configuration = iConf
   .To       = """User A"" <test@127.0.0.1>"
   .From     = """User B"" <test@127.0.0.1>"
   .Subject  = "Hows it going? "
   .CreateMHTMLBody "http://127.0.0.1/test.html"
   .AddAttachment "C:\temp\test.txt"
   .Send
End With


%>