I received an error message shown below on the Server Domino Console:

Error locating a Domino Directory entry for certifier /OU=HQ /O=ASIAN: Entry not found in index

Any Ideas on how to rectify this error message as to not shown on the server console anymore??

Would appreciate for your kind assistance

Many Thanks..

pick= ws.PickListStrings( PICKLIST_CUSTOM,
False,db.server,db.FilePath,”By number”, “Liste des joureurs”,
“Choix”,2)

How to put the sign of selection on a document of the view that I have the key value with which I can look for the document ???

OK we have a Time keeping system that we used in the past. We have a audit requirement and would like to automate the collection of information needed. Typically I would open the database, select the view, select the documents and print to PDF from form typlate.

I am not the database designer but I now know more than everyone in my company which is about what I have told you above .

My end goal is to extract each document as a PDF to a directory. I have attempted this with a LotusScript Agent doing a UI.Print to a CutePDF Writer printer but I can not set the file name. Note I am doing Keybd_events to navigate the menu but once I hit the ok button I can’t send any more to it for the file name prompt.

code below… I am sure its a hack of a script… I have no training or prior knowledge except a previous script that I had help on from this forum.

There is 73,165 items in the database, of which PDF’s needed for 47,245….

Please tell me someone has something… price needs to be FREE…

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim collection As NotesDocumentCollection
	Dim doc As NotesDocument 
	Dim vw As NotesView
	Dim frm As NotesForm
	
	Set db = session.CurrentDatabase
	Set collection = db.AllDocuments
	Set doc = collection.GetFirstDocument() 
	
	Dim uiworkspace As New NotesUIWorkspace
	Dim uidb As NotesUIDatabase
	Dim uivw As NotesUIView
	
	Set uivw = uiworkspace.CurrentView
	Msgbox ("Set to CutePDF and Cancel")
	Call uivw.Print
	
	Dim Form As String
	Dim fDate As String
	Dim fDept As String
	Dim fName As String
	Dim fEmpl As String
	Dim fType As String
	Dim FileName As String
	
	Dim Counter As Long	
	Dim CountDirect As Long
	Dim CountAll As Long
	Dim CountIndirect As Long
	
	Counter = 0
	CountDirect = 0
	CountAll = 0
	CountIndirect = 0
	
	While Not(doc Is Nothing)  
		If Counter < 300 Then
			Forall o In doc.Items
				If Isarray(o.values) Then
					Form = Cstr(o.values(0))
					If Cstr(o.values(0)) = "Time Card" Or Cstr(o.values(0)) = "Time Card for PWS"  Then
						Form = Cstr(o.values(0))
						Forall oo In doc.Items
							If Cstr(oo.Name) = "EmployeeNumber" Then
								fEmpl = Cstr(oo.values(0))
							Elseif Cstr(oo.Name) = "DepartmentNumber" Then
								fDept = Cstr(oo.values(0))
							Elseif Cstr(oo.Name) = "WeekEnding" Then
								fDate = Cstr(oo.values(0))
							Elseif Cstr(oo.Name) = "Employee" Then
								fName = Cstr(oo.values(0))
							Elseif Cstr(oo.Name) = "Type" Then
								fType = Cstr(oo.values(0))
							End If
						End Forall
						CountAll = CountAll +1
					'uivw.SelectDocument(doc)
							'Print To PDF Here.
						If fType = "INDX" Then
							CountIndirect = CountIndirect +1
						End If
						If fType = "PHX" Then
							CountDirect = CountDirect +1
							'Msgbox(fName + " Printing Direct")
%REM							
							Sleep(.2)
							keybd_event 18,0,0,0 ' Alt down
							keybd_event 66,0,0,0 ' B down
							keybd_event 66,0,2,0 ' B up
							keybd_event 18,0,2,0 ' Alt up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							
							keybd_event 39,0,0,0 ' RightArrow down
							keybd_event 39,0,2,0 ' RightArrow up
							
							keybd_event 39,0,0,0 ' RightArrow down
							keybd_event 39,0,2,0 ' RightArrow up
							
							keybd_event 18,0,0,0 ' Alt down
							keybd_event 70,0,0,0 ' F down
							keybd_event 70,0,2,0 ' F up
							keybd_event 18,0,2,0 ' Alt up		
							
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							keybd_event 9,0,0,0 ' Tab down
							keybd_event 9,0,2,0 ' Tab up
							
							keybd_event 13,0,0,0 ' enter key down
							keybd_event 13,0,2,0 ' enter key up
	
                    'will stop here... will not type F in the FileName Prompt			

                     keybd_event 70,0,0,0 ' F down
							keybd_event 70,0,2,0 ' F up
							
							uivw.Print
						End If		
						
						fDate = strreplace("/","-",fDate)
						FileName = fDate + "_" + fDept + "_"+ fEmpl + "_" + fName + ".PDF"
						Msgbox (FileName)
%END REM
							
							
							
						End If
					Else
					'Form = Cstr(o.values)
						If Cstr(o.values) = "Time Card" Or Cstr(o.values) = "Time Card for PWS" Then
					'	Form = Cstr(o.values)
					     'Need To Handle Time Card If This Gets Triggered
							Msgbox ("Need To Handle Time Card If This Gets Triggered")
						End If
					End If
				End Forall
				Counter = Counter +1
	'Else
			'Msgbox("CountDirect = " + Cstr(CountDirect) + Chr(10) + Chr(13) + "CountIndirect = "+Cstr(CountIndirect)+Chr(10)+Chr(13)+"CountAll = "+Cstr(CountAll))												
			'End
			End If
		'IF  Form = "Time Card" | Form = "Time Card for PWS"
			Print "CountDirect = " + Cstr(CountDirect) + " CountIndirect = "+Cstr(CountIndirect)+" CountAll = "+Cstr(CountAll)+" Counter = "+Cstr(Counter)
			Set doc = collection.GetNextDocument(doc)
		Wend
		Msgbox("CountDirect = " + Cstr(CountDirect) + Chr(10) + Chr(13) + "CountIndirect = "+Cstr(CountIndirect)+Chr(10)+Chr(13)+"CountAll = "+Cstr(CountAll))
End Sub

I would dearly love to know how this can be accomplished. Please help.

Thanks.