Question

我正在寻找一种启动Lotus Notes并从vb.net项目控制其利用率的方法。

通过控制我的意思是像窗口位置，关闭活动文档和其他东西。

但主要目标是开始一个会议。

我很困惑，因为我尝试使用Lotus Notes自动化类dll而且没有任何效果......

如果有人对我有一些提示，我会慷慨解囊！谢谢！（顺便说一句，抱歉英语不是我的主要语言）

Answer 1

在Notes中，会话是后端对象，而不是UI对象。您描述的内容（更改窗口位置，关闭活动窗口等）是UI功能。

Notes支持COM，您可以完全访问所有后端类。但是您无权访问UI类。

为什么要自动化实际的Notes客户端？如果您描述了您最终想要做的事情，也许我们可以提供帮助。我确信解决你要做的事情的正确方法是使用后端类......

Answer 2

我找到了启动Notes的方法，我需要使用进程：

 Private Sub StartNotes()
    Dim p As Process = New Process()

    p.StartInfo.FileName = "C:\Program Files\Notes\notes.exe"
    p.StartInfo.Arguments = ""

    p.Start()

  End Sub

我在使用lotus和domino dll的后端类后自动化它

Answer 3

Sub Send_Email_via_Lotus_Notes()
Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
'Start a session of Lotus Notes
    Set Session = CreateObject("Lotus.NotesSession")
'This line prompts for password of current ID noted in Notes.INI
    Call Session.Initialize
'or use below to provide password of the current ID (to avoid Password prompt)
    'Call Session.Initialize("<password>")
'Open the Mail Database of your Lotus Notes
    Set Maildb = Session.GETDATABASE("", "D:\Notes\data\Mail\eXceLiTems.nsf")
    If Not Maildb.IsOpen = True Then Call Maildb.Open
'Create the Mail Document
    Set MailDoc = Maildb.CREATEDOCUMENT
    Call MailDoc.REPLACEITEMVALUE("Form", "Memo")
'Set the Recipient of the mail
    Call MailDoc.REPLACEITEMVALUE("SendTo", "Ashish Jain")
'Set subject of the mail
    Call MailDoc.REPLACEITEMVALUE("Subject", "Subject Text")
'Create and set the Body content of the mail
    Set Body = MailDoc.CREATERICHTEXTITEM("Body")
    Call Body.APPENDTEXT("Body text here")
'Example to create an attachment (optional)
    Call Body.ADDNEWLINE(2)
    Call Body.EMBEDOBJECT(1454, "", "C:\dummy.txt", "Attachment")
'Example to save the message (optional) in Sent items
    MailDoc.SAVEMESSAGEONSEND = True
'Send the document
'Gets the mail to appear in the Sent items folder
    Call MailDoc.REPLACEITEMVALUE("PostedDate", Now())
    Call MailDoc.SEND(False)
'Clean Up the Object variables - Recover memory
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set Body = Nothing
    Set Session = Nothing
End Sub

莲花笔记开始会话

3 个答案: