Haz y ordena lo que quieras con tus contactos! ...... nombre apellido, empresa.. etc....
No sabía si poner esta utilidad "tangrande" para mi pero mira por donde este es el sitio idoneo.
Uso muchiiissimo los contactos del teléfono, y tengo actualmente 786 activos.... el doble inactivos, archivados en una segunda carpetade outlook, pero solo sincronizo los 786 principales.
No tengo contactos en la SIM del teléfono, todos en memoria.
Uso Microsoft Outlook para sincronizar con el teléfono, y por tanto tengo alli tooooodos los contactos. es mi backup y donde normalmente los trato, edito y organizo.
Tengo los contactos clasificados por categorias: trabajo, coche, restaurantes, amigos, aficciones.. etc.
También los tengo organizados por empresa (organización).....
el problema es que en el teléfono salen por apellido, como comentáis... y además la mayoría de los programas de contactos, excepto el de origen de WM6, no deja filtrar por empresa... y tampoco puedo buscar por ella.... :enfadadisimo:
bueno, el tema es que creo que es mejor tratar toodos estos lios en el PC.. es mas facil de manejar.. por eso me puse a trastear y descubrir como hacer una macro para outlook en la que poder cambiar todos estos parámetros..... automaticamente en todos los contactos.. y no uno por uno.:pensando:
bueno... pues encontré...
la macro que he hecho y que os dejo aquí hace unas cuantas cosillas, pero con un poco de ayuda o si quereís trastear es muy facil hacer lo que os apetezca.
Antes de nada explicar que el teléfono muestra los contactos por un campo de cada contacto que se llama "archivarcomo" y que por defecto se rellena con "apellidos, nombre". Existe además un campo igual para el correo electronico.. es decir el correo es
[email protected] pero yo quiero que salga en el correo "bienvenida" este campo se llama igualmente "mostrar como del correo1"
bueno, al tajo, en mi caso, la macro hace lo siguiente:
- Cambiamos el campo archivarcomo a "(organización) Nombre Apellido"
- Pone en mayusculas todos los nombres de "organización"
- Cambiamos el campo Mostrar como del correo1 a "Nombre Apellido (correo)"
bueno.... la macro es esta:
Sub reordenarContactos()
Dim items As items, item As ContactItem
Dim 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'")
'bucle para pasar por cada contacto
For Each itemContact In contactItems
'Cambiamos el campo archivar como a "(Compañia) Nombre Apellido" segun convenga
If itemContact.CompanyName = "" Then
If itemContact.LastName = "" Then
itemContact.FileAs = itemContact.FirstName
Else
itemContact.FileAs = itemContact.FirstName + " " + itemContact.LastName
End If
Else
'Ponemos en Mayusculas todos los nombres de organización
itemContact.CompanyName = UCase(itemContact.CompanyName)
If itemContact.LastName = "" Then
itemContact.FileAs = itemContact.FirstName + ", " + itemContact.CompanyName
Else
itemContact.FileAs = itemContact.FirstName + " " + itemContact.LastName + ", " + itemContact.CompanyName
End If
End If
'Cambiamos el campo Mostrar como del correo1 a "Nombre Apellido (correo)"
itemContact.Email1DisplayName = itemContact.FirstName + " " + itemContact.LastName + " (" + itemContact.Email1Address + ")"
itemContact.Save
Next
MsgBox "Tus contactos han sido rearchivados"
End Sub
siento el rollo.. quizás a nadie le interese pero es que ami me ha salvado la vida...
de hecho creo que la voy a publicar como hilo directamente.:silbando:
el que necesite mas indicaciones no tiene mas que preguntar......
un saludo