Nelle scorse settimane ho acquistato un Sony-Ericsson K700i come secondo telefono, da affiancare all’ingombrante QTek 2020; i due telefoni utilizzano lo stesso numero attraverso il servizio Twin Card della TIM e vengono usati al 99% per lavoro.
Il primo problema è portare nel K700i la rubrica del QTek; in altre parole, si tratta di importare la rubrica già presente in Outlook 2002 nel cellulare e poi recuperare i contatti in Address Book sul Mac.

Il primo tentativo ha dato risultati poco lusinghieri: ho sincronizzato il cellulare con Outlook e la pessima chiave BlueTooth, ritrovandomi con:

• la rubrica di Outlook totalmente incasinata (contatti duplicati)
• la rubrica sul cellulare inservibile: tutti i contatti con solo il campo società compilato risultano senza nome

Visto il caos, colgo l’occasione per fare le pulizie di primavera nella rubrica e decido di cancellare tutti i contatti dal telefono per ripartire da zero: mi viene richiesto un codice blocco del telefonino, che però non trovo da nessuna parte. Sfidando la sorte, inserisco il solito “0000” (a cui sarebbe seguito a ruota “1234”) ed il telefono si sblocca: costava fatica scriverlo sul manuale? Sorvoliamo…

Scartando un nuovo tentativo con la chiave BT, non mi resta che trovare un modo per esportare la rubrica da Outlook, importarla in Address Book e poi sul cellulare.

Quell’osceno programma di casa MS non prevede l’esportazione in formato LDIF, nè tantomeno in formato VCard; o meglio, permette di esportare un solo contatto alla volta in formato vcf. Fortunatamente, cercando in internet si trova la soluzione: premere ALT+F11 per aprire l’editor Visual Basic, inserire un nuovo Modulo con l’apposito pulsante, digitare il seguente codice ed eseguirlo

'Change the next line to your export path!
Const XPortPath As String = "C:\contatti\"

Sub ExportToVCard()
Dim ns As NameSpace
Dim fld As MAPIFolder
Dim itm
Dim itms As Items
Dim newFile
Set ns = Application.GetNamespace("MAPI")
Set fld = ns.GetDefaultFolder(olFolderContacts)
Set itms = fld.Items
itms.Sort "[LastName]", False
For Each itm In itms
If TypeName(itm) = "ContactItem" Then
newFile = cleanFileName(itm.LastNameAndFirstName)

If newFile <> "" And itm.CompanyName <> "" Then
newFile = newFile & " - " & cleanFileName(itm.CompanyName)
End If

If newFile = "" And itm.CompanyName <> "" Then
newFile = cleanFileName(itm.CompanyName)
End If

itm.SaveAs XPortPath & newFile & ".vcf", olVCard
End If
Next itm

End Sub

Function cleanFileName(dirtyFileName As String)
cleanFileName = dirtyFileName
cleanFileName = Replace(cleanFileName, ":", " ")
cleanFileName = Replace(cleanFileName, "/", " ")
cleanFileName = Replace(cleanFileName, "\", " ")
cleanFileName = Replace(cleanFileName, "?", " ")
cleanFileName = Replace(cleanFileName, "*", " ")
cleanFileName = Replace(cleanFileName, "|", " ")
cleanFileName = Replace(cleanFileName, "", " ")
cleanFileName = Replace(cleanFileName, Chr(34), " ")
cleanFileName = Replace(cleanFileName, Chr(9), " ")
End Function

Dopo aver eseguito il codice, nella cartella impostata nella prima riga si troveranno tutti i contatti in formato VCard; a questo punto basta copiare sul Mac la cartella, aprire Address Book ed importare i contatti in formato VCard. Da qui in poi la strada con Address Book+iSync è tutta in discesa.

Finalmente la rubrica del K700i è perfetta.