T
tp
HI.....
I have made simpale web site inside that i am generating email page which
send form as email.
i have setup small business server with Exchange server 2003 and i have
hosted my website with this server.
i can not generate email using following code while same code working with
my developement XP machine installed SMTP service.
The code is
Set objCDO = CreateObject("CDO.Message")
Set oMailConfig = Server.CreateObject ("CDO.Configuration")
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
Set objCDO.Configuration = oMailConfig
objCDO.From = "(e-mail address removed)"
objCDO.To = strEmail
objCDO.Subject = " Reminder"
objCDO.HTMLBody = strEmailBody
'objCDO.BodyFormat = 0 ' CdoBodyFormatHTML
'objCDO.MailFormat = 0 ' CdoMailFormatMime
' Send the message!
objCDO.Send
Set objCDO = Nothing
Is there any problem with tis code with exchange server
pls advide me
TP
I have made simpale web site inside that i am generating email page which
send form as email.
i have setup small business server with Exchange server 2003 and i have
hosted my website with this server.
i can not generate email using following code while same code working with
my developement XP machine installed SMTP service.
The code is
Set objCDO = CreateObject("CDO.Message")
Set oMailConfig = Server.CreateObject ("CDO.Configuration")
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
Set objCDO.Configuration = oMailConfig
objCDO.From = "(e-mail address removed)"
objCDO.To = strEmail
objCDO.Subject = " Reminder"
objCDO.HTMLBody = strEmailBody
'objCDO.BodyFormat = 0 ' CdoBodyFormatHTML
'objCDO.MailFormat = 0 ' CdoMailFormatMime
' Send the message!
objCDO.Send
Set objCDO = Nothing
Is there any problem with tis code with exchange server
pls advide me
TP