Solved

Lotus notes Assigned To property from vba

Posted on 2013-06-13
6
629 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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

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

PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Lotus Domino 9.0.1 Reply to All issue 4 37
Pass Variables from Vba access to SQL Query 1 33
Access Query Top 20 from subquery 11 45
Launch Outlook minimized 6 34
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

730 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