How to Batch Move Multiple Contacts’ Addresses from One Address Field to Another in Outlook

There are 3 address fields for each Outlook contact – “Business”, “Home” and “Other”. If you need to move multiple contacts’ addresses from one field to another, such as batch moving from “Other” to “Business”, you can use the way shared in this post.

Some users complain that when they import contacts into their Outlook, these contacts’ addresses are added to an undesired address field. For instance, they hope that the addresses can be imported into “Business” address field instead of the incorrect “Other” field. In this case, batch moving the addresses to another field is required. Thus, in the followings, we will share a quick way to realize this.

Batch Move Multiple Contacts' Addresses from One Address Field to Another

Batch Move Multiple Contacts’ Addresses from One Field to Another

  1. At the very outset, launch your Outlook application.
  2. After entering the Outlook main window, tap on the “Alt + F11” key buttons.
  3. Then, you’ll get access to the VBA editor window, in which you need to open a module that is not being used.
  4. Subsequently, copy and paste the following VBA code into this module scope.
Sub BatchMoveAddressesToOtherAddressField()
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objContact As Outlook.ContactItem
 
    'Get selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       For Each objItem In objSelection
           If objItem.Class = olContact Then
              Set objContact = objItem
 
              'Move Address from "Other" Field to "Business" Field
              'You can change the field as per your needs
              'Options: .BusinessAddress, .HomeAddress, .OtherAddress
              With objContact
                   If .OtherAddress <> "" Then
                      If .BusinessAddress = "" Then
                         .BusinessAddress = .OtherAddress
                         .OtherAddress = ""
                         .Save
                      End If
                   End If
              End With
          End If
       Next
    End If
End Sub

VBA Code - Batch Move Multiple Contacts' Addresses from One Address Field to Another

  1. After that, you could exit the current window.
  2. Next, after returning to main Outlook window, click the drown arrow in the Quick Access Toolbar and choose “More Commands” from the drop down list.
  3. Later, in the new “Outlook Options” window with “Quick Access Toolbar” tab enabled, you can add the new macro to Quick Access Toolbar.
  4. Eventually, you could attempt this VBA project.
  • To start with, in the contact list, select the contacts whose addresses you want to move to a different field.
  • Then, click the macro button in Quick Access Toolbar.
  • At once, the selected contacts’ addresses will be moved to the predefined field successfully.

What to Do if Confronted with Outlook Damage

As we all know, Outlook plays a good role not only as a standalone email client but also as a private scheduler. However, it is still cannot escape from corruption. Therefore, you have to back up your Outlook PST file on a regular basis. Also, it is suggested to keep a potent PST repair utility in vicinity, like DataNumen Outlook Repair. It is capable of analyzing PST issues and helping you get back you corrupt PST data with effortless ease.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair mdf and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.