В случае, если необходимо быстро поменять местами имена и фамилии контактов в Microsoft Outlook, (например для корректной синхронизации контактов с записной книжкой сотового телефона), то сделать это можно быстро, используя макрос, написанный на языке Visual Basic for Applications. 

Option Explicit
Sub Zamena_Imeni_i_Familii()
'меняет местами имена и фамилии контактов
    Dim myNamespace As NameSpace
    Dim myFolder As MAPIFolder, myWorkFolder As MAPIFolder
    Dim iContact As ContactItem
    Dim Str As String
 
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
    'Set myWorkFolder = myFolder.Folders("Имя вашей папки") 'если папка находится внутри дефолтной
    Set myWorkFolder = myFolder 'если используется дефолтная папка Контакты
'перебор каждого контакта
        For Each iContact In myWorkFolder.Items
            With iContact
                If .FirstName <> "" Then
                    Str = .FirstName
                    .FirstName = .LastName
                    .LastName = Str
                    .Save
                End If
            End With
        Next iContact
End Sub

Аналогичным образом можно поменять местами любые поля для контактов в Outlook.

Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок knopka_view_source в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).