Replies

hyperlinks added- Mod

I’ve also used ADO to access LDAP. Microsoft has an SDK that can be found here: http://www.vbdiamond.com/Sources/ViewSource.asp?ID=1182%5B/url%5D
After installing, navigate down to the adsi/sdk/Samples/vbs directory. There are several samples there that, in my case, ALMOST work. I had to tweak them, but the tweaks were minor.

Edited by gwhitfield on 13-Jan-02 07:45.

hyperlinks added

Sometimes it is a problem with incompatibilities with MDAC. Download the latest version here: http://www.microsoft.com/data/default.htm and see if that fixes the problem.

Well, there’s SOMETHING different about that machine. How much disk space do you have? How much free? Have you run a defrag on it lately?
There’s a lot of reasons why it would slow down, but it seems that it has to be an environment issue (well duh!).
I had a similar problem, and it turned out to be low disk space, which caused pressure on the paging file.

Tim:

I did that in a previous lifetime. It was a little more complicated, but basically I created an Outlook macro that did the work and, yes, I did put a digital signature on it. That way, it only complained whenever I made a modification to the macro – telling me that I was writing to a protected file (or something similar). But the upshot is that you will have this macro in an .OTM file that is loaded when that copy of Outlook is started.

If you have any further questions, feel free to respond.

Hope that helps.

Brian A

I tried that, but kept getting errors. However, it did point me in the right direction for some research. I found this subroutine which fills the bill:

Private Sub RetrieveOutlookList()
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace(“MAPI”)
dlgAddress.Combo1.Text = “or select an e-mail address from this box.”
For Each olAL In olNS.AddressLists
For Each olAE In olAL.AddressEntries
dlgAddress.Combo1.AddItem olAE.Name & “(” & olAE.Address & “)”
Next
Next
End Sub

You still have to make a reference to Outlook (like before) and Outlook needs to be running.

Brian A.

Wassim:

I’ll give it a try! Thanks!

Brian A.

Charles:

Thanks for the reply. Actually, I was using Word’s Insert>Picture>Clip Art, then selecting Borders & Frames. In the past it worked fine, but when I moved to a new machine it started separating the border onto a separate page.
But here’s the really weird part. It’s working again! For no apparent reason that I can fathom, Word decided to stop playing this silly game and leave the border behind the text where it belongs.
I really do appreciate all the suggestions, and I have filed them away for future reference. Again, thank you!

Brian

Be sure that the other machine has Microsoft Scripting installed.

I know it is possible to read the keywords in a program, since I have program which does it. You might want to check out the Microsoft article: q224351

Be sure that when you finish using an object, you release it by setting it to Nothing.

Set MyOdbc = Nothing

Otherwise, VB wil not free the memory.

This may not be the problem that you are having, but it is actually a common error.

True, but what I’m trying to do is let Word scan the document for keywords using the Autosummarize function, then update the Properties with the keywords. So any future scans using DSOFile should show the keywords without having to open that document.

In effect, I’m writing an app that will help find WORD documents via keywords.

As an aside, I’ve discovered that DSOFile will error out in Visual Basic if a file with a .DOC extention is not a WORD document. I can catch the error under W2K, but not W98. Very strange.

Cathy:

Thanks! That was just the push I needed. I already have the DSOFile Object library that will let me read the properties of Office documents. I had written a VB app that will find all of the DOC files on my system and list the keywords associated with each document, but I found that some of the documents lacked keywords. This should fix the problem.

Gary: Sorry if I wasn’t clear in my original post.

Brian A

What I am doing is writing an Outlook-driven PDL that requires no signup. When a message comes in, my PDL application finds the manager(s) that the message is from, then looks up their entire reporting structure in the corporate database and builds a BCC list. It then sends a copy of the message out to everyone on the list. I tried the FORWARD function, but for some reason, I kept getting an error from my Exchange server about permissions. I fixed that by making a copy of the message and sending the copy, rather than the original.

The attachments was the last major hurdle. Aside from testing, it seems to be ready for release.

I want to thank everyone for the assistance. Since I couldn’t do a simple forward,(which I tried first, by the way), it was beginning to be a bit of a problem. Here’s my solution:

Private Sub Copy_Attachments(FromMail As MailItem, ToMail As MailItem)
Dim i As Integer
Dim SavedName As String

For i = 1 To FromMail.Attachments.Count
With FromMail
If FromMail.Attachments.Count > 0 Then
SavedName = “C:” & FromMail.Attachments.Item(i).FileName
FromMail.Attachments.Item(i).SaveAsFile SavedName
ToMail.Attachments.Add SavedName
Kill SavedName
End If
End With
Next
End Sub

Again, thanks!