Q Excel VBA发送电子邮件

如何解决Q Excel VBA发送电子邮件

我正在使用下面的代码通过带有工作簿的Outlook自动发送电子邮件。运行宏时，“收件人”和“抄送”字段未填充，导致电子邮件无法自动发送。

每次使用excel时，“收件人”和“抄送”字段都会更改，因此需要使用H16和H19中的数据来填充需要发送给谁的电子邮件。

预先感谢您的帮助。

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<Font Size=2 Font Face=Verdana> Hi,<br><br>" & _
          "Please review and approve.<br>"


On Error Resume Next

With OutMail
    .Display
    .To = ActiveSheet.Range("H16")
    .CC = ActiveSheet.Range("H9")
    .BCC = ""
    .Subject = "[APPROVAL REQUIRED]"
    .HTMLBody = strbody & "<br>" & .HTMLBody
    .Recipients.ResolveAll
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Send


End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

解决方法

您现在了解原因：

On Error Resume Next
  :  :  :  :
On Error GoTo 0

从未像这样使用过。像这样使用它可以掩盖所有错误，因此仅供喜欢神秘失败的人使用。如果您愿意，我将添加一个部分来说明应该如何使用On Error Resume Next。

“运行时错误'-2147417851（80010105）'：对象'_MailItem'的方法'To'失败”不是最有用的错误消息。您对ActiveSheet.Range("H16")所了解的全部与.To不兼容。

我要补充：

Debug.Print ActiveSheet.Name

ActiveSheet是您想要的吗？ ActiveSheet是要避免的属性，除非每次运行宏时确实需要另一个活动工作表。 Worksheets("Email Data")更加安全，对将来的维护程序员很有帮助。

如果它是正确的工作表，那么ActiveSheet.Range("H16")的值是什么？它是字符串还是可以自动转换为字符串的内容？试试：

Dim StrTemp As String

StrTemp = ActiveSheet.Range("H16").Value
Debug.Print StrTemp
.To = StrTemp

如果这不能解决问题，我会感到惊讶。如果需要进一步的帮助，请报告情况。