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

winland

QUOTE:

以下是引用swsk在2008-8-21 17:13:58的发言：

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

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

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

nDcoument.SAVEMESSAGEONSEND = True这个语句在我这里运行也是可以的。我也是英文系统。如果你去掉这个语句的话，发出去的邮件有没有在Send里保存？你的Notes是什么R5还是R6的？

winland

QUOTE:

以下是引用tonyibm在2008-8-21 11:24:37的发言：
版主，还有一个问题，能否将附件所对应的发件人，主题，接收时间，日期也一起导出来，多谢，

使用下面的函数可以获得该邮件的一些信息，这些信息可以对邮件按右键从Document Properties对话框中找到。

Debug.Print aDocument.getfirstitem("From").Text          'Sender
Debug.Print aDocument.getfirstitem("Subject").Text          'Subject
Debug.Print aDocument.getfirstitem("delivereddate").Text    'Received time
Debug.Print aDocument.getfirstitem("posteddate").Text       'Send time

swsk

QUOTE:

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

nDcoument.SAVEMESSAGEONSEND = True这个语句在我这里运行也是可以的。我也是英文系统。如果你去掉这个语句的话，发出去的邮件有没有在Send里保存？你的Notes是什么R5还是R6的？

我的Notes是7.0的，用楼主的代码就可以用保存邮件那句，用您书里的代码就不可以，实在不理解哪里出错。

另外公司做了一个个性签名版面，是一个HTML文件，公司所有人发邮件都是一个模子的签名档，请教版主不知道在宏代码里是否也可以引用。

tonyibm

QUOTE:

以下是引用winland在2008-8-21 18:06:47的发言：

使用下面的函数可以获得该邮件的一些信息，这些信息可以对邮件按右键从Document Properties对话框中找到。

Debug.Print aDocument.getfirstitem("From").Text          'Sender
Debug.Print aDocument.getfirstitem("Subject").Text          'Subject
Debug.Print aDocument.getfirstitem("delivereddate").Text    'Received time
Debug.Print aDocument.getfirstitem("posteddate").Text       'Send time

多谢版主的帮助，有一个问题，

在发送邮件的时候，有这样一句，

nodocument.postdate = now()

有一点不太明白，既然这个postdate就是发送的时间，难道还可以自由设置吗？

winland

QUOTE:

以下是引用tonyibm在2008-8-21 23:47:13的发言：

多谢版主的帮助，有一个问题，

在发送邮件的时候，有这样一句，

nodocument.postdate = now()

有一点不太明白，既然这个postdate就是发送的时间，难道还可以自由设置吗？

这个属性还真的有点意思，不知道是不是可以设置一个比当前早的时间？

winland

QUOTE:

以下是引用swsk在2008-8-21 21:49:10的发言：

我的Notes是7.0的，用楼主的代码就可以用保存邮件那句，用您书里的代码就不可以，实在不理解哪里出错。

另外公司做了一个个性签名版面，是一个HTML文件，公司所有人发邮件都是一个模子的签名档，请教版主不知道在宏代码里是否也可以引用。

呵呵，我们还在用Notes6.0，不知道是版本的区别还是Notes程序默认设置的区别。我这里使用的话没有这一句代码就不会保存发出的邮件。

这个HTML文件签名，用VBA来实现还挺难的，帮助里也没什么相关的内容。也Google不到什么相关的内容。貌似这个网址http://www.lotusgeek.com/LotusGeek/LotusGeekBlog.nsf/D6Plinks/ROLR-6M3LX9中介绍的方法可行，先研究研究看。

tonyibm

QUOTE:

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

这个属性还真的有点意思，不知道是不是可以设置一个比当前早的时间？

多谢版主的回复，不好意思，又有问题，

在您上面给出的导附件的代码中，是导出收件箱的，写法是这样，Set aview = aDataBase.GETVIEW("($inbox)")

那如果我要导出我自己新建的子文件夹下面的邮件的附件，语句该怎么写，我试了几种写法，都不对，

比如我有一个folder文件夹，下面有一个unprocessed子文件夹，该怎么写，

winland

QUOTE:

以下是引用tonyibm在2008-8-23 8:25:42的发言：

多谢版主的回复，不好意思，又有问题，

在您上面给出的导附件的代码中，是导出收件箱的，写法是这样，Set aview = aDataBase.GETVIEW("($inbox)")

那如果我要导出我自己新建的子文件夹下面的邮件的附件，语句该怎么写，我试了几种写法，都不对，

比如我有一个folder文件夹，下面有一个unprocessed子文件夹，该怎么写，

这个直接使用Set aView = aDataBase.GetView("unprocessed")就可以了。

另外下面给一个枚举所有Folder的代码给你参考参考。

Sub GetAllViews()
    Dim aNotes
    Dim aDataBase
    Dim aView
    Dim j As Integer
   
    Set aNotes = CreateObject("Notes.NotesSession")
    Set aDataBase = aNotes.CurrentDatabase
    j = 1
    For Each aView In aDataBase.views
       If aView.IsFolder Then
            Cells(j, 1) = aView.Name
            Cells(j, 2) = aView.IsFolder
            j = j + 1
        End If
    Next
    Set aNotes = Nothing
    Set aDataBase = Nothing
    Set aView = Nothing
End Sub

tonyibm

QUOTE:

以下是引用winland在2008-8-23 10:32:34的发言：

这个直接使用Set aView = aDataBase.GetView("unprocessed")就可以了。

另外下面给一个枚举所有Folder的代码给你参考参考。

Sub GetAllViews()
    Dim aNotes
    Dim aDataBase
    Dim aView
    Dim j As Integer
   
    Set aNotes = CreateObject("Notes.NotesSession")
    Set aDataBase = aNotes.CurrentDatabase
    j = 1
    For Each aView In aDataBase.views
       If aView.IsFolder Then
            Cells(j, 1) = aView.Name
            Cells(j, 2) = aView.IsFolder
            j = j + 1
        End If
    Next
    Set aNotes = Nothing
    Set aDataBase = Nothing
    Set aView = Nothing
End Sub

多谢版主回复得这么快，

我看了lotus notes的帮助，也在google上面找了一些资料，但是还是觉得有限，嘿嘿，

有问题再请教版主，再次感谢版主的无私！！

[此贴子已经被作者于2008-8-23 10:50:27编辑过]

winland

QUOTE:

以下是引用tonyibm在2008-8-23 10:47:17的发言：

多谢版主回复得这么快，

我看了lotus notes的帮助，也在google上面找了一些资料，但是还是觉得有限，嘿嘿，

有问题再请教版主，再次感谢版主的无私！！

以前刚知道可以用VBA操纵Notes时，尝试摸索着写了一些代码，例如枚举邮件、枚举视图、回复指定邮件、备份邮件等等，所以像这个枚举文件夹的代码是现成的。。。