国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 安西县| 遂昌县| 略阳县| 平谷区| 邵阳市| 武陟县| 无为县| 福建省| 南和县| 公主岭市| 西充县| 康保县| 乌拉特后旗| 铅山县| 宁海县| 本溪市| 石河子市| 辛集市| 犍为县| 南和县| 汶上县| 克拉玛依市| 盘山县| 治多县| 神农架林区| 广南县| 宁蒗| 尚义县| 新河县| 万全县| 肃南| 乌鲁木齐县| 盐山县| 策勒县| 股票| 永福县| 富裕县| 漳平市| 雷波县| 石阡县| 大悟县|