Permet de changer le serveur pop ou smtp des comptes POP3.
Il faut dans un premier temps télécharger REDEMPTION http://www.dimastr.com/redemption/download.htm choisir Download Developer version c'est une version qui ne peut pas être intégrée dans un logiciel commercial.
Pour l'utilisation autonome convertir le code en vbscript et l'executer à l'ouverture de session.
Sub Changer_le_comptepop() ' avec REDEMPTION 'Oliv' oct 2006 Set TSession = CreateObject("Redemption.RDOSession") TSession.MAPIOBJECT = Application.Session.MAPIOBJECT Set Accounts = TSession.Accounts For Each Account In Accounts If Account.AccountType = 0 Then 'atPOP3 Compte = "Compte :" & Account.Name & vbCr _ & "POP =" & Account.POP3_Server & vbCr _ & "SMTP =" & Account.SMTP_Server changer = InputBox(Compte & vbCr & "changer le serveur POP ?", _ , Account.POP3_Server) If changer <> Account.POP3_Server Then Account.POP3_Server = changer Account.Save End If changer = InputBox(Compte & vbCr & "changer le serveur SMTP ?", _ , Account.SMTP_Server) If changer <> Account.SMTP_Server Then Account.SMTP_Server = changer Account.Save End If End If Next End Sub
|