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

があまりにもC:\Users\adventina.nababan\AppData\Local\IBM\Notes\Data\に、Windowsの環境変数PATHポイントを確認してくださいアドバイスをしてください。

これを行う方法の詳細については、質問「Adding directory to PATH Environment Variable in Windows」をご覧ください。

Answer 2

はユーザーアカウント Lotus Notesと私のIISマネージャは、異なるているので..私は答え に問題を発見し、すべての応答をありがとう。 ロータスノーツIBMとIISマネージャーのアプリケーションプールIDを同じアカウントで実行する必要があります。 それは私のために働く。ありがとうございます