Comment toujours envoyer un nouvel e-mail depuis un compte spécifique dans Outlook ?
Supposons que vous ayez créé plusieurs comptes e-mail dans votre Outlook. Lorsque vous envoyez un e-mail dans Outlook, le compte e-mail affiché dans le champ De dépend du compte dans lequel vous vous trouvez actuellement. Peu importe le compte dans lequel vous êtes, vous souhaitez toujours envoyer des nouveaux e-mails depuis un compte e-mail spécifique. Le tutoriel suivant peut vous aider ; la méthode de ce tutoriel peut vous assister.
Toujours envoyer un nouvel e-mail depuis un compte spécifique avec un code VBA
Toujours envoyer un nouvel e-mail depuis un compte spécifique avec un code VBA
Ce code VBA peut vous aider à facilement envoyer des nouveaux e-mails depuis un compte spécifique dans Outlook. Veuillez procéder comme suit.
1. Veuillez appuyer sur "Alt" + "F11" pour ouvrir la boîte de dialogue "Microsoft Visual Basic for Applications".
2. Développez le "Projet1" > "Objets Microsoft Outlook" en double-cliquant dessus. Ensuite, 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 : toujours envoyer 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. Maintenant, vous devez changer le "Nom de votre compte" par le compte e-mail depuis lequel vous souhaitez toujours envoyer de nouveaux e-mails.

5. Appuyez ensuite sur la touche "F5" du clavier pour exécuter le code VBA.
6. Après avoir exécuté le code VBA, une nouvelle fenêtre "Message" s’affichera. Veuillez rédiger votre e-mail et cliquer sur le bouton "Envoyer" pour l'envoyer.
Remarque : Ce code VBA a été testé avec succès dans Outlook 2007, 2010 et 2013, mais ne fonctionne pas dans Exchange 2007 et 2010.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

