Attach file from file system

HCL Domino Domino Forum
1

Hi ALL,

I need to do some interaction from my Notes Code and my File System (Windows NT)

There goes the doubt (jack the ripper style)

1 - The code locate the user on the NAB

2 - Get the employeeID

3 - Map a network drive that contains all user ID files

4 - Get this file and attach into a mail message

5 - Send this mail message to the user.

The problem is the step four (4)… i don’t know who to locate the requested ID file in the file system. Becouse if the file do not exists i need to search in other repository.

Thanks in advance.

George Araujo

2

Subject: Attach file from file system

i beleive you can you to dir$ in Lotus script or even you can open the file in script and if you get an error, then change the directory to the other place to look.

john

3

Subject: Attach file from file system

Well there are several ways that you could do this and which way to go depends on a lot of different things. If you allow operator input then just use a dialogbox and call it from a LS function:

Dim Files as Variant

Files = WS.OpenFileDialog(False, “Select ID File”, “.ID”)

.

.

.

Call rtitem.EmbedObject( 1454, “”, Files(0))

If you know the ID name then you could the whole thing by a single agent, look in the help under File Handling in LS. You can browse the FIle System and search and retrieve a specific file.

One major caveat "If it is a scheduled agent the ID signing the agent must have the rights to run an UnRestricted Agent which allows it access to the filing system

4

Subject: RE: Attach file from file system

Thanks a lot, Bill

Worked fine using the dir$ function there is a bit of my code

…

	curDoc.mat = docNames.employeeID(0)

	'mapeando unidade

	mapeia = Shell("NET USE z: \\server\ids$ /USER:userid pass ",6)

	completo = "z:\"&docNames.employeeID(0)&"*"

	Print completo

	i = 0

	tam = 0

	path = Dir(completo,0)

	Do While path <> ""

		tam = tam+1

		path = Dir$()

	Loop

	

	Redim total(tam) As String

	path = Dir(completo,0)

	Do While path <> ""

		total(i) = path

		i = i+1

		path = Dir$()

	Loop

	

	curDoc.vetor = total

	Call uidoc.Refresh

	deleta = Shell("net use z: /DELETE /yes" ,6)

…

Translating…

I’m searching the user ID file into the mapped folder… if found it populate a vector, in cases of users that have his Common Name changed.

So, another doubt came up… i can find files by his creation date on the file system?

Regards and thanks again

George Araujo