troubleshooting Question

Lotus Script - Exporting Attachments and Folder Creation

Avatar of nftcadmins
nftcadminsFlag for Canada asked on
Lotus IBM
3 Comments1 Solution1286 ViewsLast Modified:
What I have is a database with many attachments with the same name. Some in the same document or some with the same name but in two different documents. What I'm trying to do is export all of the attachments into a seperate folder based on the value of the number field "FileNumber". If any attachments with the same name exist in the same document the file name is appended with a "1".

 When trying to create a variable to cast a file number into a string I get a Type Mismatch error.
Dim FileNumberString As String
FileNumberString = CStr(FileNumber)

Below is the entire script

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim nextdoc As NotesDocument
	Dim dirpath As String
	Dim view As NotesView
	Dim fullpath As String
	
	Set db = session.Currentdatabase
	Set view = db.GetView("All Documents")
	Set doc = view.Getfirstdocument
	
	Dim num As Integer
	dirpath = "D:\PlantEng"
	If (Dir$ (dirpath, 16)="") Then
		MkDir dirpath
	End If
	
	While Not doc Is Nothing
		Set nextdoc = view.getnextdocument(doc)
		
		'--Loop through all attachments in document and detach into D:\PlantEng
		Dim rtitem As Variant
		Set rtitem = doc.GetFirstItem("attachments")
		
		'--Get the unique file number attached to the document
		Dim FileNumber 
		Set FileNumber = doc.GetFirstItem("FileNumber")

		'--Create a variable to cast a file number into a string
		Dim FileNumberString As String
		FileNumberString = CStr(FileNumber)
		
		'--Create a variable to store the FileNumber as a folder
		Dim fileNumberFolder As String
		fileNumberFolder = dirpath + "\" + FileNumberString

		'--Create a new folder based on the file number
		MkDir fileNumberFolder


		'--if array of embedded objects exist them detach all attachments into D:\PlantEng
		If IsArray(rtitem.EmbeddedObjects) Then
			ForAll o In rtitem.EmbeddedObjects
				If(o.type = EMBED_ATTACHMENT) Then
					If o.name <> o.source Then
						fullpath = fileNumberFolder & "\" & o.source & +1
					Else
					fullpath = fileNumberFolder & "\"& o.source
					End If
					Call o.ExtractFile(fullpath)
				End If
			End ForAll
		End If
	Set doc = nextdoc	
	Wend
	End Sub

Open in new window

ASKER CERTIFIED SOLUTION
Sjef Bosman
Groupware Consultant

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 3 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros