If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#31
|
|||
|
|||
Rebuild Contacts Links
Well, it must be missing something because all my Journal items, Calendar
items, and Task items have links to at least one Contact. All I can say is that intCount is derived from the Count property of the Links collection on the item being processed. You can add a Debug.Print objItem.Subject, objItem.Links.Count statement inside the For Each loop to get a list of the items and their link counts. The list will show in the immediate window. Just so I'm clear on how to run the macro: When it asks me to choose a folder, I select the folder that contains the items which need to be re-linked to a contact record. Yes, that's correct. If I decipher the macro correctly, it defaults to the Contacts folder if no folder is selected, meaning that it looks for links to other contacts in each contact record. No, if no folder is selected, no items will be processed at all. The code looks for matching contacts only in the user's default Contacts folder, not in any other contacts folders that might be present. -- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx -- Michael "Sue Mosher [MVP-Outlook]" wrote in message ... That means that intCount equals zero, that the item being worked on has no contact links. "Michael Ray Brown" wrote in message ... I'm a bit out of my depth here. I'm a writer, not a programmer. However, when I press "F8" to step through the script, it gets to the line... If intCount 0 Then ... and then the highlighting jumps to... End If It does this over and over again. I never see any link being added or removed. -- Michael "Sue Mosher [MVP-Outlook]" wrote in message ... What happens if you step through the code in the debugger? Can you see it execute the statements where it adds a link, removes the old link, and saves the item? "Michael Ray Brown" wrote in message ... I've unfortunately had the same catastrophe befall me. After upgrading to Outlook 2007 and running the recent patch, all the links to my Contacts from my Journal items, Task items, and Calendar items suddenly went dead. I copied and pasted the VBA script into Outlook, and ran the macro, but nothing has changed. Whenever I double click on a name in a Journal item's "Contacts" field, for example, I still get an error message: "Cannot perform the requested operation. The command selected is not valid for this recipient. An internal support function returned an error." -- Michael "Sue Mosher [MVP-Outlook]" wrote in message ... The underscore is a continuation character. If you put the entire statement on one line, you must take the underscore out. If you leave it in, the quotation mark needs to be after the equals sign. "chunnel" wrote in message ... I tried the ReconnectLinks () from Listing 20.2 and I keep getting an error at the line which is as follows; If objLink.item Is Nothing Then strFind = "[FullName] = _ " & Quote(objLink.Name) If I type it as written then I get an compile error for unexpected end of statement because I hit return after the "_". If it keep the 3rd line as part of the 2nd line so that it looks as follows; strFind = "[FullName] = _" & Quote(objLink.Name) then I get an error when running it that Sub or Function is not defined and it focuses on this line. |
Thread Tools | |
Display Modes | |
|
|