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

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

专题地址：http://www.access911.net/index.asp?u1=a&u2=75FABF1E16DC 如果需要更详细的评论或说明，请点击该地址。

简述：

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

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://www.access911.net/index.asp?u1=a&u2=75FABF1E16DC

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

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

2010年7月2日生成静态资料