Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Création automatique de compte outlook


Sujet :

VBA Outlook

  1. #1
    Nouveau Candidat au Club
    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

  2. #2
    Nouveau Candidat au Club
    Bonjour, je me permets de faire un UP, l'un d'entre vous pourrait il m'aiguiller?
    Merci par avance

  3. #3
    Expert éminent
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    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