Création automatique de compte outlook

Version imprimable

24/05/2020, 10h28
stephd.fr

Création automatique de compte outlook

Bonjour,

Je possède une bonne vingtaine de compte mail, et a chaque fois que je réinstalle mon ordi (fréquent) il faut re-creer les comptes sur outlook, repointer vers les fichiers pst associés...
Je cherche donc un moyen via une macro vba de re paramétrer outlook. pointer ver le smpt, l'imap, mettre le nom du compte, le mdp en un seul clic...
je trouve beaucoup de code pour outlook, voir des manipulations de compte, mais je ne trouve pas d'information ni d'exemple sur la création .

Sauriez vous me conseiller et m'orienter vers une documentation dans ce sens.

Merci par avance

bonne journée,

Stephd
09/06/2020, 11h46
stephd.fr

Bonjour, je me permets de faire un UP, l'un d'entre vous pourrait il m'aiguiller?
Merci par avance

Bonjour,

par programtion il faut utiliser REDEMPTION
--> http://www.dimastr.com/redemption/Redemption.zip

Voici un exemple issu de leur site : http://www.dimastr.com/redemption/RD...ts.htm#methods

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Accounts = Session.Accounts
set POP3Account = Accounts.AddPOP3Account("Joe The User", _           
                                          "address@domain.demo", _
                                          "Pop3server.domain.demo", _
                                          "SmtpServer.domain.demo", _
                                          "LogonUserName@domain.demo", _
                                          "ThePassword!")
POP3Account.SMTP_UseAuth = true
POP3Account.SMTP_LogonKind = 0 'rdoSMTPLogonKind.lkSameAsIncoming
POP3Account.SMTP_Port = 1025
POP3Account.LeaveMessagesOnServer = true
POP3Account.DeleteFromServerAfterXDays = true
POP3Account.DaysBeforeDelete = 14
POP3Account.Save