附加路径中的所有文件并通过电子邮件发送

从指定路径发送所有文件，并删除此路径下的文件。

示例代码如下：

Option Explicit
Sub Attach_all_files()
    Dim mess_body As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MyPath As String
    

标签：Dim,电子邮件发送,String,文件,Object,路径,示例,附加
来源： https://blog.csdn.net/zglibk/article/details/122539711