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

jacksonzeng

我还没有用过LOTUS NOTES发过邮件,还是用非常旧版的EXCEL和旧版本的OUTLOOK EXPRESS 6.0.

wenwu0318

谢谢版主,我试用了，很成功，赞！

swsk

一直想实现在EXCEL里面操控Lotus，在论坛里搜索未果，于是买了精粹专门来看，输入后也是提示.nsf邮件数据库未打开。再次来论坛搜索，照这个帖子的代码运行居然成功了，不明白两种代码有什么区别，下面是书上的代码：

Sub SendEmailbyNotes()
Dim nNotes, nDatabase, nDocument, nRTItem As Object
On Error GoTo errhandle
Set nNotes = CreateObject("Notes.NotesSession")
Set nDatabase = nNotes.GETDATABASE("", "EmailBackup.nsf")
Set nDocument = nDatabase.CREATEDOCUMENT
nDocument.Subject = "测试"
nDocument.SendTo = "zhangsan@gmail.com"
nDocument.Form = "Memo"
nDcoument.SAVEMESSAGEONSEND = True
Set nRTItem = nDocument.CREATERICHTEXTITEM("Boby")
Call nRTItem.ADDNEWLINE(1)
Call nRTItem.APPENDTEXT("这是一个包含附件的测试邮件。")
Call nRTItem.ADDNEWLINE(1)
Call nRTItem.EMBEDOBJECT(1454, "", "c:\test\test.xls")
Call nDocument.SEND(False)
Set nNotes = Nothing
Set nDatabase = Nothing
Set nDocument = Nothing
Set nRTItem = Nothing
Exit Sub
errhandle:
MsgBox Err.Description
End Sub

请版主或者作者Windland过来瞧瞧，谢谢！

winland

首先多谢swsk的支持。如果提示.nsf邮件数据库未打开的话，表示邮件数据库路径不对或不存在， nNotes.GETDATABASE("", "EmailBackup.nsf")表示打开本地邮件数据库，EmailBackup.nsf文件应该在Lotus\notes\data目录下存在。如果在其它目录下需指定完整路径。如果你需要打开服务器端的邮件数据库，需要指定第一个参数为服务器名称。

Willin2000的代码使用了nNotes.GETDATABASE("","")，两个参数都为空字符串。今天刚好没上班，看不到帮助文件，明天看看。应该是表示打开当前邮件数据库，类似于Set nDatabase = nNotes.CurrentDatabase，不知道对不对？

tonyibm

QUOTE:

以下是引用swsk在2008-8-20 16:20:01的发言：

一直想实现在EXCEL里面操控Lotus，在论坛里搜索未果，于是买了精粹专门来看，输入后也是提示.nsf邮件数据库未打开。再次来论坛搜索，照这个帖子的代码运行居然成功了，不明白两种代码有什么区别，下面是书上的代码：

Sub SendEmailbyNotes()
Dim nNotes, nDatabase, nDocument, nRTItem As Object
On Error GoTo errhandle
Set nNotes = CreateObject("Notes.NotesSession")
Set nDatabase = nNotes.GETDATABASE("", "EmailBackup.nsf")
Set nDocument = nDatabase.CREATEDOCUMENT
nDocument.Subject = "测试"
nDocument.SendTo = "zhangsan@gmail.com"
nDocument.Form = "Memo"
nDcoument.SAVEMESSAGEONSEND = True
Set nRTItem = nDocument.CREATERICHTEXTITEM("Boby")
Call nRTItem.ADDNEWLINE(1)
Call nRTItem.APPENDTEXT("这是一个包含附件的测试邮件。")
Call nRTItem.ADDNEWLINE(1)
Call nRTItem.EMBEDOBJECT(1454, "", "c:\test\test.xls")
Call nDocument.SEND(False)
Set nNotes = Nothing
Set nDatabase = Nothing
Set nDocument = Nothing
Set nRTItem = Nothing
Exit Sub
errhandle:
MsgBox Err.Description
End Sub

请版主或者作者Windland过来瞧瞧，谢谢！

我也遇到这个问题，我照VBA精粹书上的做，也是提示.nsf邮件数据库未打开，但是照这个贴子的代码运行，也是一样的错误提示，不知道是为什么，

winland

QUOTE:

以下是引用winland在2008-8-20 17:56:36的发言：

首先多谢swsk的支持。如果提示.nsf邮件数据库未打开的话，表示邮件数据库路径不对或不存在， nNotes.GETDATABASE("", "EmailBackup.nsf")表示打开本地邮件数据库，EmailBackup.nsf文件应该在Lotus\notes\data目录下存在。如果在其它目录下需指定完整路径。如果你需要打开服务器端的邮件数据库，需要指定第一个参数为服务器名称。

Willin2000的代码使用了nNotes.GETDATABASE("","")，两个参数都为空字符串。今天刚好没上班，看不到帮助文件，明天看看。应该是表示打开当前邮件数据库，类似于Set nDatabase = nNotes.CurrentDatabase，不知道对不对？

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

winland

QUOTE:

以下是引用tonyibm在2008-8-20 17:57:39的发言：

我也遇到这个问题，我照VBA精粹书上的做，也是提示.nsf邮件数据库未打开，但是照这个贴子的代码运行，也是一样的错误提示，不知道是为什么，

也多谢tonyibm支持，你应该很早就拿到VBA精粹了。我还是上个星期才拿到的。

关于你提到的这个错误提示，我这里运行是没问题的。不知道有没有版本区别。你用Notes是哪个版本的？

tonyibm

QUOTE:

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

也多谢tonyibm支持，你应该很早就拿到VBA精粹了。我还是上个星期才拿到的。

关于你提到的这个错误提示，我这里运行是没问题的。不知道有没有版本区别。你用Notes是哪个版本的？

多谢版主关心，我拿到精粹确实已经很久了，

不过看了您的贴子，在notes里面找了一下自己的local数据库的地址，确实是在data文件夹下面，将其复制到nNotes.GETDATABASE("","")这句的第二个引号里面，就可以了，

不过还有一个问题，如果我想操纵lotus notes，就像操纵outlook一样，哪里有这种语法可以学习的，

比如我想批量导出指定邮件的附件到指定的文件夹，该怎么写代码，无从下手啊，

winland

QUOTE:

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

多谢版主关心，我拿到精粹确实已经很久了，

不过看了您的贴子，在notes里面找了一下自己的local数据库的地址，确实是在data文件夹下面，将其复制到nNotes.GETDATABASE("","")这句的第二个引号里面，就可以了，

不过还有一个问题，如果我想操纵lotus notes，就像操纵outlook一样，哪里有这种语法可以学习的，

比如我想批量导出指定邮件的附件到指定的文件夹，该怎么写代码，无从下手啊，

关于怎样操纵Lotus Notes，我一般是参考Lotus Notes的帮助文件，里面有介绍Lotus Script的，可以直接转换成VB语言来用。应该是Lotus Domino Designer *.* Help，Lotus服务器上一般可以找到这个帮助文件。

tonyibm

QUOTE:

以下是引用winland在2008-8-20 21:04:45的发言：

关于怎样操纵Lotus Notes，我一般是参考Lotus Notes的帮助文件，里面有介绍Lotus Script的，可以直接转换成VB语言来用。应该是Lotus Domino Designer *.* Help，Lotus服务器上一般可以找到这个帮助文件。

多谢，我找找看，

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

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