Hoe stuur je altijd een nieuwe e-mail vanaf een specifiek account in Outlook?
Stel dat u meerdere e-mailaccounts hebt aangemaakt in uw Outlook, en bij het verzenden van een e-mail in Outlook, hangt het e-mailaccount dat wordt weergegeven in het veld Van af van het account waarin u zich momenteel bevindt. Het maakt niet uit in welk account u zich momenteel bevindt, u wilt altijd nieuwe e-mails van een specifiek e-mailaccount, kan de volgende zelfstudie u helpen, de methode in deze zelfstudie kan u helpen.
Stuur altijd een nieuwe e-mail vanaf een specifiek account met VBA-code
- Automatiseer e-mailen met Auto CC / BCC, Automatisch doorsturen door regels; versturen Auto antwoord (Out of Office) zonder dat er een uitwisselingsserver nodig is...
- Ontvang herinneringen zoals BCC-waarschuwing bij het beantwoorden van iedereen terwijl u in de BCC-lijst staat, en Herinner bij ontbrekende bijlagen voor vergeten bijlagen...
- Verbeter de e-mailefficiëntie met Antwoord (allemaal) met bijlagen, Automatisch begroeting of datum en tijd toevoegen aan handtekening of onderwerp, Beantwoord meerdere e-mails...
- Stroomlijn e-mailen met E-mails intrekken, Hulpmiddelen voor bijlagen (Alles comprimeren, Alles automatisch opslaan...), Verwijder duplicaten en Quick Report...
Stuur altijd een nieuwe e-mail vanaf een specifiek account met VBA-code
Met deze VBA-code kunt u eenvoudig nieuwe e-mails verzenden vanuit een specifiek account in Outlook. Ga als volgt te werk.
1. Druk op anders + F11 om de te openen Microsoft Visual Basic voor toepassingen dialoog venster.
2. Vouw het Project1 > Microsoft Outlook-objecten door erop te dubbelklikken. En dubbelklik vervolgens op het DezeOutlookSessie om de te openen VbaProject.OTM dialoog venster.
3. Kopieer en plak de onderstaande VBA-code in het dialoogvenster.
VBA: stuur altijd een nieuwe e-mail vanaf 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 u de "Uw accountnaam”Naar het e-mailaccount dat u altijd nieuwe e-mails wilt sturen. Zie screenshot:
5. Druk vervolgens op F5 toets op het toetsenbord om de VBA-code uit te voeren.
6. Na het uitvoeren van de VBA-code, een nieuw Bericht venster zal verschijnen, stel uw e-mail op en klik op Verzenden knop om het te verzenden.
Note: Deze VBA-code is met succes getest in Outlook 2007, 2010 en 2013, maar kan niet worden uitgevoerd in Exchange 2007 en 2010.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.