国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

把Outlook信箱中的附件另存為

2019-11-18 17:28:02
字體：大 中 小
供稿：網(wǎng)友
'這點代碼將會找到Outlook信箱中的附件，并把它們保存至
'"C:/temp/OutlookAttachments"，它沒有錯誤處理所以請小心使用！
'以下是代碼（放在一個Command按鈕下面）

DimoAppAsOutlook.application
DimoNameSpaceAsNameSpace
DimoFolderAsMAPIFolder
DimoMailItemAsObject
DimsMessageAsString

SetoApp=NewOutlook.Application
SetoNameSpace=oApp.GetNamespace("MAPI")
SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)

　　ForEachoMailItemInoFolder.Items
　　　　WithoMailItem
　　　　　　IfoMailItem.Attachments.Count>0Then'?
　　　　　　　oMailItem.Attachments.Item(1).SaveAsFile"C:/Temp/OutlookAttachments/"&oMailItem.Attachments.Item(1).filename
　　　　　　　MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename
　　　　　　EndIf
　　　　EndWith
　　NextoMailItem

SetoMailItem=Nothing
SetoFolder=Nothing
SetoNameSpace=Nothing
SetoApp=Nothing

作者：LewisCornick
郵箱：l_cornick@hotmail.com
網(wǎng)址：http://www.geocities.com/SiliconValley/Haven/1768

->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 黄平县| 平度市| 封开县| 叶城县| 皮山县| 鄂尔多斯市| 巴南区| 庆安县| 陆丰市| 衡阳市| 葵青区| 博罗县| 增城市| 肃南| 怀安县| 方山县| 剑川县| 海盐县| 青阳县| 威信县| 北流市| 乡城县| 麻阳| 曲松县| 乌兰浩特市| 鹤壁市| 任丘市| 广德县| 高州市| 陵水| 滁州市| 安康市| 南和县| 崇左市| 扶沟县| 凯里市| 兖州市| 长沙县| 忻州市| 深泽县| 鄄城县|