initialize

Lotus中NotesSession为什么不能调用Initialize

方法

如题，本人在EXCEL的VBA中准备调用notes，代码如下

subTest（）

dimnoSessionasobject

SetnoSession=CreateObject("ession")

lize("password")

endsub

但是老提示说没有Initialize这个方法，这是为什么？帮助里面是有这个方法的，

而我使用这个方法是因为在Notes客户端在闲置超过一定时间后自动锁屏，不想在Notes

界面输入密码，而是直接在VBA的代码内置了密码，使得代码能执行下去。

但是Session的其他方法调用没有问题，就这个方法会出现问题，如果这个问题无法解决，

那么还是需要从notes客户端开始输入密码的话，就没有通过EXCEL发送notes邮件的必

要了。

你有没有将COM引入到工程中。

我就是这样用的。你需要引入的。

我用的

ImportsDomino

PublicssionAsNotesSession

ssion=NewNotesSession

Ifpassword=""Then

lize()

El

lize(password)

EndIf

你现在的错误是运行时报的，相关COM插件一般都需要在工程中事先引用进来。



想实现用EXCELVBA把自己做附件通过NOTES发送出去，在用楼上的办法后解决了，不

过现在出现另外一个问题，那就是我Create一个Document后，要添加的属性全部无法实

现赋值，均报属性错误，这个在Notes下这样赋值是没有问题的。Databa那边没有问题

的，我用的服务器名称和自己邮箱的数据库名称，到CreateDocument都没有问题，问题

就在于无法把这个Document发送出去，而Notes里面是有Send这个方法的。或者我这样

做无法实现？而在吧Notes的哪些名称全部改为DimSSasObject后即不给于明确的类型，

就可以发送出去，但是无法使用Initialize这个方法、

SubSendbyNotes()

DimSSAsNotesSession

DimDBAsNotesDataba

DimNotesDocAsNotesDocument

SetSS=NewNotesSession

lize("密码")

SetDB=aba("","")

=IL

SetNotesDoc=Document

'以下为会出现错误提示代码

WithNotesDoc

.Form="Memo"

.SendTo=ox("","收件人邮箱地址","")

.Subject=MailSubject

.SaveMessageOnSend=True

.PostedDate=Now().Send0

EndWith

err:&Chr(10)&ption'显示错误的描述

EndSub



使用eItemValue(域名，域值)的方法进行赋值。

eItemValue("Form","Memo")

eItemValue("SendTo",ox("","收件人邮箱地址",""))

eItemValue("Subject","MailSubject")eItemValue("PostedDate",

Now())(Fal)



eItemValue("Form","Memo")

eItemValue("SendTo",ox("","收件人邮箱地址",""))

eItemValue("Subject","MailSubject")

eItemValue("PostedDate",Now())

(Fal)