OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Outlook >> Outlook应用实例 >> 正文

我要提问
将邮件中的附件保存至硬盘
[2006年10月27日]  点击数: 【字体: 】【双击滚屏
 

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

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.Count
        Set mymailitem = myfolder.Items(i)
        With mymailitem
            Set myAttachments = mymailitem.Attachments
            myAttachments.Item(1).SaveAsFile "C:\电子邮件\" + IIf(IsNull(myAttachments.Item(1).DisplayName), i, myAttachments.Item(1).DisplayName)
        End With
    Next
End Sub
 

上一篇:没有了
下一篇:调用outlook生成并发送邮件的代码
最新文章
调用outlook生成并发送邮件的代码10/27
将邮件中的附件保存至硬盘10/27
使用 Outlook 2003 提高招聘过程的效率10/27
热门文章
相关文章
你试过在Word文件中加入声音吗
设置Outlook接收附件的文件类型
用Word“邮件合并”生成通知单
把Office中的“宏”备份带走
轻松保存Office中的个性化设置
打印Excel中的单列表格
介绍Word邮件合并技巧四则帮你提
Word中的阿拉伯数字转换小技巧
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统