That means that intCount equals zero, that the item being worked on has no contact links.

--
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 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.