电子邮件附件为空

时间:2018-07-31 17:31:21

标签: excel vba outlook

我正在尝试使用VBA将文件附加到Outlook,但是我的代码似乎总是附加空白文件。

该代码当前将工作簿保存在预定义的路径中,然后添加与Outlook附件同名的文件,但是附件为空白,我不确定为什么。该“空白”文件似乎没有被代码保存在任何地方,因此不确定该文件来自何处。

Dim NewWkb As Workbook
Dim OutApp As Object
Dim OutMail As Object
Dim i As Long
Dim COB As Variant
    COB = Range("B16").Value
    COB = Format(COB, "DD_MMM_YYYY") 

Application.DisplayAlerts = False
Set NewWkb = Workbooks.Add
NewWkb.SaveAs "C:\Users\Documents\BS_Spray " & COB
For i = 2 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(i).Copy NewWkb.Worksheets(NewWkb.Worksheets.Count)
Next
Sheets("sheet1").Delete
Application.DisplayAlerts = True

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

On Error Resume Next

With OutMail
    .To = ""
    .CC = " "
    .Subject = "SL Utility B/S Report " & J
    .Body = "Hi all," & vbNewLine & vbNewLine & "Please see attached  " & J
    .Attachments.Add NewWkb.FullName
    .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

1 个答案:

答案 0 :(得分:0)

您应将“ C:\Users\Documents\BS_Spray " & COB传递给.Attachments.Add