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

问题描述

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

我正尝试根据不同情况向某些地址发送不回复电子邮件。我打算使用的无答复地址是这样的：[email protected]。当前，所有电子邮件都使用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 = "[email protected]"
strTo = "[email protected]"
'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") = "[email protected]"
     .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

这是我得到的错误：

Error message

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel excel outlook