Solved

Agent looking for creation date of documents and returning a total

Posted on 2007-03-19
1
168 Views
Last Modified: 2013-12-18
I need a agent that will parse through all documents in a database and give me a count of the ones created in the year 2006.  If I did not create a date field on my form, is there a way to tell when the document was created?
0
Comment
Question by:Jaziar
1 Comment
 
LVL 19

Accepted Solution

by:
madheeswar earned 250 total points
ID: 18748099
try the below code and change it according to ur needs:
Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim view As NotesView
      Dim doc As NotesDocument
      Set db = session.CurrentDatabase
      
      Set view = db.GetView("vue")
      Set doc = view.GetFirstDocument
      While Not doc Is Nothing
            If doc.Hasitem("YourDatefield") Then
                  If Year(doc.YourDatefield(0))="2006" Then
                  'Do the need full
                  End If
            Elseif  Year(doc.Created) = "2006" Then 'Created will give the Date of creation of the document. Or u can use Modified aswell.
                  'do the need full
                  
            End If
            Set doc=view.GetNextDocument(doc)
      Wend
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Modify The View Selection Criterion through a Button 10 26
Lotus Notes in Windows 8 Appearence Issue 15 740
Recent Contacts - Lotus Notes 10 625
IBM Enterprise Integrator - ZID File 1 169
For users on the Lotus Notes 8 Standard client, this article provides information on checking the Java Heap size and adjusting it to half of your system RAM in attempt to get the Lotus Notes 8.x Standard client to run faster.  I've had to exercise t…
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

920 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now