使用excel从无回复帐户发送电子邮件

如何解决使用excel从无回复帐户发送电子邮件

如果此问题重复，请提前致歉。我在论坛中发现了一些类似的问题，但没有一个遇到同样的问题或解决方案。

我正尝试根据不同情况向某些地址发送不回复电子邮件。我打算使用的无答复地址是这样的：[e-mail]。当前，所有电子邮件都使用Outlook。 完成工作后，我的意图是将带有VBA代码的excel（这只是更大的宏的一部分）存储在服务器上，并创建一个脚本来在每周（或每月）开始时运行它。 / p>

一切正常，除了电子邮件部分报告我找不到解决方案的错误。我不太清楚自己在做什么错。

Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim strAttach As String

strSubject = "Test email"
strFrom = "[e-mail]"
strTo = "[e-mail]"
'strCc = ""
'strBcc = ""
strBody = "testing message"
'strAttach = fileStream

   Set CDO_Mail = CreateObject("CDO.Message")
   On Error GoTo Error_Handling

   Set CDO_Config = CreateObject("CDO.Configuration")
   CDO_Config.Load -1

   Set SMTP_Config = CDO_Config.Fields

   With SMTP_Config
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com" 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpusestls") = True
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[e-mail]"
     .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******"
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
     '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
     .Update
   End With

   With CDO_Mail
      Set .Configuration = CDO_Config
   End With


CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
'CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

这是我得到的错误：