---

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

示例代码如下：

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