asked on

Lotus notes Assigned To property from vba

Hi Experts,

Is it possible to get the property called "Assigned to"?

We use this property in our department mailbox that we share and therefore assign mails to the one responsible for responding the mail.

An i would like to read this property when looping the inbox.

Is that possible?

ASKER CERTIFIED SOLUTION

Sjef Bosman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

DCRAPACCESS

ASKER

did not work, this is my code:

Dim stPath, EMBED_ATTACHMENT, RICHTEXT, sletmail, frafolder, tilfolder, filnavnet
 
 stPath = ""
 filnavnet = ""
 frafolder = "($inbox)"
 tilfolder = ""
 EMBED_ATTACHMENT = 1454
 RICHTEXT = 1
 sletmail = ""


  Dim noSession
  Dim noDatabase
  Dim noView
  Dim noDocument
  Dim noNextDocument
  Dim Today
  Dim text
  Dim suffix
  
 
  Dim vaItem
  Dim vaAttachment
 
  Set noSession = CreateObject("Notes.NotesSession")
  Set noDatabase = noSession.GETDATABASE("w19732/EJBY/DDB", "DEPTMAIL\3780R3780DP.nsf")
  Set noView = noDatabase.GetView(frafolder)
  Set noDocument = noView.GetFirstDocument
  Do Until noDocument Is Nothing
    Set noNextDocument = noView.GetNextDocument(noDocument)
    Debug.Print noDocument.getitemvalue("AssignedTo")(0)
    Set noDocument = noNextDocument
  Loop
  Set noNextDocument = Nothing
  Set noDocument = Nothing
  Set noView = Nothing
  Set noDatabase = Nothing
  Set noSession = Nothing

Open in new window

Sjef Bosman

Did you get some error message? Does it indicate a line where the execution stops? What if you run it in the debugger? Are you sure the code inside the loop of lines 29-33 is executed?

If you don't intend to use the UI classes, it should be better to use Lotus.NotesSession.
See also: http://www.ibm.com/developerworks/lotus/library/ls-COM_Access/

DCRAPACCESS

ASKER

Found it :-)

getitemvalue("RESPONSIBLE")(0)

But you code really helped me!!!!

DCRAPACCESS

ASKER

You help me find the right way to get result i wanted!

Sjef Bosman

Splendid!