Error ‘80040211′
set up send url and smtp url

Error ‘8004020e’
from email id should be properly formatted and some times must be from same domain

sendUrl=”http://schemas.microsoft.com/cdo/configuration/sendusing”
smtpUrl=”http://schemas.microsoft.com/cdo/configuration/smtpserver”

‘ Set the mail server configuration
Set objConfig=CreateObject(“CDO.Configuration”)
objConfig.Fields.Item(sendUrl)=2′cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)=”relay-hosting.secureserver.net”
objConfig.Fields.Item (“http://schemas.microsoft.com/cdo/configurationsmtpserverport”) =25
objConfig.Fields.Item (“http://schemas.microsoft.com/cdo/configurationtpauthenticate”) =1
‘objConfig.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusing”) =1
‘objConfig.Fields.Item (“http://schemas.microsoft.com/cdoconfiguration/smtpserver”) =”relay-hosting.secureserver.net”
objConfig.Fields.Update

‘ Create and send the mail
Set objMail=CreateObject(“CDO.Message”)
” Use the config object created above
Set objMail.Configuration=objConfig
objMail.From= “CEPHAS WebSite ”
objMail.To= “xxx@domain.com”
objMail.Subject=”Customer Connection Survey Form from Website”
objMail.TextBody= MsgBody ‘”body”
objMail.Send