Question

我正在使用Excel电子表格作为业务表格，其中包含用于分配下一个序号的宏。

此宏使用与顺序号相对应的新文件名保存表单（新文件与以前的文件保存在同一文件夹中），清除活动表单的内容，然后将下一个顺序号分配给表单供其他用途。

我想添加将最后保存的表单附加到Outlook电子邮件中的代码，并将代码放在相同的宏和命令按钮中。

以下是我正在使用的代码：

Sub NextRequest()
    Range("D3").Value = Range("D3") + 1
    Range("B4:B6").ClearContents
    Range("G4:G7").ClearContents
    Range("B11:B20").ClearContents
    Range("B24:b25").ClearContents
    Range("B27:G33").ClearContents
    Range("D35").ClearContents
    Range("f35").ClearContents
End Sub

Sub SaveInvReqWithNewName()
    Dim NewFN As Variant
' Copy Invoice Request to a new workbook
    ActiveSheet.Copy
    NewFN = "M:\Accounting\InvoiceRequests\InvRequest" & Range("C3") & Range("D3").Value & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    NextRequest
End Sub

我使用什么代码将最后保存的文件附加到Outlook电子邮件，以及该代码在宏字符串的何处放置？

将保存的文件附加到Outlook电子邮件的VBA代码

0 个答案: