从指定路径发送所有文件,并删除此路径下的文件。
示例代码如下:
Option Explicit
Sub Attach_all_files()Dim mess_body As StringDim OutApp As ObjectDim OutMail As ObjectDim MyPath As String
目录 1. 通过浏览文件夹选择 PDF 保存位置并发送2. 固定的PDF保存位置,读取单元格中的邮件内容并发送1. 通过浏览文件夹选择 PDF 保存位置并发送
Sub Saveaspdfandsend()Dim xSht As WorksheetDim xFileDlg As FileDialogDim xFolder As StringDim xYesorNo As I