Outlook 将工作簿附加到电子邮件

我有下面的代码，它将打开包含相关详细信息的电子邮件，但是工作簿没有附加自身-看不出原因（作为新手！）

还有没有办法在电子邮件上附加签名？我正在使用最新版本的MS应用程序，因此不确定这是否有任何问题

子电子邮件_工作簿（） Dim OutApp作为对象 将邮件变暗为对象

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

On Error Resume Next
With OutMail
    .to = "pknight@xxxx.com"
    .CC = ""
    .BCC = ""
    .Subject = "Daily UK Orders Report"
    .Body = "Good afternoon, " & vbNewLine & vbNewLine & _
    "Please see the attached report for today's UK orders" & vbNewLine & _
    "Kind regards"
    .Attachments.Add ActiveWorkbook.Daily_UK_Orders_Report.xlsm
    .display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

端接头

谢谢你的帮助

---

Phill

Remove On Error Resume Next（错误时的匹配转到0）查看错误。因为您现在是这段代码的程序员，所以不要将这些行放回原处。如果您现在无法自己修复问题，请使用错误更新问题。谢谢Niton，问题原来是活动工作簿名称。调整好了，一切都很顺利。通常情况下，在这篇问答文章中，每篇文章都有一个问题。未来的搜索者更容易找到感兴趣的主题，你可以接受来自不同人的答案。您正在覆盖您的签名。为尼顿道歉的副本