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 |
#21
|
|||
|
|||
Rebuild Contacts Links
What statement gives you that error?
-- 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 "chunnel" wrote in message ... I have tried what you mentioned but am still getting "Sub or Function not defined". I hate to cut and paste the whole thing, but can you see an error with what I've written? Sub ReconnectLinks() Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim colLinks As Outlook.Links Dim objLink As Outlook.Link Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim strFind As String Dim intCount As Integer Dim I As Integer Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) "Nothing" Then Set colContacts = _ objNS.GetDefaultFolder(olFolderContacts).Items Set colItems = objFolder.Items For Each objItem In colItems Set colLinks = objItem.Links intCount = colLinks.Count If intCount 0 Then For I = intCount To 1 Step -1 Set objLink = colLinks.Item(I) On Error Resume Next If objLink.Item Is Nothing Then strFind = "[FullName] = " & Quote(objLink.Name) Set objContact = colContacts.Find(strFind) If Not objContact Is Nothing Then colLinks.Remove I colLinks.Add objContact End If End If Next If Not objItem.Saved Then objItem.Save End If End If Next End If Set colContacts = Nothing Set objContacts = Nothing Set objLink = Nothing Set colLinks = Nothing Set objItem = Nothing Set objItems = Nothing Set objFolder = Nothing Set objNS = Nothing Set objApp = Nothing End Sub Private Function Quote(varInput) Quote = Chr(34) & varInput & Chr(34) End Function "Sue Mosher [MVP-Outlook]" wrote: 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. |
#22
|
|||
|
|||
Rebuild Contacts Links
I get the error when I run the macro through the Tools menu in Outlook. When
I enter the VB Editor and run it from there and choose the Contacts section when the window pops up, it gives me an hourglass for a few minutes so it appears to be doing something. However, none of the links appear to have been fixed because of it. So I don't know if there is a problem or not or if the program can't fix it. When I do get the error it doesn't highlight anything to tell me what the problem is, so I can't tell you. And I get no error when I try to debug. Bryan "Sue Mosher [MVP-Outlook]" wrote: What statement gives you that error? -- 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 "chunnel" wrote in message ... I have tried what you mentioned but am still getting "Sub or Function not defined". I hate to cut and paste the whole thing, but can you see an error with what I've written? Sub ReconnectLinks() Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim colLinks As Outlook.Links Dim objLink As Outlook.Link Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim strFind As String Dim intCount As Integer Dim I As Integer Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) "Nothing" Then Set colContacts = _ objNS.GetDefaultFolder(olFolderContacts).Items Set colItems = objFolder.Items For Each objItem In colItems Set colLinks = objItem.Links intCount = colLinks.Count If intCount 0 Then For I = intCount To 1 Step -1 Set objLink = colLinks.Item(I) On Error Resume Next If objLink.Item Is Nothing Then strFind = "[FullName] = " & Quote(objLink.Name) Set objContact = colContacts.Find(strFind) If Not objContact Is Nothing Then colLinks.Remove I colLinks.Add objContact End If End If Next If Not objItem.Saved Then objItem.Save End If End If Next End If Set colContacts = Nothing Set objContacts = Nothing Set objLink = Nothing Set colLinks = Nothing Set objItem = Nothing Set objItems = Nothing Set objFolder = Nothing Set objNS = Nothing Set objApp = Nothing End Sub Private Function Quote(varInput) Quote = Chr(34) & varInput & Chr(34) End Function "Sue Mosher [MVP-Outlook]" wrote: 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. |
#23
|
|||
|
|||
Rebuild Contacts Links
I'd suggest that you step through the code using F8 so that you see every statement execute. That ought to give you a better idea of what's going on.
-- 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 "chunnel" wrote in message ... I get the error when I run the macro through the Tools menu in Outlook. When I enter the VB Editor and run it from there and choose the Contacts section when the window pops up, it gives me an hourglass for a few minutes so it appears to be doing something. However, none of the links appear to have been fixed because of it. So I don't know if there is a problem or not or if the program can't fix it. When I do get the error it doesn't highlight anything to tell me what the problem is, so I can't tell you. And I get no error when I try to debug. Bryan "Sue Mosher [MVP-Outlook]" wrote: What statement gives you that error? "chunnel" wrote in message ... I have tried what you mentioned but am still getting "Sub or Function not defined". I hate to cut and paste the whole thing, but can you see an error with what I've written? Sub ReconnectLinks() Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim colLinks As Outlook.Links Dim objLink As Outlook.Link Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim strFind As String Dim intCount As Integer Dim I As Integer Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) "Nothing" Then Set colContacts = _ objNS.GetDefaultFolder(olFolderContacts).Items Set colItems = objFolder.Items For Each objItem In colItems Set colLinks = objItem.Links intCount = colLinks.Count If intCount 0 Then For I = intCount To 1 Step -1 Set objLink = colLinks.Item(I) On Error Resume Next If objLink.Item Is Nothing Then strFind = "[FullName] = " & Quote(objLink.Name) Set objContact = colContacts.Find(strFind) If Not objContact Is Nothing Then colLinks.Remove I colLinks.Add objContact End If End If Next If Not objItem.Saved Then objItem.Save End If End If Next End If Set colContacts = Nothing Set objContacts = Nothing Set objLink = Nothing Set colLinks = Nothing Set objItem = Nothing Set objItems = Nothing Set objFolder = Nothing Set objNS = Nothing Set objApp = Nothing End Sub Private Function Quote(varInput) Quote = Chr(34) & varInput & Chr(34) End Function "Sue Mosher [MVP-Outlook]" wrote: 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. |
#24
|
|||
|
|||
Rebuild Contacts Links
I did run F8 and received no errors. But all of my links have been
destroyed. I have to retype any link that I want to access. The problem is that I have probably over 1,000 linked contacts. "Sue Mosher [MVP-Outlook]" wrote: I'd suggest that you step through the code using F8 so that you see every statement execute. That ought to give you a better idea of what's going on. -- 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 "chunnel" wrote in message ... I get the error when I run the macro through the Tools menu in Outlook. When I enter the VB Editor and run it from there and choose the Contacts section when the window pops up, it gives me an hourglass for a few minutes so it appears to be doing something. However, none of the links appear to have been fixed because of it. So I don't know if there is a problem or not or if the program can't fix it. When I do get the error it doesn't highlight anything to tell me what the problem is, so I can't tell you. And I get no error when I try to debug. Bryan "Sue Mosher [MVP-Outlook]" wrote: What statement gives you that error? "chunnel" wrote in message ... I have tried what you mentioned but am still getting "Sub or Function not defined". I hate to cut and paste the whole thing, but can you see an error with what I've written? Sub ReconnectLinks() Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim colLinks As Outlook.Links Dim objLink As Outlook.Link Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim strFind As String Dim intCount As Integer Dim I As Integer Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) "Nothing" Then Set colContacts = _ objNS.GetDefaultFolder(olFolderContacts).Items Set colItems = objFolder.Items For Each objItem In colItems Set colLinks = objItem.Links intCount = colLinks.Count If intCount 0 Then For I = intCount To 1 Step -1 Set objLink = colLinks.Item(I) On Error Resume Next If objLink.Item Is Nothing Then strFind = "[FullName] = " & Quote(objLink.Name) Set objContact = colContacts.Find(strFind) If Not objContact Is Nothing Then colLinks.Remove I colLinks.Add objContact End If End If Next If Not objItem.Saved Then objItem.Save End If End If Next End If Set colContacts = Nothing Set objContacts = Nothing Set objLink = Nothing Set colLinks = Nothing Set objItem = Nothing Set objItems = Nothing Set objFolder = Nothing Set objNS = Nothing Set objApp = Nothing End Sub Private Function Quote(varInput) Quote = Chr(34) & varInput & Chr(34) End Function "Sue Mosher [MVP-Outlook]" wrote: 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. |
#25
|
|||
|
|||
Rebuild Contacts Links
You're not looking for errors but to see whether the code actually found a matching contact, which is a prerequisite to fixing the link. Remember, we can't look over your shoulder to see what's going on with the data itself.
-- 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 "chunnel" wrote in message ... I did run F8 and received no errors. But all of my links have been destroyed. I have to retype any link that I want to access. The problem is that I have probably over 1,000 linked contacts. "Sue Mosher [MVP-Outlook]" wrote: I'd suggest that you step through the code using F8 so that you see every statement execute. That ought to give you a better idea of what's going on. "chunnel" wrote in message ... I get the error when I run the macro through the Tools menu in Outlook. When I enter the VB Editor and run it from there and choose the Contacts section when the window pops up, it gives me an hourglass for a few minutes so it appears to be doing something. However, none of the links appear to have been fixed because of it. So I don't know if there is a problem or not or if the program can't fix it. When I do get the error it doesn't highlight anything to tell me what the problem is, so I can't tell you. And I get no error when I try to debug. Bryan "Sue Mosher [MVP-Outlook]" wrote: What statement gives you that error? "chunnel" wrote in message ... I have tried what you mentioned but am still getting "Sub or Function not defined". I hate to cut and paste the whole thing, but can you see an error with what I've written? Sub ReconnectLinks() Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim colLinks As Outlook.Links Dim objLink As Outlook.Link Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim strFind As String Dim intCount As Integer Dim I As Integer Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) "Nothing" Then Set colContacts = _ objNS.GetDefaultFolder(olFolderContacts).Items Set colItems = objFolder.Items For Each objItem In colItems Set colLinks = objItem.Links intCount = colLinks.Count If intCount 0 Then For I = intCount To 1 Step -1 Set objLink = colLinks.Item(I) On Error Resume Next If objLink.Item Is Nothing Then strFind = "[FullName] = " & Quote(objLink.Name) Set objContact = colContacts.Find(strFind) If Not objContact Is Nothing Then colLinks.Remove I colLinks.Add objContact End If End If Next If Not objItem.Saved Then objItem.Save End If End If Next End If Set colContacts = Nothing Set objContacts = Nothing Set objLink = Nothing Set colLinks = Nothing Set objItem = Nothing Set objItems = Nothing Set objFolder = Nothing Set objNS = Nothing Set objApp = Nothing End Sub Private Function Quote(varInput) Quote = Chr(34) & varInput & Chr(34) End Function "Sue Mosher [MVP-Outlook]" wrote: 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. |
#26
|
|||
|
|||
Rebuild Contacts Links
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. -- 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 "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. |
#27
|
|||
|
|||
Rebuild Contacts Links
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?
-- 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'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. -- 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 "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. |
#28
|
|||
|
|||
Rebuild Contacts Links
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? -- 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'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. -- 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 "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. |
#29
|
|||
|
|||
Rebuild Contacts Links
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. |
#30
|
|||
|
|||
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. 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. 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. -- Michael "Sue Mosher [MVP-Outlook]" wrote in message ... 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. |
Thread Tools | |
Display Modes | |
|
|