VBA EXCEL每天写工作报告然后邮件发送

每天打开读写保护的每日工作报告表格，记录工作时间，打卡时间，工作内容然后按一定格式做成发到指定邮箱（OutLook）。

第一步：新建一个EXECEL文件，借由该文件中的VBA代码打开指定的每日工作报告，该每日工作报告文件有写保护密码。

VBA代码如下：

Private Sub Workbook_Open()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Mon = Sheet1.Cells(1, 1) & Sheet1.Cells(1, 2)                '路径中包含月份 1月份写成 "1月"
    m = Sheet1.Cells(1, 3)                                                         ' 1月份写成"01"  
    Num = Sheet1.Cells(2, 2).Text                                                '文件名的其它变量，如号码等等
    Filenames = "\\路径" + Mon + "路径\" + Num + ".文件名" + m + ".xlsx"
    Passwords = "保护码"

    Dim buf As String
    
    On Error Resume Next
    buf = Dir(Filenames)
        If buf = &#