Přejít k hlavnímu obsahu

Jak vždy odeslat nový e-mail z konkrétního účtu v aplikaci Outlook?

Předpokládejme, že jste v aplikaci Outlook vytvořili více e-mailových účtů, při odesílání e-mailu v aplikaci Outlook závisí e-mailový účet zobrazený v poli Od na tom, ve kterém účtu se právě nacházíte. Bez ohledu na to, ve kterém účtu se právě nacházíte, chcete vždy odesílat nové e-maily z konkrétního e-mailového účtu, může vám pomoci následující výukový program, metoda v tomto výukovém programu vám může pomoci.

Vždy pošlete nový e-mail z konkrétního účtu s kódem VBA

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

šipka modrá pravá bublinaVždy pošlete nový e-mail z konkrétního účtu s kódem VBA

Tento kód VBA vám pomůže snadno odesílat nové e-maily z konkrétního účtu v aplikaci Outlook. Postupujte prosím následovně.

1. Stiskněte Další + F11 k otevření Microsoft Visual Basic pro aplikace dialogové okno.

2. Rozbalte Project1 > Objekty Microsoft Outlook dvojitým kliknutím na ně. A potom dvakrát klikněte na ThisOutlookSession k otevření VbaProject.OTM dialogové okno.

3. Zkopírujte a vložte níže uvedený kód VBA do dialogového okna.

VBA: vždy pošlete nový e-mail z konkrétního účtu.

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. Nyní musíte změnit „Název vašeho účtu„Na e-mailový účet, na který chcete vždy posílat nové e-maily. Viz snímek obrazovky:

5. Poté stiskněte F5 klávesu na klávesnici pro spuštění kódu VBA.

6. Po spuštění kódu VBA nový Zpráva Otevře se okno, zadejte prosím svůj e-mail a klikněte Poslat tlačítko pro odeslání.

Poznámka: Tento kód VBA byl úspěšně otestován v Outlooku 2007, 2010 a 2013, ale neprovádí se na Exchange 2007 a 2010.

 


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

 

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