为文件夹里的每个pdf建一封邮件,用vba实现

在VBA中，我们可以通过使用Outlook应用程序来创建和发送电子邮件，因此可以通过以下步骤为文件夹中的每个PDF文件建立一封邮件：

首先，我们需要确保已经添加了Outlook对象库引用，以便能够使用Outlook应用程序。

接下来，我们需要编写一个VBA脚本来遍历文件夹中的每个PDF文件，并为每个文件创建一封邮件。可以使用FileSystemObject来获取文件夹中的所有文件，并遍历每个文件进行操作。

然后，对于每个PDF文件，创建一个新的Outlook邮件对象，并设置收件人、主题和正文等属性。可以使用Attachments.Add方法将PDF文件作为附件添加到邮件中。

最后，发送邮件并释放相应的资源。

整个过程大致如下所示：

Sub SendEmailForEachPDF()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim FSO As Object
    Dim Folder As Object
    Dim File As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder("C:\YourFolderPath") '替换成你的文件夹路径
    
    For Each File In Folder.Files
        If Right(File.Name, 3) = "pdf" Then
            Set OutMail = OutApp.CreateItem(0)
            With OutMail
                .To = "recipient@example.com"
                .Subject = "PDF File"
                .Body = "Please find the attached PDF file."
                .Attachments.Add File.Path
                .Send
            End With
            Set OutMail = Nothing
        End If
    Next File
    
    Set Folder = Nothing
    Set FSO = Nothing
    Set OutApp = Nothing
End Sub

通过以上VBA脚本，我们可以为文件夹中的每个PDF文件创建并发送一封邮件。需要注意的是，需要根据实际情况修改对应的文件夹路径和收件人地址。