Lotus中NotesSession为什么不能调用Initialize方法

《Lotus中NotesSession为什么不能调用Initialize方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Lotus中NotesSession为什么不能调用Initialize方法如题，本人在EXCEL的VBA中准备调用notes，代码如下subTest（）  dimnoSessionasobject     SetnoSession=CreateObject("Notes.NotesSession")  CallnoSession.Initialize("password")endsub但是老提示说没有Initialize这个方法，这是为什么？帮助里面是有这个方法的，而我使用这个方法是因为在Notes客户端在闲置

2、超过一定时间后自动锁屏，不想在Notes界面输入密码，而是直接在VBA的代码内置了密码，使得代码能执行下去。但是Session的其他方法调用没有问题，就这个方法会出现问题，如果这个问题无法解决，那么还是需要从notes客户端开始输入密码的话，就没有通过EXCEL发送notes邮件的必要了。你有没有将COM引入到工程中。我就是这样用的。你需要引入的。我用的VB.NETImportsDominoPublicsessionAsNotesSessionsession=NewNotesSessionIfpassword=

3、""Then      session.Initialize()  Else    session.Initialize(password)EndIf你现在的错误是运行时报的，相关COM插件一般都需要在工程中事先引用进来。·　想实现用EXCELVBA把自己做附件通过NOTES发送出去，在用楼上的办法后解决了，不过现在出现另外一个问题，那就是我Create一个Document后，要添加的属性全部无法实现赋值，均报属性错误，这个在Notes下这样赋值是没有问题的。Database那边没有问题的，我用的服务器名称和自

4、己邮箱的数据库名称，到CreateDocument都没有问题，问题就在于无法把这个Document发送出去，而Notes里面是有Send这个方法的。或者我这样做无法实现？而在吧Notes的哪些名称全部改为DimSSasObject后即不给于明确的类型，就可以发送出去，但是无法使用Initialize这个方法、SubSendbyNotes()  DimSS  AsNotesSessionDimDB  AsNotesDatabase  DimNotesDoc  AsNotesDocument      SetSS=

5、NewNotesSession  CallSS.Initialize("密码")  SetDB=SS.GetDatabase("","")  IfDB.IsOpen=FalseThenDB.OPENMAIL  SetNotesDoc=DB.CreateDocument  '以下为会出现错误提示代码  WithNotesDoc    .Form="Memo"    .SendTo=Application.InputBox("","收件人邮箱地址","")          .Subject=MailSubject

6、  .SaveMessageOnSend=True          .PostedDate=Now()      .Send0  EndWitherr:    MsgBoxerr.Number&Chr(10)&err.Description  '显示错误的描述EndSub·使用NotesDocument.ReplaceItemValue(域名，域值)的方法进行赋值。NotesDoc.ReplaceItemValue("Form","Memo")NotesDoc.ReplaceItemValue("SendTo

7、",Application.InputBox("","收件人邮箱地址",""))NotesDoc.ReplaceItemValue("Subject","MailSubject")NotesDoc.ReplaceItemValue("PostedDate",Now())CallNotesDoc.Send(False)·NotesDoc.ReplaceItemValue("Form","Memo")NotesDoc.ReplaceItemValue("SendTo",Application.InputBox(""

8、,"收件人邮箱地址",""))NotesDoc.ReplaceItemValue("Subject","MailSubject")NotesDoc.ReplaceItemValue("PostedDate",Now())CallNotesDoc.Send(False)