Question

我正在使用下面的VBA，它将一些单元格复制到电子邮件正文中，附加整个工作簿，然后发送。

这是我第一次运行宏，效果很好。如果我尝试再次运行它，则会收到上述错误。保存工作簿（不关闭）可“重置”问题，并且我可以再次完美地使用宏；打开/关闭具有相同的积极作用。

我在流程管理器中看不到任何打开的流程。

有关如何诊断问题的任何建议？我尝试搜索各种论坛，并且可以看到遇到相同问题但找不到修复程序的人。

Option Explicit

Sub Mail()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Mail Form")

sh.Range("B11:J22").Select

With Selection.Parent.MailEnvelope.Item
    .to = "email@gmail.com"
     .Subject = "Subject Line: " & Range("D5").Value
    .Attachments.Add (ThisWorkbook.FullName)
    .send
End With

MsgBox "Your request has been submitted"

End Sub

Answer 1

为记录下来，我回答了我自己的问题。这是骇客，但进入

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\temp\Filename" 
Application.DisplayAlerts = True

以反映我正在执行的节省工作以解决此问题。

但是我很想了解实际的问题

Excel VBA错误-运行时错误-2147467259（80004005）对象_Worksheet的方法'MailEnvelope'失败

1 个答案: