Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

Jak odeslat list pouze prostřednictvím aplikace Outlook z aplikace Excel?

Pokud chcete poslat e-mailem jeden list ze sešitu v aplikaci Excel prostřednictvím aplikace Outlook, můžete list odeslat jako přílohu, jako hlavní obsah nebo jako soubor PDF. Existují však nějaké rychlejší způsoby, jak se s tímto problémem vypořádat v aplikaci Excel?

Odeslat jeden list jako tělo z aplikace Excel pomocí příkazu Odeslat příjemci pošty

Jeden list odešlete jako přílohu z Excelu s kódem VBA

Posílejte jeden list jako soubor PDF z aplikace Excel s kódem VBA


šipka modrá pravá bublina Odeslat jeden list jako tělo z aplikace Excel pomocí příkazu Odeslat příjemci pošty

Excel nás podporuje při zasílání aktivního listu jako obsahu těla pomocí příkazu Odeslat příjemci pošty. Můžete postupovat následovně:

Pokud používáte Excel 2007, 2010 nebo 2013, musíte toto přidat Odeslat příjemci pošty příkaz do příkazového řádku Panel nástrojů Rychlý přístup jako první.

1. Klikněte na ikonu Přizpůsobte panel nástrojů Rychlý přístup, a vyberte Další příkazy, viz screenshot:

doc-email-sheet1

2. A v Možnosti aplikace Excel dialogové okno vyberte Příkazy nejsou na pásu karet v Vyberte Příkazy z rozevírací seznam a poté vyberte Odeslat příjemci pošty a klepněte na tlačítko Přidat >> tlačítko pro přidání tohoto příkazu, na poslední kliknutí OK pro uložení tohoto nastavení. Viz snímek obrazovky:

doc-email-sheet2

3. Společnost Odeslat příjemci pošty příkaz byl vložen do Panel nástrojů Rychlý přístup, viz screenshot:

doc-email-sheet3

4. Poté klikněte na toto Odeslat příjemci pošty ikona a v okně se objeví okno s výzvou E-mail zaškrtněte políčko Odeslat aktuální list jako tělo zprávy, a klepněte na tlačítko OK. Viz snímek obrazovky:

doc-email-sheet4

5. A nad daty listu se zobrazí editační pole e-mailu, do příslušného textového pole můžete zadat své příjemce, předmět a úvod. Viz snímek obrazovky:

doc-email-sheet5

6. Pak klikněte na tlačítko Pošlete tuto Sheet odeslat tento aktivní list jako tělo zprávy vaší konkrétní osobě.


šipka modrá pravá bublina Jeden list odešlete jako přílohu z Excelu s kódem VBA

Pokud byste chtěli poslat aktivní list jako přílohu e-mailem, může vám to poskytnout následující kód VBA.

1. Aktivujte list, 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 listu jako přílohy z aplikace Excel

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
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 = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "kte funkce"
  • .Body = "Zkontrolujte a přečtěte si tento dokument."

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 povolit když je indikátor průběhu dokončen, a aktuální list byl odeslán příjemci jako příloha.

doc-email-sheet6


šipka modrá pravá bublina Posílejte jeden list jako soubor PDF z aplikace Excel s kódem VBA

Někdy je třeba poslat zprávu o listu ostatním, ale nechcete, aby ji ostatní upravovali. V takovém případě můžete list odeslat jako soubor PDF z aplikace Excel.

1. Aktivujte list, 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 listu jako souboru PDF z aplikace Excel

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Poznámka: Ve výše uvedeném kódu můžete podle potřeby změnit následující informace.

  • .To = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .Subject = "kte funkce"
  • .Body = "Zkontrolujte a přečtěte si tento dokument."

4. Pak stiskněte tlačítko F5 a zobrazí se okno s výzvou, klepněte na povolit po dokončení lišty postupu byl aktivní list odeslán konkrétní osobě jako soubor PDF.

doc-email-sheet6

Poznámky:

1. Tyto metody jsou k dispozici, pouze pokud používáte Outlook jako poštovní program.

2. Po odeslání aktuálního listu můžete přejít do aplikace Outlook a ověřit, zda byl e-mail úspěšně odeslán.


Vytvořte seznam adresátů a poté odešlete e-maily

Společnost Kutools pro Excel's Vytvořte seznam adresátů  a  Poslat E-maily nástroje mohou rychle vytvořit seznam adresátů v listu a poté odeslat stejný předmět, stejný obsah a stejné přílohy na více e-mailových adres.
seznam adresátů dokumentů 1
šipka dokumentu dolů
seznam adresátů dokumentů 2

Související články:

Jak odeslat aktuální sešit prostřednictvím aplikace Outlook z aplikace Excel?

Jak odeslat / poslat e-mailem rozsah buněk pomocí aplikace Outlook z aplikace Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.