作者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/m.aspx?n=bbs/Visual_Basic/M.1422092776.A.73F.html