求助！自动处理附件

DC.Direct

当使用Outlook时，怎样可以将含有特定标题的附件（附件文件名称也是特定）自动另存为其他的工作文件中呢？是用VBA吗？请高手指教！！！[em00][em00][em00][em00][em00][em00][em00][em00][em00][em00]

DC.Direct

万分感谢版主，在百忙中予以解答。谢谢！怪我没有说清楚，我想是存储到非outlook中文中，如 D区中work文件中（或其他），您说的”收件规则“是指的”工具“栏——”规则向导“吗？ 另外我一般是在 office文档，选择”文件“——”发送“——”邮件收件人（以附件形式）“来发送文件，请问如何将其有特定格式（即邮件主题和附件均含有固定名称）文件，自动指定邮件人地址，自动发送。谢谢！ 再次感谢您给予的帮助，谢谢！

DC.Direct

如方便的话，能给出实际例子（VBA程序等），乞望尽快回复！谢谢。 唉，最近发的邮件太多了。。。。。。。。。。

DC.Direct

如方便的话，能给出实际例子（VBA程序等），乞望尽快回复！谢谢。 唉，最近发的邮件太多了。。。。。。。。。。

taipei-joe

将outlook的收件箱里的邮件里的文件导出的代码. 如何将outlook的收件箱里的邮件里的文件导出： 导入程序的关键需要引用一个outlook对象 1、导入至excel或access，如下代码为excel里的一个宏： Sub Exprot_Mail_xl() Dim myolapp As New Outlook.Application Set myNameSpace = myolapp.GetNamespace("MAPI") Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) For i = 1 To myfolder.Items.Count '简单for...next循环，将所有邮件导出，myfolder.Items.Count是收件箱里邮件的数量 Set mymailitem = myfolder.Items(i) With mymailitem Sheet1.Cells(i, 1) = .Subject Sheet1.Cells(i, 2) = .SenderName Sheet1.Cells(i, 3) = .Body End With Next xlapp.quit End Sub ********************************************************************** 2、导出成文本文件： Sub Exprot_Mail_txtfile() Dim myolapp As New Outlook.Application Set myNameSpace = myolapp.GetNamespace("MAPI") Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) For i = 1 To myfolder.Items.Count '简单for...next循环，将所有邮件导出，myfolder.Items.Count是收件箱里邮件的数量 Set mymailitem = myfolder.Items(i) With mymailitem .SaveAs "c:\电子邮件\" + .Subject + ".txt", olTXT End With Next xlapp.quit End Sub ****************************************************

loadhigh

是转帖了我的帖子吗？好眼熟啊！

loadhigh

定义“收件规则”