CDOSYS与SBS 2003

问题描述

HI .....


我已经制作了简单的网站，我正在生成电子邮件页面

发送表格作为电子邮件。


i已经使用Exchange Server 2003安装了小型企业服务器，我用这台服务器托管了我的网站。


i can不使用以下代码生成电子邮件，而相同的代码使用

我的开发XP机器安装了SMTP服务。

代码是


设置objCDO = CreateObject（" CDO.Message"）

设置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（&quo t; http：//schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"）= 60

oMailConfig.Fields.Update


设置objCDO.Configuration = oMailConfig

objCDO.From =" te ** @ yahoo.com"

objCDO.To = strEmail


objCDO .Subject ="提醒

objCDO.HTMLBody = strEmailBody

''objCDO.BodyFormat = 0''CdoBodyFormatHTML

''objCDO.MailFormat = 0'' CdoMailFormatMime

''发送消息！

objCDO.Send

设置objCDO = Nothing

有什么问题吗与交换服务器的tis代码

请告诉我


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 = "te**@yahoo.com"
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

推荐答案

这篇关于CDOSYS与SBS 2003的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！