作者NullLife (政) (哀莫大於心死)
看板Visual_Basic
标题[VBA ] 下载outlook附件的附件
时间Sat Jan 24 17:46:12 2015
小弟妹有一个小问题
就是我想要下载outlook的附件
现在已经找到sample code可以下载附件
但是我的附件还是一封mail
然後我想要下载那封mail的附件
现在不知道怎麽做，以下为我的sample code
Sub saveunread()
Dim olApp As New Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim vItem As Object
Set nmsName = olApp.GetNamespace("MAPI")
Set myFolder = nmsName.GetDefaultFolder(olFolderInbox)
Set fldFolder = myFolder.Folders("abc")
For Each vItem In fldFolder.Items
'-----Save Attachment-------
For Each att In vItem.Attachments
If vItem.unread = True Then
For Each subatt In att.Attachments
subatt.SaveAsFile "\\新增资料夹\" & subatt.FileName
Next
End If
Next
'------Save Attachment--------
Next
Set fldFolder = Nothing
Set nmsName = Nothing
End Sub
然後现在VBA跟我说att没有Attachments这个属性或方法
请问我现在应该如何做?
感谢大大<(_ _)>
--
你只是大大的世界中小小的一个岛屿
在你怀中长大的我们 从未忘记
我要用全部的力气唱出对你的深情
歌声中 只是真心的赞美
929 吴志宁
也有感谢和依恋 疼惜和忧烦
全心全意爱你
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.34.158.45
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1422092776.A.73F.html