Excel VBA错误-运行时错误-2147467259（80004005）方法'；邮包；对象_工作表的操作失败

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

这是我第一次运行宏，它工作正常。如果我再次尝试运行它，就会出现上述错误。保存工作手册（不关闭）“重置”问题，我可以完美地再次使用宏；打开/关闭具有相同的积极影响

我在process manager中看不到任何打开的流程

关于如何诊断这个问题有什么建议吗？我尝试过搜索各种论坛，可以看到有相同问题但找不到解决方案的人

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

---

因此，作为记录，我回答了我自己的问题。这是一个黑客，但进入

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

为了反映我正在围绕该问题进行的工作

---

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

真的很抱歉，我有点盲目。本来应该是宏的！