首页 相关文章 把Outlook信箱中的附件另存为

把Outlook信箱中的附件另存为

'这点代码将会找到Outlook信箱中的附件,并把它们保存至
  '"C:empOutlookAttachments",它没有错误处理所以请小心使用!
  '以下是代码(放在一个Command按钮下面)
  
  DimoAppAsOutlook.Application
  DimoNameSpaceAsNameSpace
  DimoFolderAsMAPIFolder
  DimoMailItemAsObject
  DimsMessageAsString
  
  SetoApp=NewOutlook.Application
  SetoNameSpace=oApp.GetNamespace("MAPI")
  SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)
  
  ForEachoMailItemInoFolder.Items
  WithoMailItem
    IfoMailItem.Attachments.Count0Then'?
     oMailItem.Attachm...[ 查看全文 ]

2016-02-19 标签:

把Outlook信箱中的附件另存为的相关文章

手机页面
收藏网站 回到头部