HowTo Cambiar campo "Archivar como" para que se asemejer a "Nombre completo"

Bien, el problema surgió con mi primer smartphone, resulta que cuando sincroniza con activesync coje por defecto el campo "Archivar como" de outlook para el nombre de los contactos. Ésto para mi era un problema puesto que estaba acostumbrado al orden en mi anterior teléfono que los ordenaba por nombre completo por lo cual estaban confeccionados para ello y con ésto me salían cosas tan feas como "Fress, Lorena" en mis contactos.

La solución existente es entrar uno a uno en todos los contactos e ir cambiando ésto para que aparezca Nombre Apellido en vez de Apellido, Nombre. Ni que decir tiene que esto es un engorro o una soberana putada, pues bien mi solución a ésto ha sido una macro en VBscript que os enseño ahora mismo.



- Para el que nunca lo haya hecho, con la carpeta contactos como actual se va uno a "Herramientas>Macro>Editor de Visual Basic.

- Agregas un nuevo módulo.

- Pegas el siguiente código.


Sub reordenarContactos()
Dim items As items, item As ContactItem, folder As folder
Dim contactItems As Outlook.items
Dim itemContact As Outlook.ContactItem

Set folder = Session.GetDefaultFolder(olFolderContacts)
Set items = folder.items
Count = items.Count
If Count = 0 Then
MsgBox "¡No hay contactos!"
Exit Sub
End If

'Filtramos en la clase mensaje para obtener sólo los items de contactos
Set contactItems = items.Restrict("[MessageClass]='IPM.Contact'")

For Each itemContact In contactItems
itemContact.FileAs = itemContact.FirstName + " " + itemContact.LastName
itemContact.Save
Next

MsgBox "Tus contactos han sido rearchivados"
End Sub


- Le das al botoncito de la flecha de play, guardas la nueva macro y la ejecutas.

- TODO AL PELO !!