目录 1. 通过浏览文件夹选择 PDF 保存位置并发送 2. 固定的PDF保存位置,读取单元格中的邮件内容并发送 1. 通过浏览文件夹选择 PDF 保存位置并发送 Sub Saveaspdfandsend() Dim xSht As Worksheet Dim xFileDlg As FileDialog Dim xFolder As String Dim xYesorNo As Integer Dim xOutlookObj As Object