Dim session As Object Dim mailDb As Object Dim view As Object Dim doc As Object Dim MailServer As String Dim MailDbPath As String MailServer = "myMailServer" MailDbPath = "myDBPath" Dim i As Integer Set session = CreateObject("Notes.NotesSession") Set mailDb = session.GETDATABASE(MailServer, MailDbPath$) If mailDb.isOpen = False Then mailDb.OPENMAIL Set view = mailDb.GetView("ReplyFolder") Set doc = view.GetFirstDocument Do While Not (doc Is Nothing) Dim thisSubject As String Dim thisFrom As String Dim thisDate As Date Dim thisbody As String thisDate = doc.Created If doc.GetItemValue("Form")(0) = "Reply" Then thisSubject = doc.GetItemValue("Subject")(0) If InStr(1, thisSubject, "*** RESPONSE REQUIRED ***") > 0 Then thisFrom = doc.GetItemValue("From")(0) thisbody = doc.GetItemValue("Body")(0)'<<< This is the plain-text body of the message. ' html tags are stripped out. ' I get text from <input type='text'> elements ' I do not get text from <select> elements End If End If Set doc = view.GetNextDocument(doc) i = i + 1 If i > 1000 Then Exit Do Loop
Discuss This Question: 1  Reply