Open method

This agent opens a file as a stream for reading. The user specifies the name of the file but not the extension which is .txt. The agent uses the file name for the content of the Subject item.
Sub Initialize
  Dim session As NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim stream As NotesStream
  Dim pathname As String
  pathname = "c:\StreamFiles\"
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  Set stream = session.CreateStream
  REM Use name of text file as subject
  subject$ = Inputbox$("Name of file")
  pathname = pathname & subject$ & ".txt"
  If Not stream.Open(pathname, "ASCII") Then
    Messagebox pathname,, "Open failed"
    Exit Sub
  End If
  If stream.Bytes = 0 Then
    Messagebox pathname,, "File has no content"
    Exit Sub
  End If
  Set doc = New NotesDocument(db)
  Call doc.ReplaceItemValue("Form", "Main Topic")
  Call doc.ReplaceItemValue("Subject", subject$)
  Call doc.ReplaceItemValue("Body", stream.ReadText())
  Call stream.Close
  Call doc.save(True, True)
End Sub

转载于:https://www.cnblogs.com/xuxu7325/archive/2006/08/30/490341.html