Passer au contenu principal

Comment toujours envoyer un nouveau courrier électronique à partir d'un compte spécifique dans Outlook?

En supposant que vous ayez créé plusieurs comptes de messagerie dans Outlook, lors de l'envoi d'un e-mail dans Outlook, le compte de messagerie affiché dans le champ De dépend du compte dans lequel vous vous trouvez actuellement. Quel que soit le compte dans lequel vous vous trouvez actuellement, vous souhaitez toujours envoyer de nouveaux e-mails à partir d'un compte de messagerie spécifique, le didacticiel suivant peut vous aider, la méthode de ce didacticiel peut vous aider.

Envoyez toujours un nouvel e-mail à partir d'un compte spécifique avec le code VBA

Onglet Office - Activez l'édition et la navigation par onglets dans Microsoft Office, ce qui facilite le travail
Kutools for Outlook - Boostez Outlook avec plus de 100 fonctionnalités avancées pour une efficacité supérieure
Boostez votre Outlook 2021 - 2010 ou Outlook 365 avec ces fonctionnalités avancées. Profitez d'un essai gratuit complet de 60 jours et améliorez votre expérience de messagerie !

flèche bleue bulle droiteEnvoyez toujours un nouvel e-mail à partir d'un compte spécifique avec le code VBA

Ce code VBA peut vous aider à envoyer facilement de nouveaux e-mails à partir d'un compte spécifique dans Outlook. Veuillez faire comme suit.

1. Veuillez appuyer sur autre + F11 ouvrir le Microsoft Visual Basic pour applications boite de dialogue.

2. Développez le Project1 > Objets Microsoft Outlook en double-cliquant dessus. Et puis double-cliquez sur le Cette session Outlook ouvrir le VbaProject.OTM boite de dialogue.

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

VBA: envoyez toujours un nouvel e-mail à partir d'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 modifier le "Votre nom de compte»Au compte de messagerie auquel vous souhaitez toujours envoyer de nouveaux e-mails. Voir la capture d'écran:

5. Appuyez ensuite sur F5 touche du clavier pour exécuter le code VBA.

6. Après avoir exécuté le code VBA, un nouveau Message la fenêtre apparaîtra, veuillez composer votre e-mail et cliquez sur Envoyer bouton pour l'envoyer.

Notes: Ce code VBA a été testé avec succès dans Outlook 2007, 2010 et 2013, mais ne s'exécute pas dans Exchange 2007 et 2010.

 


Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code does not work if you have multiple Exchange accounts defined in your profile - pointing to different exchange servers.

In that case you need a variation on this code from Microsoft.

https://learn.microsoft.com/en-us/office/vba/outlook/concepts/accounts/create-a-sendable-item-for-a-specific-account-based-on-the-current-folder-outloo
This comment was minimized by the moderator on the site
Hi, the "VBA: always send a new email from specific account." does not work. If you want to send email from Excel, you have to change Outlook settings. Outlook - File - Account settings. Here you have to prioritise different email and different datafiles you have access to besides your usual account (email). This will work even if Outlook is closed then. (W10, O365)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations