'Paste this into the body of the new agent Iniialize section


	'Load Session Slides to the LS session database
	Dim sess As New notessession
	Dim thisdb As notesdatabase
	Dim view As NotesView
	Dim filepath As String
	
	On Error Goto errors
	
	Set thisdb = sess.currentdatabase
	Set view = thisdb.GetView("BySessionID")
	filepath = "C:\unzip\Lotusphere 2010\"  ' <<---  Chanjge this to your download location
	Dim d As NotesDocument
	Set d = view.GetFirstDocument
	Dim needsave As Boolean
	
	While Not(d Is Nothing)
		Print "trying to load slides to " & d.sessionid(0)
		pathName$ =  filepath & d.sessionID(0) & "*.*"
		fileName$ = Dir$(pathName$, 0) 'get the first file for this session
		Dim rt As New NotesRichTextItem(d, "Resources")
		Do While fileName$ <> "" 'in case there are multiple files
			Print fileName$
			
			Call rt.EmbedObject(1454,"",filepath & filename$)
			
			needsave = True 'cos we attached something
			fileName$ = Dir$() 'any more files for this session?
		Loop
		d.hasresourcelink = "Yes" 'fires the form hidewhen and the view icon to show there are resources added
		If needsave Then Call d.save(True, False)
		Set d = view.GetNextDocument(d)
		needsave = False
	Wend
	
	Exit Sub
errors:
	Messagebox "Error " & Error() & " " & Err() & " at " & Erl() & ", sorry", 48,"Error..."