如何附加日期在 VBA 中的文件

How to Attach Files with Dates in VBA

我有一个生成电子邮件的宏,但我想让这个宏附加带有日期的特定文件。

我希望宏在搜索文件时查找的日期是:

lastSunday = DateAdd("d", 1 - Weekday(Now), Now)
Format(lastSunday, "dd-MM-yyyy")

这是我的完整宏:

    Sub macro()
 Dim OutApp As Object, OutMail As Object
    Dim emailTo As String, emailCC As String
    Dim lastSunday As Date
    Dim c As Range
    
    lastSunday = DateAdd("d", 1 - Weekday(Now), Now)
    
    emailTo = WorksheetFunction.TextJoin(";", True, ActiveSheet.Range("Table22[To]"))
    emailCC = WorksheetFunction.TextJoin(";", True, ActiveSheet.Range("Table22[CC]"))
     
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = emailTo
            .CC = emailCC
            .Subject = "Weekly Reports - " & Format(lastSunday, "dd-MM-yyyy")
            .Body = "Dear all," & vbCrLf & vbCrLf & _
            "Please find attached the Weekly report" & vbCrLf & vbCrLf & "Hope this helps, please let me know if you require any additional detail." & vbCrLf & vbCrLf & "Kind regards,"
            '.Attachments.Add "S:documents\[filename - DD-mm-YYYY]"
            OutMail.Display
        End With

End Sub

Attachments.Add 方法在 Attachments 集合中创建一个新附件。附件的来源可以是文件(由带文件名的完整文件系统路径表示)或构成附件的 Outlook 项目。因此,您需要确保该文件不包含禁止符号(它是一个有效的文件名)并且该文件位于本地,例如:

Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = emailTo
            .CC = emailCC
            .Subject = "Weekly Reports - " & Format(lastSunday, "dd-MM-yyyy")
            .Body = "Dear all," & vbCrLf & vbCrLf & _
            "Please find attached the Weekly report" & vbCrLf & vbCrLf & "Hope this helps, please let me know if you require any additional detail." & vbCrLf & vbCrLf & "Kind regards,"
            .Attachments.Add "S:\documents\filename - " & Format(lastSunday, "dd-MM-yyyy") & ".ext"
            OutMail.Display
        End With