[求助]microsoft outlook批量保存附件问题（就差一点完成）

aaaaabbbbb · 发表于 2009-4-21 23:37

我是在OUTLOOK2007里测试程序的, 在2003中就改成Dim fldFolder As Outlook.MAPIFolder吧.

小破 · 发表于 2009-4-22 18:08

请问可以有EXCEL中运行吗?
为什么我的这三句都提示"用户定义类型未定义"在OUTLOOK中可以用,谢谢!

Dim olApp As New Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.Folder

avsever · 发表于 2009-5-4 22:14

你引用一下outlook9

avsever · 发表于 2009-5-4 22:15

如果是2000就是outlook9，2002是10，2003是11，2007是12

Sdog · 发表于 2009-5-5 16:57

推荐一个插件吧：Outlook Attachment Remover Add-in
免费的，相关网址是
http://www.kopf.com.br/outlook/

inadequate · 发表于 2010-12-17 22:31

兄弟，为什么我这个老是会出现提示，“有某个程序要访问”，怎么才能让它不出现提示
Sub Savetheattachment()
Dim olApp As New Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.MAPIFolder
Dim vItem As Object
Set nmsName = olApp.GetNamespace("MAPI")
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
If fldFolder.UnReadItemCount > 0 Then
      For Each vItem In fldFolder.Items
         If vItem.UnRead = True Then
               For Each att In vItem.Attachments
                        att.SaveAsFile "C:\附件\" & vItem.SenderName & " " & att.FileName
               Next
         End If
      Next
End If
Set fldFolder = Nothing
Set nmsName = Nothing
End Sub

zdlfb · 发表于 2012-9-27 13:48

Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
这个是定义为收件箱里面的么？
假如我要定义收件箱下某个文件夹下的子文件夹该怎么办？

zdlfb · 发表于 2012-9-27 17:35

avsever 发表于 2009-5-4 22:15
如果是2000就是outlook9，2002是10，2003是11，2007是12

怎样引用？

zdlfb · 发表于 2012-9-27 17:58

gaosi2772 发表于 2007-7-24 17:35
就是版主在7楼回答的下半部分!Sub Savetheattachment()    Dim olApp As New Outlook.Appli ...

这样的代码只能放在outlook的编辑器里面，要是放excel里面的编辑器的话，显示“未定义类型”，怎么办？

rplyl1988 · 发表于 2013-5-8 23:20

Sdog 发表于 2009-5-5 16:57
推荐一个插件吧：Outlook Attachment Remover Add-in
免费的，相关网址是
http://www.kopf.com.br/outloo ...

谢谢！很给力！！！！！

		自动登录	找回密码
密码			免费注册