Comment envoyer systématiquement un nouvel e-mail depuis un compte spécifique dans Outlook ?

Supposons que vous ayez configuré plusieurs comptes de messagerie dans Outlook. Lorsque vous envoyez un e-mail, le compte affiché dans le champ « De » correspond à celui dans lequel vous vous trouvez actuellement. Quel que soit ce compte, vous souhaitez toujours envoyer vos nouveaux e-mails à partir d’un compte spécifique. Le tutoriel suivant vous explique précisément comment y parvenir.

Envoyer systématiquement un Nouveau email depuis un compte spécifique à l’aide d’un code VBA

---

Envoyer systématiquement un Nouveau email depuis un compte spécifique à l’aide d’un code VBA

Ce code VBA vous permet d’envoyer facilement de nouveaux e-mails depuis un compte spécifique dans Outlook. Procédez comme suit.

1. Appuyez sur « Alt » + « F11 » pour ouvrir la boîte de dialogue Microsoft Visual Basic pour Applications.

2. Développez « Projet1 » > « Objets Microsoft Outlook » en double-cliquant dessus, puis double-cliquez sur « ThisOutlookSession » pour ouvrir la boîte de dialogue « VbaProject.OTM ».

3. Copiez et collez le code VBA ci-dessous dans la boîte de dialogue.

VBA : envoyer systématiquement un nouvel e-mail depuis un compte spécifique.

Public Sub NewBySpecAccount()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount.DisplayName = "Your account name" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next
End Sub

4. Vous devez maintenant remplacer « Your Nom d'utilisateur » par l’adresse e-mail du compte à partir duquel vous souhaitez toujours envoyer de nouveaux messages.

5. Appuyez ensuite sur la touche « F5 » de votre clavier pour exécuter le code VBA.

6. Après l’exécution du code VBA, une nouvelle fenêtre « Message » s’ouvre. Rédigez votre e-mail, puis cliquez sur « Envoyer » pour l’expédier.

Remarque : Ce code VBA a été testé avec succès dans Outlook 2007, 2010 et 2013, mais il n’est pas compatible avec Exchange 2007 et 2010.