VBA .Attachments.Add方法抛出误差

Question

我试图发送和电子邮件的附件与VBA。代码在没有Attachments.Add行的情况下运行良好，但是它得到了“运行时错误'440'：操作失败”的错误。

我在网上查过了，似乎找不到原因。我是否没有正确设置电子邮件对象？

代码如下：

Sub test()

Static objOutlook
Dim objMailItem
Dim objFileSystem
Dim objNamespace
Dim objSentFolder
Const olFolderInbox As Long = 6

Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Session.GetDefaultFolder(olFolderInbox).Display
objOutlook.ActiveExplorer.WindowState = WindowState

Set objMailItem = objOutlook.CreateItem(0)
objMailItem.Display

With objMailItem
    .Subject = "test"
    Set recip = .Recipients.Add("cats@cats.com")
    .Attachments.Add = "file.xls"
    .Body = ""
    .DeleteAfterSubmit = False
End With
objMailItem.Send
Set objFileSystem = Nothing
Set objMailItem = Nothing
Set objOutlook = Nothing

End Sub

Answer 1

.Attachments.Add "file.xls"

不需要(或允许.)

如果您还没有这样做，您应该将完整的路径传递到文件，而不仅仅是名称，否则如果当前目录不是您所期望的，那么您的代码可能会失败。