<<< 返回 access911.net 编程静态资料库索引页

提供将邮件里的附件保存至硬盘的代码。

 

作者:cg1  摘自:  录入:cg1  时间:2003-6-5  浏览人次:881


专题地址:http://access911.net/fixhtm/75FABF1E16DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


提供将邮件里的附件保存至硬盘的代码。

Sub Exprot_Mail_Attachments()
   
On Error Resume Next
 
    Dim myolapp As New Outlook.Application
   
    Set myNameSpace = myolapp.GetNamespace("MAPI")
    Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    
    For i = 1 To myfolder.Items.Coun.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/75FABF1E16DC.htm

 


上一篇:新手来看:jet 4.0 的保留字

下一篇:新手来看:excel中怎么编程获取单元格字符颜色、背景、批注?

2017年2月22日生成静态资料