Que pasa si tienes 1000 contactos en Outlook y se almacenan como «Pérez Pedro» y necesitas que sea «Pedro Pérez» o viceversa… imagina la cantidad de trabajo que representa cambiar manualmente el campo «Almacenar como» de 1,000 contactos, o de 10,000, incluso hacerlo para 200 ya es una labor titánica.

Para solucionar esto, existe un script que podemos correr desde el editor de Visual Basic incluido en Office, para abrir el editor VB, solo presionamos «alt+f11».

//Comienza Script VB

Public Sub ChangeFileAs()
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objContact As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim objContactsFolder As Outlook.MAPIFolder
Dim obj As Object
Dim strFirstName As String
Dim strLastName As String
Dim strFileAs As String

On Error Resume Next

Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
Set objItems = objContactsFolder.Items

For Each obj In objItems
'Test for contact and not distribution list
If obj.Class = olContact Then
Set objContact = obj

With objContact
strFirstName = .FirstName
strLastName = .LastName
strFileAs = strFirstName & " " & strLastName
.FileAs = strFileAs

.Save
End With
End If

Err.Clear
Next

Set objOL = Nothing
Set objNS = Nothing
Set obj = Nothing
Set objContact = Nothing
Set objItems = Nothing
Set objContactsFolder = Nothing
End Sub

//Termina Script VB

Después, solo corremos el script que acabamos de copiar y listo!