Is there a way to add the SAME information to the SAME field in a group of contact en

niton · #2 03-02-2013, 05:35 AM

http://msdn.microsoft.com/en-us/libr...ctEditingMacro

Code:

Sub CompanyChange_All()
    Dim ContactsFolder As Folder
    Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    MsgBox ("Contacts Found:" & ContactsFolder.Items.Count)
    
    Dim Contact As ContactItem

    For Each Contact In ContactsFolder.Items
        If Contact.CompanyName = "Example Systems" Then      
            Contact.CompanyName = "Example Networks"
            Contact.Save
            Debug.Print "Changed: " & Contact.FullName
        End If
    Next
End Sub

******
If not in the default folder, "already in a separate contact set", try this UNTESTED code on a selection of test items.

Code:

Sub CompanyChange_Selection()
     
    Dim Contact As Object

    For Each Contact In ActiveExplorer.Selection

	If Contact.Class = olContact Then
	    If Contact.CompanyName = "Example Systems" Then
            	Contact.CompanyName = "Example Networks"
            	Contact.Save
            	Debug.Print "Changed: " & Contact.FullName
            End If
        End If
    Next
End Sub

If you are unfamiliar with VBA see here http://www.slipstick.com/developer/h...ks-vba-editor/

You will find information about:
- macro security settings
- where to put the code
- how to create a button

*******************
Consider rating the thread by going to the "Rate Thread" dropdown.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
deleted members of contact group reappear	gtrdave	Outlook	1	10-14-2014 10:10 AM
Delete contact group, still populates when typing to:	MarleneHarkcom	Outlook	0	04-04-2012 10:24 AM
Saving senders email to contact group	RicWCO	Outlook	0	03-26-2012 10:03 PM
creating a new field for contact form	JoeR11	Outlook	1	12-20-2011 09:39 PM
Associate a contact with a group from within the contact page?	SeattleALE	Outlook	1	05-09-2011 04:00 AM