从指定路径发送所有文件,并删除此路径下的文件。
示例代码如下:
Option Explicit
Sub Attach_all_files()
Dim mess_body As String
Dim OutApp As Object
Dim OutMail As
从指定路径发送所有文件,并删除此路径下的文件。
示例代码如下:
Option Explicit
Sub Attach_all_files()
Dim mess_body As String
Dim OutApp As Object
Dim OutMail As