如何将文件夹中的所有文件附加到电子邮件- vba代码

Sub AttachFilesInFolder()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strFolderPath As String
    
    ' 设置文件夹路径
    strFolderPath = "C:\Folder\Path"
    
    ' 创建Outlook对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set objMail = objOutlook.CreateItem(0)
    
    ' 添加收件人、主题等信息
    With objMail
        .To = "recipient@example.com"
        .Subject = "附件文件"
        .Body = "这是附件文件"
    End With
    
    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)
    
    ' 遍历文件夹中的所有文件
    For Each objFile In objFolder.Files
        ' 附加文件到邮件
        objMail.Attachments.Add objFile.Path
    Next objFile
    
    ' 显示邮件
    objMail.Display
    
    ' 释放对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub