[VBA ] 下载outlook附件的附件

楼主: NullLife (废材大叔有点累)   2015-01-24 17:46:12
小弟妹有一个小问题
就是我想要下载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
'

Links booklink

Contact Us: admin [ a t ] ucptt.com