|Access the master category list in the blink of an eye, share your color categories in a network, get a reminder service, and more.|
If you have two contacts in the same company, Outlook stores the company name twice. If you want to change the company name, you have to do that for each contact in that company.
If you have Outlook XP or newer, this example does the work for you. Once, all the contacts are found, you may also change other properties, of course.
Public Sub ChangeCompanyName() Dim sSearch As String Dim sFolder As String sFolder = "Contacts" sSearch = InputBox("Company:") If Len(sSearch) Then sSearch = "urn:schemas:contacts:o = '" & sSearch & "'" Application.AdvancedSearch sFolder, sSearch End If End Sub Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Outlook.Search) If SearchObject.Results.Count Then ChangeNames SearchObject.Results End If End Sub Private Sub ChangeNames(Results As Outlook.Results) Dim obj As Object Dim oContact As Outlook.ContactItem Dim sNew As String sNew = InputBox("New Name:") If Len(sNew) Then For Each obj In Results If TypeOf obj Is Outlook.ContactItem Then Set oContact = obj oContact.CompanyName = sNew oContact.Save End If Next End If End Sub
|OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.|