France Treo
Comment réparer une liste de numeros de téléphone sur Outlook
Ces derniers jours, je me suis trouvé confronté à un problème intéressant: certains numéros de téléphone ne fonctionnaient plus, et lorsque j’essayais d’enviyer un SMS à ces numéros, un message d’erreur d’Orange – ERREUR 4058 – apparaissait. Après plusieurs heures d’investigation, le problème apparut enfin dans son entière clarté: le caractère “+” situé en début des nuémros de téléphone avait disparu: +33 était devenu 33, +1 était devenu 1, etc! Impossible de déterminer l’origine exacte du problème, si cela venait de Vista, vers lequel j’avais enfin migré , Outlook 2007 ou le dernier Palm Desktop! Il me fallait trouver une solution, et vite.La solution est apparu suite à un article publié sur le site support de Microsoft. Une adaptation rapide permettait d’arriver au script suivant.
Sub CommandButton1_Click()'This will only work on contacts in the CURRENT folderSet CurFolder = Application.ActiveExplorer.CurrentFolderIf CurFolder.DefaultItemType = 2 ThenMsgBox "This process may take some time. You will be notified" & _" when complete.", , "Contact Tools Message"Set MyItems = CurFolder.ItemsFor i = 1 To MyItems.CountSet MyItem = MyItems.Item(i) If MyItem.MobileTelephoneNumber <> "" And _Left(MyItem.MobileTelephoneNumber, 1) <> "0" And _Left(MyItem.MobileTelephoneNumber, 1) <> "+" ThenMyItem.MobileTelephoneNumber = "+" & MyItem.MobileTelephoneNumberMyItem.SaveEnd IfIf MyItem.BusinessTelephoneNumber <> "" And _Left(MyItem.BusinessTelephoneNumber, 1) <> "0" And _Left(MyItem.BusinessTelephoneNumber, 1) <> "+" ThenMyItem.BusinessTelephoneNumber = "+" & MyItem.BusinessTelephoneNumberMyItem.SaveEnd IfIf MyItem.BusinessFaxNumber <> "" And _Left(MyItem.BusinessFaxNumber, 1) <> "0" And _Left(MyItem.BusinessFaxNumber, 1) <> "+" ThenMyItem.BusinessFaxNumber = "+" & MyItem.BusinessFaxNumberMyItem.SaveEnd IfIf MyItem.HomeTelephoneNumber <> "" And _Left(MyItem.HomeTelephoneNumber, 1) <> "0" And _Left(MyItem.HomeTelephoneNumber, 1) <> "+" ThenMyItem.HomeTelephoneNumber = "+" & MyItem.HomeTelephoneNumberMyItem.SaveEnd If NextMsgBox "Done!", 64, "Contact Tools Message"ElseMsgBox "The current folder is not a Contact folder "End IfEnd Sub