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
- Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
- Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
- Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
- Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...
Vž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
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? 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 Pro: Dá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.