[求助][已解决]EXCEL用LOTUS NOTES发邮件

winland

QUOTE:

以下是引用tonyibm在2008-8-20 21:31:20的发言：

多谢，我找找看，

不知道我提的那个问题，版主您有没有办法，

批量导出指定邮件的附件到指定文件夹，

等明天上班时看看，还不知道怎么导出附件。。。

winland

用下面这个方法导出指定邮件数据库的Inbox中最后一个邮件的所有附件到C盘下。

Sub GetAttachement()
    Dim aNotes
    Dim aDataBase
    Dim aDocument
    Dim aDocCollect
    Dim aView
    Dim rtItem
    Dim oEmb
   
    Set aNotes = CreateObject("Notes.NotesSession")
    Set aDataBase = aNotes.GetDatabase("", "yourdatabase.nsf")
    Set aView = aDataBase.GetView("($Inbox)")
    If (aView Is Nothing) Then
        MsgBox "Inbox view don't exist!"
    Else
        Set aDocument = aView.GETLASTDOCUMENT
        Set rtItem = aDocument.GetFirstItem("Body")
        If (rtItem.Type = 1) Then
            For Each oEmb In rtItem.EmbeddedObjects
                If (oEmb.Type = 1454) Then
                    Call oEmb.ExtractFile("c:\" & oEmb.Source)
                End If
            Next
        End If
    End If
    Set aNotes = Nothing
    Set aDataBase = Nothing
    Set aView = Nothing
    Set aDocument = Nothing
End Sub

如果你需要指定某些特征的邮件，需要使用一些方法找出这些NotesDocument，例如下面的代码是获得指定View下面所有的邮件。

iTotal = aView.AllEntries.Count
Set aDocument = aView.GetFirstDocument
For i = 1 To iTotal
    On Error Resume Next
    'do what you want to do...
    Set aDocument = aView.GetNextDocument(aDocument)
Next i

tonyibm

谢谢，版主您真是太强大了，能否告知一下这些信息是哪里来的，我试着在notes里面找帮助文件，但是在帮助文件里面好像搜不到与script相关的文件，

[此贴子已经被作者于2008-8-20 23:05:43编辑过]

winland

QUOTE:

以下是引用tonyibm在2008-8-20 23:01:52的发言：
谢谢，版主您真是太强大了，能否告知一下这些信息是哪里来的，我试着在notes里面找帮助文件，但是在帮助文件里面好像搜不到与script相关的文件，

一般就是帮助文件加搜索。

前面我提过的那个文件你找不找得到？客户端本地帮助文件只是一些Notes操作方面的帮助。需要找Designer的帮助文件，你可以从菜单"File"-->"Database"-->"Open..."里去查找服务器端的一些帮助文件数据库看看，那个文件是help65_designer.nsf。

tonyibm

QUOTE:

以下是引用winland在2008-8-20 23:41:58的发言：

一般就是帮助文件加搜索。

前面我提过的那个文件你找不找得到？客户端本地帮助文件只是一些Notes操作方面的帮助。需要找Designer的帮助文件，你可以从菜单"File"-->"Database"-->"Open..."里去查找服务器端的一些帮助文件数据库看看，那个文件是help65_designer.nsf。

谢版主，我去找找看，

winland

QUOTE:

以下是引用winland在2008-8-20 18:16:31的发言：

关于nNotes.GETDATABASE("","")，刚才看了一下filename和filepath属性，居然是空字符串，这样应该同CurrentDatabase属性不同。明天查查帮助文件看看。

上班时试了一下，nNotes.GETDATABASE("","")还真的和CurrentDatabase属性一样获取当前数据库，但Filename和Filepath属性是空的，很奇怪。

yuanhongly

记号

tonyibm

QUOTE:

以下是引用winland在2008-8-21 9:38:26的发言：

上班时试了一下，nNotes.GETDATABASE("","")还真的和CurrentDatabase属性一样获取当前数据库，但Filename和Filepath属性是空的，很奇怪。

我用nNotes.GETDATABASE("","")去获取当前的邮件数据库出错，因为取到的是另外一个用户的nsf数据库，可能是我的机子上面以前有过其他人的数据，可能我的用户权限是后面添加的，就不是默认的当前数据库了，只有手动将自己的数据库地址加到第二个空格里面，

tonyibm

QUOTE:

以下是引用winland在2008-8-20 22:15:57的发言：

用下面这个方法导出指定邮件数据库的Inbox中最后一个邮件的所有附件到C盘下。

Sub GetAttachement()
    Dim aNotes
    Dim aDataBase
    Dim aDocument
    Dim aDocCollect
    Dim aView
    Dim rtItem
    Dim oEmb
   
    Set aNotes = CreateObject("Notes.NotesSession")
    Set aDataBase = aNotes.GetDatabase("", "yourdatabase.nsf")
    Set aView = aDataBase.GetView("($Inbox)")
    If (aView Is Nothing) Then
        MsgBox "Inbox view don't exist!"
    Else
        Set aDocument = aView.GETLASTDOCUMENT
        Set rtItem = aDocument.GetFirstItem("Body")
        If (rtItem.Type = 1) Then
            For Each oEmb In rtItem.EmbeddedObjects
                If (oEmb.Type = 1454) Then
                    Call oEmb.ExtractFile("c:\" & oEmb.Source)
                End If
            Next
        End If
    End If
    Set aNotes = Nothing
    Set aDataBase = Nothing
    Set aView = Nothing
    Set aDocument = Nothing
End Sub

如果你需要指定某些特征的邮件，需要使用一些方法找出这些NotesDocument，例如下面的代码是获得指定View下面所有的邮件。

iTotal = aView.AllEntries.Count
Set aDocument = aView.GetFirstDocument
For i = 1 To iTotal
    On Error Resume Next
    'do what you want to do...
    Set aDocument = aView.GetNextDocument(aDocument)
Next

版主，还有一个问题，能否将附件所对应的发件人，主题，接收时间，日期也一起导出来，多谢，

swsk

多谢版主，按照你的方法指定路径就可以了，两个参数为空也行，而且速度更快，估计是Lotus要打开本地数据库需要更长时间。

但是现在出现了另外一个问题，宏代码运行到“nDcoument.SAVEMESSAGEONSEND = True”时就会提示“Object required”(我的系统是英文版)，去掉这一句就可以正常运行，不知道是为什么。

关于Lotus开发我搜集了几个网站：http://bbs.chinalotus.com，http://tech.it168.com/zt/lotus/index.html，供Lotus用户参考，我的基础太差，几乎都没看懂，希望有志同道合者共勉。