SMTP配置SendUsing配置值在ASP-Classic中无效。

Question

我试图得到一个使用ASP经典发送的电子邮件，并且在SMTP配置上遇到了问题。

错误：

CDO.Message.1错误'80040220‘"SendUsing“配置值无效。

代码(用于电子邮件本身)：

Set objMsg = Server.CreateObject("CDO.Message")  
objMsg.From     = "name@name.com"  
objMsg.To       = "themetatron@gmail.com"  
objMsg.Subject  = "Procurement Ally Update"  
objMsg.TextBody = strBody 

我试图用(pt 1)配置的代码：

sch = "http://schemas.microsoft.com/cdo/configuration/"  
Set cdoConfig = CreateObject("CDO.Configuration")   
    With cdoConfig.Fields   
        .Item(sch & "smtpserver") = "127.0.0.1"   
        .update   
    End With   

那不管用，所以我试着：

objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"  
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
objMsg.Configuration.Fields.Update 

这也没用。

(是的，我没有给你看，但最后有个电话打给objMsg.Send)

据我所知，本地boxes服务正在运行，并准备履行其职责。

有人能帮忙吗？

Answer 1

如果要指定smptserver，请确保将“sendusing(http://msdn.microsoft.com/en-us/library/ms873037(EXCHG.65%29.aspx))”字段设置为2(或cdoSendUsingPort)：

objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMsg.Configuration.Fields.Update 

Answer 2

由于SMTP服务位于本地主机上，因此使用SendUsingPickup (1)将其发送到拾取目录更有意义。这将比发送网络到端口25更有效。

objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup"
objMsg.Configuration.Fields.Update