В случае, если необходимо быстро поменять местами имена и фамилии контактов в 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
Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).