Read subject line of Lotus Notes email with VBA?

[LJA520]

Hello.

I'm trying to find out how to read the subject line of a Lotus Notes email through VBA.

I'm able to get to the point of view docs in a folder, but I'm trying get the subject line of the email.

Does anyone have sample code to loop through a folder and read the subject lines of each email??

Thanks in advance!!
LJA

 

[taupirho]

Something like the following should message out all the subject lines of the documents in your IN box

Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim vn As NotesViewNavigator
Dim e As NotesViewEntry
Dim doc As NotesDocument
Dim rtitem As Variant
Dim nit As NotesItem

Call s.Initialize("your_password_here")
Set db = s.GetDatabase("your_server_here", "your_nsf_file_here")
Set v = db.GetView("($Inbox)")
Set vn = v.CreateViewNav()


Set e = vn.GetFirstDocument()


' for each document in my inbox
Do While Not (e Is Nothing)

Set doc = e.Document
Set nit = doc.GetFirstItem("subject")
msgbox(nit.values(0))
Set e = vn.GetNextDocument(e)

loop




Cheers