Solved

Lotus notes Assigned To property from vba

Posted on 2013-06-13
6
633 Views
Last Modified: 2013-12-18
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?
0
Comment
Question by:DCRAPACCESS
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
6 Comments
 
LVL 46

Accepted Solution

by:
Sjef Bosman earned 500 total points
ID: 39243945
Try this

dim s as string
s= doc.getitemvalue("AssignedTo")(0)

AssignedTo is not a property but a field (more correctly: an item), the methode getitemvalue always returns an array, and index 0 is the first value.

Some more of your code would be nice... Next time?
0
 

Author Comment

by:DCRAPACCESS
ID: 39244192
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

0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39244263
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/
0
Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

 

Author Comment

by:DCRAPACCESS
ID: 39244289
Found it :-)

getitemvalue("RESPONSIBLE")(0)

But you code really helped me!!!!
0
 

Author Closing Comment

by:DCRAPACCESS
ID: 39244294
You help me find the right way to get result i wanted!
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39244308
Splendid!
0

Featured Post

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

719 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question