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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...

