请教在Excel中发送Notes邮件的问题,有源码供参考。
我按照希望电子出版社的开发人员手册上的一个例子搞的,一字不差呀,
大致是这样的建立个Excel文件,在里面放个按钮,单击按钮执行个宏,
如下:
Sub Button1.Click()
Dim session As Object
Dim db As Object
Dim doc As Object
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase(" ", " ")
Call db.OpenMail '在这一行总提示:
'运行时错误 7296
' the database object already
' open as c:\lotus\notes\data
Mycell = Sheet1.Cells(1, 4)
Set doc = db.createdocument
msg = "Mail has been sent :" & Date & " " & Time & Chr(10) & _
"the value in Cell D1[" & Mycell & _
"] is in the body of the message"
Call doc.replaceitemvalue("SentTo", "user")
Call doc.replaceitemvalue("Subject", "Excel message")
Call doc.replaceitemvalue("Body", msg)
Call doc.Send(False)
MsgBox doc.getitemvalue("Body")(0)
MsgBox session.UserName
Set session = Nothing
End Sub
问题点数:80、回复次数:2Top




