Hoe altijd een nieuwe e-mail te versturen vanuit een specifiek account in Outlook?
Stel dat je meerdere e-mailaccounts hebt aangemaakt in je Outlook. Wanneer je een e-mail verstuurt in Outlook, hangt het e-mailaccount dat wordt weergegeven in het Van-veld af van het account waarin je je momenteel bevindt. Ongeacht in welk account je je momenteel bevindt, wil je altijd nieuwe e-mails versturen vanuit een specifiek e-mailaccount. De volgende handleiding kan je helpen; de methode in deze handleiding kan je ondersteunen.
Altijd een nieuwe e-mail versturen vanuit een specifiek account met VBA-code
Altijd een nieuwe e-mail versturen vanuit een specifiek account met VBA-code
Deze VBA-code kan je helpen om gemakkelijk nieuwe e-mails te versturen vanuit een specifiek account in Outlook. Volg de onderstaande stappen.
1. Druk op "Alt" + "F11" om het dialoogvenster "Microsoft Visual Basic for Applications" te openen.
2. Vouw "Project1" > "Microsoft Outlook Objects" uit door erop te dubbelklikken. Dubbelklik vervolgens op "ThisOutlookSession" om het dialoogvenster "VbaProject.OTM" te openen.
3. Kopieer en plak de onderstaande VBA-code in het dialoogvenster.
VBA: altijd een nieuwe e-mail versturen vanuit een specifiek account.
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. Nu moet je "Your account name" wijzigen naar het e-mailaccount waarvan je altijd nieuwe e-mails wilt versturen.
5. Druk vervolgens op de toets "F5" op het toetsenbord om de VBA-code uit te voeren.
6. Nadat je de VBA-code hebt uitgevoerd, zal er een nieuw "Bericht"-venster verschijnen. Stel je e-mail samen en klik op de knop "Verzenden" om deze te versturen.
Opmerking: Deze VBA-code is succesvol getest in Outlook 2007, 2010 en 2013, maar werkt niet in Exchange 2007 en 2010.
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint