Question

以下代码显示“SendUsing”配置值无效。注意：设置myMail = CreateObject（CDO.Message“）表示不支持Let和Set

<%
Dim myMail=CreateObject("CDO.Message")
myMail.Subject="CDO Mail"
myMail.From="utilise.use@gmail.com"
myMail.To="utilise.use@gmail.com"
myMail.TextBody="Dear God"
myMail.Send
myMail=nothing

%>

Answer 1

这就是我使用的。您可能不需要配置，但在大多数情况下，您必须指定服务器和来自地址，以便消息不被视为垃圾邮件。 127.0.0.1是邮件服务器，它可能因您而异。

set objMessage = createobject("cdo.message") 
set objConfig = createobject("cdo.configuration") 
Set Flds = objConfig.Fields 

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="127.0.0.1" 
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="me@mydomain.com" 
Flds.update 
Set objMessage.Configuration = objConfig 
objMessage.To = "someone@somewhere"
objMessage.From = "me@mydomain.com" 
objMessage.Subject = "Hello"
objMessage.fields.update 

content = "Dear God"
objMessage.HTMLBody = content
objMessage.Send

使用vb和asp发送邮件

1 个答案: