Smtp CDO.消息,带多个address@school.edu.au韩元';不发送

Smtp CDO.消息,带多个address@school.edu.au韩元';不发送,smtp,attachment,cdo.message,Smtp,Attachment,Cdo.message,这是一个有趣的例子。某些情况下不会发送消息。这是我找到的一个例子。请注意,它不会产生错误 Set objMail = server.CreateObject("CDO.Message") Set obj_conf = server.CreateObject("CDO.Configuration") Set obj_fields = obj_conf.Fields obj_fields("http://schemas.microsoft.com/cdo/configuration/sendusin

这是一个有趣的例子。某些情况下不会发送消息。这是我找到的一个例子。请注意,它不会产生错误

Set objMail = server.CreateObject("CDO.Message")
Set obj_conf = server.CreateObject("CDO.Configuration")
Set obj_fields = obj_conf.Fields
obj_fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
obj_fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.school.edu.au"
obj_fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "0"
obj_fields("http://schemas.microsoft.com/cdo/configuration/smtserverpport") = "25"
obj_fields.Update
Set objMail.Configuration = obj_conf
objMail.From = """Person 1"" <Person1@school.edu.au>;"
objMail.ReplyTo = """Person 1"" <Person1@school.edu.au>;"
objMail.Subject = "school COMM TEST"
objMail.TextBody = "Comm testing" 
objMail.To = """Person 2"" <Person2@school.edu.au>;"
objMail.cc      = """My Name"" <myEmail@soemthing.com>;"
objMail.bcc       = """Person 2"" <Person2@school.edu.au>;"
objMail.AddAttachment "..\Attachment.htm"
objMail.send
Set objMail = Nothing
Set obj_conf = Nothing
Set obj_fields = Nothing
Set objMail=server.CreateObject(“CDO.Message”)
设置obj_conf=server.CreateObject(“CDO.Configuration”)
设置obj_字段=obj_配置字段
obj_字段(“http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
obj_字段(“http://schemas.microsoft.com/cdo/configuration/smtpserver“”=“smtp.school.edu.au”
obj_字段(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "0"
obj_字段(“http://schemas.microsoft.com/cdo/configuration/smtserverpport") = "25"
obj_字段。更新
设置objMail.Configuration=obj_conf
objMail.From=”““Person 1”“
objMail.ReplyTo=“”第1人“;”
objMail.Subject=“学校通信测试”
objMail.TextBody=“通信测试”
objMail.To=“”第2人“;”
objMail.cc=“”我的名字“;”
objMail.bcc=“”第2人“;”
objMail.AddAttachment“.\Attachment.htm”
objMail.send
Set objMail=Nothing
设置obj_conf=Nothing
设置对象字段=无

如果我没有添加一个回复或附件,那么它发送罚款。可能还有其他一些组合可以让它发挥作用。但是为什么当前设置不起作用,为什么没有附件或ReplyTo也能起作用呢?谢谢你的意见

看了他们的附件后,我注意到他们有一行:



我将它们与其他标记一起替换为:

,现在可以使用了。非常有趣、奇怪和复杂的问题。但很高兴结束了