[VBA ] 下載outlook附件的附件

看板Visual_Basic作者NullLife (政) (哀莫大於心死)時間9年前 (2015/01/24 17:46)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

小弟妹有一個小問題就是我想要下載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://www.ptt.cc/bbs/Visual_Basic/M.1422092776.A.73F.html