This tip shows you how to import multiple images into a set of selected documents from a folder.
Write the code given below in an agent and call the agent. In this example the image whose file name is the same as that of the name field in the document is imported. The name field can be changed to any field in the document.
Sub Initialize Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim nme As Variant Dim doc As NotesDocument Dim view As NotesUIView Dim view1 As notesview Dim m As Integer Set db = session.CurrentDatabase Set view = workspace.CurrentView Set view1 = db.GetView( view.viewname ) Set collection = db.UnprocessedDocuments Filename1=workspace.openfiledialog(False) If Isempty(Filename1) Then Exit Sub actfilename=Strleftback( Filename1(0),"") Set doc = collection.GetFirstDocument While Not Doc Is Nothing nme = doc.Name(0) filename =actfilename &"" & nme &".jpg" Set uidoc = workspace. EditDocument( True, doc ) ' Call uidoc.GotoField("Picture") Call uidoc.Import("JPEG Image", filename) Call uidoc.Save Call uidoc.Close Set doc = collection. getnextdocument (doc) m=m+1 Wend End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Pamela. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.