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

swsk

QUOTE:

以下是引用winland在2008-8-22 22:05:30的发言：

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

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

多谢版主有问必答，我估计也挺难实现的，我自己先学习学习吧，不懂的再来请教。

呵呵，难道整个论坛里对Lotus感兴趣的只有我们三个么？

[此贴子已经被作者于2008-8-23 16:04:03编辑过]

winland

QUOTE:

以下是引用swsk在2008-8-23 15:46:32的发言：

多谢版主有问必答，我估计也挺难实现的，我自己先学习学习吧，不懂的再来请教。

呵呵，难道整个论坛里对Lotus感兴趣的只有我们三个么？

可能用Outlook做内部邮件系统的公司比较多些，毕竟Lotus复杂很多。。。

发现那个网址的程序是设置签名的内容用的。要另外找方法了。

tonyibm

QUOTE:

以下是引用winland在2008-8-23 19:54:33的发言：

可能用Outlook做内部邮件系统的公司比较多些，毕竟Lotus复杂很多。。。

发现那个网址的程序是设置签名的内容用的。要另外找方法了。

是啊，一般的公司可能都是用outlook了，

我想用outlook也是不太可能的了，因为自己开发的产品自己不支持那是不可能的，嘿嘿，

tonyibm

版主，又有问题了，我看别人的代码里面有这样的话，

If db.IsOpen = True Then
    Else
db.OPENMAIL
End If

说目的是如果邮件没有打开，则打开邮件，有个问题就是，运行后确实会打开邮件主界面，但是没有真正进到收到箱界面，

如何在指定用户名和密码之后，直接进入到收件箱界面，

swsk

QUOTE:

以下是引用tonyibm在2008-8-23 20:32:00的发言：

是啊，一般的公司可能都是用outlook了，

我想用outlook也是不太可能的了，因为自己开发的产品自己不支持那是不可能的，嘿嘿，

Tony你是IBM的么？呵呵，看来这里只有我们对Lotus感兴趣了。

swsk

QUOTE:

以下是引用winland在2008-8-23 19:54:33的发言：

可能用Outlook做内部邮件系统的公司比较多些，毕竟Lotus复杂很多。。。

发现那个网址的程序是设置签名的内容用的。要另外找方法了。

呵呵，我也看了看那个博客的内容，虽然没看多懂，但是也大概知道没办法帮到我了。估计这个应用在现阶段是很难实现了，不过已经很满足了。

我在Excelhome能学到通过VBA发Lotus邮件已经很牛叉了，非常感谢版主及Excelhome，继续学习。

tonyibm

QUOTE:

以下是引用swsk在2008-8-23 23:02:53的发言：

Tony你是IBM的么？呵呵，看来这里只有我们对Lotus感兴趣了。

呵呵，IBM的一个小老百姓，

tonyibm

QUOTE:

以下是引用tonyibm在2008-8-23 22:24:53的发言：

版主，又有问题了，我看别人的代码里面有这样的话，

If db.IsOpen = True Then
    Else
db.OPENMAIL
End If

说目的是如果邮件没有打开，则打开邮件，有个问题就是，运行后确实会打开邮件主界面，但是没有真正进到收到箱界面，

如何在指定用户名和密码之后，直接进入到收件箱界面，

版主，关于输入密码的问题，我在网上找到了相关的代码，运行以下程序之后，即使没有打开邮箱，也会弹出输入密码的提示框，输入密码后就可以发送邮件，而整个过程中自始至终都没有打开邮件，

Sub abb()

Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
Set Session = CreateObject("lotus.NotesSession")
Call Session.Initialize
Set Maildb = Session.GETDATABASE("", "D:\notes\data\mail3\tonyhf.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.REPLACEITEMVALUE("Form", "Memo")
Call MailDoc.REPLACEITEMVALUE("SendTo", "huangfeng8211@163.com")
Call MailDoc.REPLACEITEMVALUE("Subject", "Subject Text")
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
Call Body.APPENDTEXT("Body text here")
Call Body.ADDNEWLINE(2)
Call Body.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)
MailDoc.SAVEMESSAGEONSEND = True
Call MailDoc.REPLACEITEMVALUE("PostedDate", Now())
Call MailDoc.SEND(False)
Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing

MsgBox "发送成功!"

End Sub

但是有个问题，我想直接在代码中使用sendkeys的方法，在弹出提示框后，自动向框内输入密码，不用人工的进行输入，但是试了一下不行，不知道版主知不知道怎么弄，

winland

QUOTE:

以下是引用tonyibm在2008-8-24 15:01:27的发言：

版主，关于输入密码的问题，我在网上找到了相关的代码，运行以下程序之后，即使没有打开邮箱，也会弹出输入密码的提示框，输入密码后就可以发送邮件，而整个过程中自始至终都没有打开邮件，

Sub abb()

Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
Set Session = CreateObject("lotus.NotesSession")
Call Session.Initialize
Set Maildb = Session.GETDATABASE("", "D:\notes\data\mail3\tonyhf.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.REPLACEITEMVALUE("Form", "Memo")
Call MailDoc.REPLACEITEMVALUE("SendTo", "huangfeng8211@163.com")
Call MailDoc.REPLACEITEMVALUE("Subject", "Subject Text")
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
Call Body.APPENDTEXT("Body text here")
Call Body.ADDNEWLINE(2)
Call Body.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)
MailDoc.SAVEMESSAGEONSEND = True
Call MailDoc.REPLACEITEMVALUE("PostedDate", Now())
Call MailDoc.SEND(False)
Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing

MsgBox "发送成功!"

End Sub

但是有个问题，我想直接在代码中使用sendkeys的方法，在弹出提示框后，自动向框内输入密码，不用人工的进行输入，但是试了一下不行，不知道版主知不知道怎么弄，

这个代码在我的本本上用不了，可能是Notes因为不是安装版的原因，要到公司的电脑上试试才行。Notes的UI部分是不能通过COM或OLE来访问的，我估计这可能就是邮件界面没有显示的原因。

chenqqqq

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

斑主, 我还要导出邮件附件附件名怎么写呢?