Script per modificare i contatti di Outlook (2003)
-
06-07-2019 - |
Domanda
Sto cercando di ripulire i miei contatti di Outlook 2003, che è diventato un brutto pasticcio di varie formattazioni, ecc.
Fondamentalmente, ho un sacco di contatti, sotto forma di:
0xxxxxxxxx [dieci cifre, che iniziano con 0] 0xxxxxxxx [nove cifre, che iniziano con 0] 0xxxxxxxx (xxxxx) [le stesse nove cifre sopra con le ultime cinque ripetute tra parentesi] + xxxxxxx [alcune casuali & complete; " numero con un prefisso internazionale, ecc.]
Voglio che tutti i numeri corrispondano all'ultimo formato. L'algoritmo è abbastanza semplice: per i primi due tipi, rilascia lo 0 e aggiungi + YYY dove YYY è il mio codice paese. Idem per il terzo, ma lascia cadere tutto tra parentesi.
Il mio problema è che non so come fare. Ho scritto un milione di script nella mia vita in Perl, ma preferirei non esportare tutto in testo, elaborarlo e reimportarlo; Mi piacerebbe avere una soluzione con un clic che può essere facilmente rieseguita (come quando importare un nuovo contatto dalla directory delle mie aziende che si presenta in uno dei moduli sopra). Sospetto che VBScript sia la strada da percorrere; Ho visto alcuni riferimenti online per accedere ai contatti come oggetti, ma non sono sicuro di quale sia il modo migliore per iniziare.
Qualche risorsa consigliata?
Questo è un duplicato di https://superuser.com/questions/15913/ script-to-edit-outlook-2003-contatti ; Non sono sicuro di quale sito sia una posizione migliore
Soluzione
Direi VBA, piuttosto che VBScript.
Sub GetContactsTel()
Set oFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
' Loop through all of the items in the folder.
For i = 1 To oFolder.Items.Count
Debug.Print oFolder.Items(i).BusinessTelephoneNumber
Next
End Sub