Jak odeslat aktuální sešit prostřednictvím aplikace Outlook z aplikace Excel?
Možná vždy vytvoříte a upravíte zprávu v sešitu aplikace Excel, po jejím dokončení musíte co nejdříve odeslat aktuální uloženou zprávu svému vedoucímu oddělení. Jak můžete rychle odeslat celý svůj aktuální sešit konkrétní osobě, aniž byste otevřeli Outlook z Excelu?
Odeslat aktuální sešit prostřednictvím Outlooku jako přílohu z Excelu s kódem VBA
Odeslat aktuální sešit prostřednictvím aplikace Outlook z aplikace Excel pomocí příkazu Uložit a odeslat
S tím Uložit a odeslat V aplikaci Excel můžete pomocí aplikace Outlook rychle odeslat celý sešit jako přílohu, jako soubor PDF, jako soubor XPS nebo internetový fax. Můžete to udělat takto:
1. Otevřete sešit, který chcete odeslat.
2. cvaknutí Soubor > Uložit a odeslat > Odeslat pomocí e-mailu v aplikaci Excel 2010, viz screenshot:
Tipy: Pokud používáte Excel 2007, klikněte prosím Tlačítko Office > Poslat, viz screenshot:
V aplikaci Excel 2013 klikněte prosím Soubor > Share > email, viz screenshot:
3. Pak vyberte jeden formát, ze kterého chcete odeslat Excel jako z Odesílání pomocí e-mailu sekce, v tomto případě kliknu Odeslat jako přílohu tlačítko ikony, viz screenshot:
4. A objeví se editační okno aplikace Outlook, zadejte jména příjemců do Na a Cc textová pole a zadejte předmět do Předmět Do pole Úvod můžete také zadat nějakou zprávu, viz screenshot:
Poznámky:
1. Tato metoda funguje pouze v případě, že jako poštovní program používáte Outlook.
2. Po odeslání sešitu můžete přejít do Outlooku a zkontrolovat, zda byl e-mail úspěšně odeslán.
Odeslat aktuální sešit prostřednictvím Outlooku jako přílohu z Excelu s kódem VBA
Zde můžete také poslat aktuální sešit jako přílohu z aplikace Excel s následujícím kódem VBA, proveďte následující kroky:
1. Otevřete sešit, který chcete odeslat.
2. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: odeslání aktuálního sešitu jako přílohy z aplikace Excel
Sub SendWorkBook()
'Update 20131209
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "kte feature"
.Body = "Hello, please check and read this document, thank you."
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Poznámka: Ve výše uvedeném kódu můžete podle svých potřeb změnit následující informace.
- .to = ""
- .CC = ""
- .BCC = ""
- .Subject = "funkce kte"
- .Body = "Dobrý den, prosím zkontrolujte a přečtěte si tento dokument, děkuji."
4. Pak klikněte na tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí okno s výzvou, klepněte na povolita tento sešit byl odeslán.
Poznámky:
1. Tento kód je k dispozici, pouze pokud používáte Outlook jako poštovní program.
2. Po odeslání sešitu můžete přejít do Outlooku a ověřit, zda byl e-mail úspěšně odeslán.
Související články:
Jak odeslat list pouze prostřednictvím aplikace Outlook z aplikace Excel?
Jak odeslat / poslat e-mailem rozsah buněk pomocí aplikace Outlook z aplikace Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!