小弟妹有一个小问题
就是我想要下载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
'