Notes错误:无法在lotus notes中打开ID文件

Question

请谁来帮帮我。我使用Lotus Notes通过vb.net发送电子邮件，但在尝试运行时遇到以下错误。我已经添加了关于interop.lotus.dll和interop.Domino.dll的引用，但仍然是同一个错误。请指教..

Line 115:        If dsEmail.Tables(0).Rows.Count > 0 Then
Line 116:            **s.Initialize("abcde!")** 'ERROR in THIS LINE




Protected Sub btnSend_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.ServerClick
    Dim s As New Domino.NotesSession
    Dim db As Domino.NotesDatabase
    Dim doc As Domino.NotesDocument
    Dim mimeEntity As Domino.NotesMIMEEntity
    Dim mimeChild As Domino.NotesMIMEEntity
    Dim header As Domino.NotesMIMEHeader
    Dim stream As Domino.NotesStream
    Dim sendTo As String
    Dim connectionString As String = "Data Source=[hide];User ID=[hide];initial Catalog=[hide];Password=[hide]"
    Dim objConn As New SqlConnection(connectionString)
    objConn.Open()
    Dim dsEmail = New DataSet
    Dim CommTaskA As SqlCommand
    Dim AdapTaskA As SqlDataAdapter
    CommTaskA = New SqlCommand("select EMAILBLASTCCID, rtrim(ltrim(EMAILADDR)) EMAILADDR, SUBJECTEMAIL, EMAILTEMPLATE from [hide] where [MESSAGE_TIME] is NULL", objConn)
    CommTaskA.CommandTimeout = 180
    AdapTaskA = New SqlDataAdapter
    AdapTaskA.SelectCommand = CommTaskA
    AdapTaskA.Fill(dsEmail)
    AdapTaskA.Dispose()
    CommTaskA.Dispose()
    objConn.Close()
    If dsEmail.Tables(0).Rows.Count > 0 Then
        s.Initialize("abcde!")
         db = s.GetDatabase("[hide]", "[hide].nsf", False)
        subjectEmail = dsEmail.Tables(0).Rows(0)(2).ToString
        For x As Integer = 0 To dsEmail.Tables(0).Rows.Count - 1
            doc = db.CreateDocument()
            sendTo = dsEmail.Tables(0).Rows(x)(1).ToString
            doc.ReplaceItemValue("SendTo", dsEmail.Tables(0).Rows(x)(1))
            doc.ReplaceItemValue("Subject", dsEmail.Tables(0).Rows(x)(2))

            mimeEntity = doc.CreateMIMEEntity
            mimeChild = mimeEntity.CreateChildEntity
            header = mimeEntity.GetNthHeader("Content-Type")
            header.SetHeaderVal("multipart/related")

            stream = s.CreateStream
            stream.WriteText("<img src='" & dsEmail.Tables(0).Rows(x)(3) & "'>")

            mimeChild.SetContentFromText(stream, "text/html", Domino.MIME_ENCODING.ENC_NONE)
            stream.Close()

            doc.Send(False)
            objConn.Open()
            CommTaskA = New SqlCommand("update [ZITA].[DEV].[EMAILBLASTCC_test] set [MESSAGE_TIME] ='" & DateTime.Now.ToString & "'  where rtrim(ltrim(EMAILADDR)) = '" & sendTo & "'", objConn)
            CommTaskA.CommandTimeout = 180
            CommTaskA.ExecuteNonQuery()
            CommTaskA.Dispose()
            objConn.Close()
        Next


    End If
End Sub

​

​

Answer 1

感谢您的回复..我找到了问题的答案，因为用户帐户 Lotus Notes和我的IIS管理器是不同的。您必须使IIS Manager中的IIS Lotus Notes IBM和应用程序池标识使用相同的帐户运行。这对我很管用。谢谢

Answer 2

确保Windows环境变量PATH也指向C:\Users\adventina.nababan\AppData\Local\IBM\Notes\Data\。

有关如何执行此操作的更多说明，请查看问题"Adding directory to PATH Environment Variable in Windows“。