aa77dd@163.com

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f in fso.GetFolder("C:\Scan\").Files
   If fso.GetExtensionName(f.Path) = "PDF" Then
        .Attachments.Add f.Path
   End If
Next
复制代码

替换 31-36 行

aa77dd@163.com

回复 3# 我不是是人

可能是你的 PDF 文件的扩展名并非全是大写, 所以匹配失败, 稍加修改 加入了一个 UCase 函数, 避免大小写不匹配的问题, 在 win7 64位 Outlook 2003 环境用 VBA 宏实测成功发送附件

        Dim fso, f
        Set fso = CreateObject("Scripting.FileSystemObject")
        For Each f In fso.GetFolder("C:\Scan\").Files
            If UCase(fso.GetExtensionName(f.Path)) = "PDF" Then
                 .Attachments.Add f.Path
            End If
        Next
复制代码