Question

我修改了一个VBS脚本，通过我的Office 365帐户发送经过身份验证的电子邮件，但无法让它工作。我收到错误：sendemail365.vbs（17,2）（null）：服务器被拒绝发件人地址。服务器响应是：530 5.7.57 SMTP;客户端不是aut 在MAIL FROM期间发送匿名邮件[DM5PR06CA0041.namprd06.prod。 outlook.com。我可以使用thunderbird中的电子邮件地址进行连接并发送经过身份验证的电子邮件。我需要调整什么建议吗？我研究的所有东西似乎都很老，不起作用。

   Set objEmail      = CreateObject("CDO.Message")
 objEmail.From     = "dummy@dummy.com"
 objEmail.To = "sendto@testing.net"
 objEmail.Subject  = "Testing office 365 Subject"
 objEmail.Textbody = "Testing office 365 body"
 with objEmail.Configuration.Fields
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")        = 2
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")       = "smtp-mail.outlook.com"
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")   = 587
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername")     = "dummy@dummycom"
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword")     = "password(actualpassword)"
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendtls")          = True
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  .Update
 end with
 objEmail.Send

Answer 1

此处的问题源于您的电子邮件提供商，而不是与您的代码有关。请参阅Microsoft关于direct sends ...

的帖子

这表示您正在连接到SMTP客户端提交端点（smtp.office365.com），不能用于直接发送。对于直接发送，请使用适用于Office 365租户的MX端点以＆＃34; mail.protection.outlook.com结尾。＆＃34;所以，请让你的管理员检查MX记录。此外，请检查SMTP端口是否是 25 / TLS。

办公室365的CDO VBS脚本无法正常工作

1 个答案: