I think I found it....
Hello all,
I've also been getting this problem. Now, I don't profess to be a coder in the same league as Bill, but I found that if I changed a couple of values in the VBA editor, then the form now works.
If you feel lucky, read on:
Just to let you know up front, I don't know if this has anything to do with it, but at work I am connected to an MS Exchange Server, so when I read the code, I found that it was referring to a folder structure called "personal folders". I don't have that structure in my Outlook. Instead, when I go to folder view, I see the "root directory" as my user name (Thrush, Warren).
So I substituted my user name in the same format it appears in Outlook for every instance of "personal folders" and hey presto it worked!
After following the instructions in the pdf to publish the form and macros, I made the changes listed below. Please note that I made copies of the code I changed by copying the lines affected and pasting them on the next line directly below the line being changed. I then typed "REM" (No quotes) in front of each line to remark it out. That way I've still got a copy of the original code line from Bill's work.
Project Form
------------
1. Open up the "Forms" folder in the VBA Editor (this is the top left panel that has a tree like structure to it. Root directory for me was "Project1 (VbaProject.OTM) )
2. Right click on the "ProjectLink" form and select "View Code"
3. Find the code for the routine called "Private Sub UserForm_Initialize()"
4. Change the values for lines that start with "Set Fldr = .." and "Set Fldr2 = .." from "oNspc.Folders("Personal Folders") to "oNspc.Folders("Your User name"). Mine now reads "oNspc.Folders("Thrush, Warren")
Main Module
------------
1. Under "Modules in the VBA Editor ( same place you found the project form), right click on the "Project_Links_Main" module and select "view code"
2. Find the code called "Sub AddPrjLinks(Pobj.....
3. Change the value for the line "Set objFldr = objNS.Folders("Personal Folders").Folders("Projects")" to read "Set objFldr = objNS.Folders("Your User Name").Folders("Projects")".
Save the project and see if it works. Bill probably has a better explanation of this than I do, but I found this worked out. I'll test it some more to see if I have any other errors and report them back if I do.
Good Luck!
Warren Thrush
Sydney, Australia.