outlook VBA 下载 附件 出错 （邮件 excel 自动 保存）

闻启学

魔法少年红领巾 发表于 2014-12-16 09:43
我最近自己写的脚本也出现这种问题  提示 “此种类型附件无法操作”的问题      在一台电脑上好用 另一台电 ...

联系我吧   QQ：417149126

大神的嘻嘻哈哈

闻启学 发表于 2013-11-3 07:07
我做了一个收到邮件后 自动下载 附件 保存到所指向的目录

我想实现收到指定发件人的邮件时，自动保存附件到指定文件夹，我在网上学了一端代码，可是没反应，请大神帮忙看一下
Option Explicit

Public Sub SaveAttach(Item As Outlook.MailItem)

    SaveAttachment Item, "\\Fsca-server\01-品质保证\05-金具\11-金具检查\01-金具合同\2018\", "*"

'    MsgBox "附件已保存"

End Sub

' 保存附件

' path为保存路径，condition为附件名匹配条件

Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")

    Dim olAtt As Attachment

    Dim i As Integer

    If Item.Attachments.Count > 0 Then

        For i = 1 To Item.Attachments.Count

            Set olAtt = Item.Attachments(i)

'             save the attachment

            If olAtt.FileName Like condition Then

                olAtt.SaveAsFile path & olAtt.FileName

            End If

        Next

    End If

    Set olAtt = Nothing

End Sub

闻启学

这个修改为 完整的路径地址  “”\\Fsca-server\01-品质保证\05-金具\11-金具检查\01-金具合同\2018\“”