Replies

Kevin,
I think it best I outline more specifically whats happenning.
1) From Word I do a search of all files in a nominated folder. Then I load each filename into an array.
2) In Access I have a list of file types (extensions). From Word I read this list at the start (once) and populate an array – I now have an array of extensions that I want to learn more about.
3) For each file found I test using a loop against the valus found in (2). If there is a match then get some properties, If not then move onto the next.

Essentially, I wanted to see if there was a more efficient way to do step (3) e.g. rather than doing a loop (until found or EOF), use a single statement, maybe like MATCH in Excel 97. In english this would be – If filefound has a MATCH in current list then TRUE else FALSE.

If I adopt the the initial reply by jscher2000 I would not bother reading the list from Access but testing each file found using a filter query against the database. While that would work, I am not sure about the performance implications especially if a number of people are doing this at once.

I hope that better clarifies the process.

thanks,
otk

rory,
Tks for feedback, pls see reply to Kevin

otk

Thanks jscher2000 , I’ll investigate.

otk

jscher2000,
OK, that approaches it from the other angle and should work – be interesting what the overhead doing it this way would be i.e. would be using query many times as opposed to reading all values at start and cycling through them…as initially posted.

I may not have my terms right but I was looking to see if an “array variable” could be populated with the values and be tested something like.

testtext=”A”
if testtext IN Array(“A”,”B”,”C”)

Where,
“A”,”B”,”C” are the values read from the database
IN is a term used just to illustrate a union type function.

In the end if performance is not an issue then your suggestion of turning it around will suit me perfectly.

Thanks,
otk

Ignore my previous post. That structure (placing .vsd converted .htms in their own dir) will not in fact work either…as the hyperlink base value is lost irrespective of whether you set it or not. …it is lost in the conversion.

So its worst than I thought.

In fact from what I can gather , relative hyperlinks will only work if,
1) You put all the visio pages in ONE .vsd file and save as htm (this conversion will resolve the same file names issue)
2) Ensure all the .doc and the files in (1) are in the same dir. And .docs in nested dirs will not work.

Other things I have found if you want link between the visio pages (in one file).
1) If you set the link to a page (which you can rename if you choose) it will work.
2) While you can link to a button on a page, it will only work when navigating in .vsd format. The link wont work at all when the file is converted. Remove the button reference i.e. leave just the page and within .htm it fine.

So as far as I can tell if you want to link in relative mode,
1) between visio files in .htm mode.
2) viso to word and word to visio

You need to,
1) have them all your viso pages in one file
2) Any linking between the viso pages is restricted to a page level only.
3) Any word docs have to be in the same dir as the .htm file

Seems overly restricting to me.

otk

You share my frustrations of what I consider to be a catch 22 situation if you want “objects” in visio .vsd files, saved as htm files to link to word .doc files, using relative links, all sitting in the same parent dir.

1) When you save a .vsd in .htm there are a number of supporting files created. Sometimes some of the supporting filenames have the same filename between multiple .vsd conversions. That being the case you have to save each .vsd to .htm conversion in its own directory. Herein lies the catch 22.

By saving each .vsd as .htm in its own dir the relative link path becomes incorrect and furthermore does not follow the “hyperlink base” setting if you have changed it in the .vsd file. This value appears to be lost in the conversion and as result you will onl ybe able to link to word files that are in the same dir as the original .vsd file

So a workable scenario is placing all the .doc and .vsd files in the same dir, creating a separate dir for each .vsd file and saving the .htm there.

c:maindoc1.doc
c:maindoc2.doc
c:mainvisio1.vsd (containg objects that are relatively linked to doc1 and doc 2)
c:mainvisio2.vsd (containg objects that are relatively linked to doc1 and doc 2)
c:mainvisio1htmvisio1.htm
c:mainvisio2tmvisio2.htm

Its not ideal to have everything in the same dir especially if you have a lot if files, but beggers cant be choosers.

Note : you could also place a link from the Word .doc files to cross reference the visio files but with the following caveats,
In a single page viso file you could point to wither the .vsd or .htm
In a multi page Visio file you can only get to a subsequent page if you reference the .vsd file…using the “Sub address” box. Pointing to the .htm file with “Sub Address” = page -2 will only take it to the first page.

I may have missed something but my analysis thus far of the capability is disappointing.

otk.

hmmm….
otk

In researching a an issue I have with hyperlinks in Visio I have tried something that should work for you. I run Visio 2000, Word 97 and Windows NT 4.

Open the multipage visio file you want to link to (from Word). In visio, drop an object (on any page) and,
1) Set the Address to the same visio file
2) Set the Sub Address to , say, Page 2 of the visio file
Press OK to complete the hyperlink

Copy the object and in Word select Edit, Paste Link
Save the Word file as an htm file.
Right click on the object and select edit , hyperlink
For me, the “Named location in file” said “Page-2” but the “Link to file or URl was empty”… so I used the browse button to reselect the visio file and confirmed with OK.

When I floated the mouse over the “visio ” object in the word htm file the pop up box listed the name of the visio file.
When I clicked on the linked it went to page 2 of the visio file.

I have tried keeping to Word doc in .doc format as was also able to link page 2 of the visio file, using “Named location in file” = Page-2

If you manage to get this working for you the next issue you may encounter (which is where I am at) is making (relative) hyperlinks work between files different directories.

otk

Charlotte,
Yes, that would figure. By instantiate I guess you mean “session.Initialize” below?

Dim session As Object
Set session = CreateObject(“Lotus.NotesSession”)
‘ Initialize the NotesSession
session.Initialize
MsgBox session.UserName

Paul,
Thx. I have something working but am missing the ability to start a notes session if its not open…which you have kindly included. I had tracked down some code from the Lotus site that I thought would do the trick but received an error (which is similar to what I get when I run what you have included).

The error occurs on the line,

Set Session = CreateObject(“Notes.NotesSession”)

Run time error 429
Active X component cant create object

The Help says “Creating objects requires that the object’s class be registered in the system registry and that any associated dynamic-link libraries (DLL) be available. ”

Within the references section I have “Lotus Domino Objects” (domobj.tlb) ticked so I am now guessing it must be an Active X listing that is not selected.
Additionally, from a Lotus.com download realting to “Lotus Domino and Toolkits for COM” it said “The Domino Objects, with their COM interface, are available on a machine where you have installed any of the following products, in version R5.0.2b or later:”, and to register the following dll, nlsxbe.dll.
I did no successfully using – regsvr32 C:Lotusnotesnlsxbe.dll

I dont know enough about this part of it but would suspect as it is a dll thats not registered that it be an Active X one. Any ideas? I’ll work my way thorugh the Active X ones and see….

otk.

Brooke,
OK. Have not come across that area. Some you may be interested in, if you have not found them,
http://www.lotus.com/developers/devbase.ns…K19991215044902]

http://www.lotus.com/developers/itcentral….76?OpenDocument

Sorry, I have yet used the “make a nice link” feature yet.

otk
http://linkhttp://link

Brooke,
I found some doco on the Lotus site that will probably help re integration with MS Office

http://www.lotus.com/developers/itcentral….76?OpenDocument

Brooke,
Yes, thats on the money. Its humming….Many thanks for your time and patience getting me this far. If you could bear a little more I have some queries if you are familiar in this territory….

1) I wanted to get a further understanding and options of the Notes model, but will need to track down the help file for it. The lines for .Send and .Save…are you able to confirm the what the True,False parameter options mean?

Call doc.Send(False, Recepients) ‘send the doc
Call doc.Save(True, False) ‘save the doc in sent items

2) Do you know how to,
a) request a “return receipt”
Set Importance levels i.e. low,normal,high
c) Set delivery report i.e. only on failure, confirm on delivery

Brooke,
I have been trying the Array approch as per your suggestion with mixed results.

1) Using actual email addresses – this works as expected

‘Recepients = Array(“joe@mysite.com”, “jane@mysite.com”, “pete@mysite.com”)
..
doc.SendTo = Recepients
..
Call doc.SEND(False, Recepients)

2) Using variables to represent email addresses – this does not quite get there. The first names receives a mail but not the next 2. Strangely when I look in the sent folder the email is addressed to,
To : joe@mysite.com, jane@mysite.com, pete@mysite.com
BUT the only email that comes through shows the following,
To : joe@mysite.com, jane
The subsequent names are concatenated. Go figure!?!

SendToAddress1 = “pete@mysite.com”
SendToAddress2 = “joe@mysite.com”
SendToAddress3 = “jane@mysite.com”

Recepients = Array(SendToAddress1 & “, ” & SendToAddress2 & “, ” & SendToAddress3)
..
doc.SendTo = Recepients
..
Call doc.SEND(False, Recepients)

Brooke,
Thanks, got that. Will try it out. I found the method I used only sent it to the first address of the list…ignoring the others. I appreciate the speedy reply…

Thanks for reply “hedgehog”,
I have previously looked at Chris’s site but will follow up again. However, I want to avoid using macros (which I current use) for two reasons.
1) Avoid the “Do you want to start macro” message each time its opened.
2) Ensure the info is “dynamic” or uptodate each time its opened.

otk