Note: The other languages of the website are Google-translated. Back to English

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:

dokument-e-mail-list1

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:

dokument-e-mail-list2

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

dokument-e-mail-list3

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:

dokument-e-mail-list4

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:

dokument-e-mail-list5

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.

dokument-e-mail-list6


š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.

dokument-e-mail-list6

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

Projekt 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
Komentáře (30)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Jak přidáte více příjemců ve druhém příkladu pomocí kódu VBA?
Tento komentář byl moderátorem webu minimalizován
to funguje, ale jak můžeme automaticky přidat do kopie odesílatele?
Tento komentář byl moderátorem webu minimalizován
Když použiji kód VBA k odeslání jako pdf, e-mail se odešle v pořádku, ale nemá žádnou přílohu. Co dělám špatně? Díky, Chanda
Tento komentář byl moderátorem webu minimalizován
Dostal jsi za to odpověď? Také mám stejné potíže.
Tento komentář byl moderátorem webu minimalizován
Ahoj chci poslat pouze vybrané buňky přes příkazové tlačítko v excelu na účtenky přes outlook.
Tento komentář byl moderátorem webu minimalizován
Připojil jsem odeslat příjemci e-mailu, ale není aktivován, když kliknu na odeslání excelu. co dělám špatně?
Tento komentář byl moderátorem webu minimalizován
Snažím se odeslat více rozsahů názvů v rámci daných sešitů jako PDF přes Outlook. Automatizace otevírání a zavírání mnoha sešitů. Nejsem si jistý, jak upravit níže uvedený kód, který funguje skvěle při odesílání listu se všemi novými verzemi na notebooku. Posílal jsem každou noc několik zpráv ze svého stolu Windows 7 Excel a Outlook 10 Adobe Acrobat Pro 10 a pokoušel jsem se překonfigurovat tak, aby to samé dělalo na notebooku s upgradovanými verzemi Windows 8.1 Office 15 a Adobe Acrobat Xl. Vaše doporučené kódy pro odesílání sešitů Sub SendWorkSheetToPDF() 'Aktualizace 20131209 Dim Wb jako sešit Dim FileName jako řetězec Dim OutlookApp jako objekt Dim OutlookMail jako objekt Při chybě Pokračovat Další sada Wb = Application.ActiveWorkbook FileName = Wb.FullBAme.InStrvdex = VB.FullBAme xInStrvdex 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 = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "Outlook Code" .Body = "Prosím, zkontrolujte a přečtěte si tento dokument." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Nic Set OutlookApp = Nothing End Sub
Tento komentář byl moderátorem webu minimalizován
Jime, musíte přidat; za e-mailovou adresu a přidejte další, viz příklad níže: .To = "jbristow1@gmail.com; někdo@gmail.com; onemoreperson@gmail.com"
Tento komentář byl moderátorem webu minimalizován
Ahoj, používám tento kód, ale mám problém s odesíláním. Není to velký problém, ale nelíbí se mi to :-) Před odesláním souboru poštou nejprve automaticky uložím soubor na určité místo přes VBA. Soubor již má název končící na .xlsx Při odesílání souboru e-mailem se v příloze přečte .xlsx.xlsx, takže k souboru přidá .xslx. Ví někdo, jestli mohu ignorovat ukládání před odesláním jako přílohu? Už to mám uložené před odesláním... Díky,
Tento komentář byl moderátorem webu minimalizován
Druhý příklad výše používám k odeslání jednoho listu ze sešitu, ale odesílá se celý sešit. Zkopíroval jsem výše uvedený příklad a jediná část, kterou jsem změnil, byla e-mailová adresa. Nejsem si jistý, co je špatně.
Tento komentář byl moderátorem webu minimalizován
Používám výše uvedený kód k odeslání jednoho listu jako přílohy aplikace Excel, problém, který mám, je, že odesílá celý sešit, nejen jeden list. Změnil jsem pouze „Komu“, „Předmět“ a „Tělo“ e-mailu. Nejsem si jistý, co se pokazilo. Pomoc prosím! :smutný:
Tento komentář byl moderátorem webu minimalizován
[quote]Používám výše uvedený kód k odeslání jednoho listu jako přílohy aplikace Excel, problém, který mám, je, že odesílá celý sešit, ne pouze jeden list. Změnil jsem pouze „Komu“, „Předmět“ a „Tělo“ e-mailu. Nejsem si jistý, co se pokazilo. Pomoc prosím! :smutný:Od Janet[/quote] Dobrý den, sdělte mi prosím informace o verzi vašeho Office a počítačového systému.
Tento komentář byl moderátorem webu minimalizován
Ahoj, používám Office 2010 a Windows 7. Díky!
Tento komentář byl moderátorem webu minimalizován
[quote]Ahoj, používám Office 2010 a Windows 7. Díky!Od Janet[/quote] Dobrý den, tento VBA je v pořádku s Office 2010 ve Windows 7. Před spuštěním tohoto VBA se prosím ujistěte, že máte otevřený Outlook.
Tento komentář byl moderátorem webu minimalizován
Snažím se použít tento kód k odeslání jedné tabulky pomocí osobně vytvořeného souboru *.ost šablony, který se nachází na disku c:\. Nezdá se, že bych přišel na to, jak tomu přizpůsobit kód výše. Nějaké ukazatele?
Tento komentář byl moderátorem webu minimalizován
Odešlete jeden list jako přílohu z Excelu s kódem VBA: Vynikající kód VBA. Funguje SKVĚLE!!! Děkuji!!! :-) Namísto ručního zadávání e-mailů Komu: & Kopie: chci vytáhnout e-mailové adresy ze samostatného listu s názvem "Seznam e-mailů". (a1) má e-mailovou adresu „Komu“ a (b1) má e-mailovou adresu „CC“. Vím, že je to relativně jednoduché vyřešit, ale nemůžu přijít na to, co dělám špatně. Všem předem děkuji. Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat With OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Zkontrolujte a přečtěte si tento dokument." .Attachments.Add Wb2.FullName .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Nic Set OutlookApp = Nic Application.ScreenUpdating = True End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, ve své firmě používám proces automatizace Potřebuji upgradovat všechny své PC pomocí Excelu a Outlooku 2010 Mám kód ve Windows xp, se kterým posílám list pomocí outlook Express, kód v xp funguje dobře, ale teď mi je potřeba jej upgradovat na Windows 7. Zkoušel jsem toho hodně, ale nemůžu poslat list, tak pls pomozte
Tento komentář byl moderátorem webu minimalizován
Ahoj makro mi funguje naprosto v pohodě. Nikdy předtím jsem makra nepoužil, takže může mě někdo prosím uvést správným směrem - Snažím se to poslat více než jedné osobě, ale nejsem si jistý, jak vložit další e-mailové adresy do sekce "kom" makra. Díky předem
Tento komentář byl moderátorem webu minimalizován
Ahoj, jsem Francouz, omlouvám se za moji angličtinu. Jak je možné vložit buňku hodnoty mého listu do .too/ .CC... Myslím, že je to jako: Sub SendWorkSheet() 'Aktualizace 20131209 Dim xFile As String Dim xFormat As Long Dim Wb As Workbook Dim Wb2 As Workbook Ztlumit cestu k souboru jako řetězec Ztlumit název souboru jako řetězec Ztlumit OutlookApp jako objekt Ztlumit OutlookMail jako objekt při chybě Obnovit další Application.ScreenUpdating = False Nastavit Wb = Application.ActiveWorkbook ActiveSheet.Copy Set Wb2 = Application.ActiveWorkbook Vybrat případ Wb.FileFormat Případ xlOpenXMLWork = ".xlsx" xFormat = xlOpenXMLWorkbook Case xlOpenXMLWorkbookMacroEnabled: If Wb2.HasVBProject Then xFile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Else xFile = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat = ".xlsx" xFormat x8. : xFile = ".xlsb" xFormat = xlExcel8 End Vybrat FilePath = Environ$("temp") & "\" FileName = Wb.Name & Format(Nyní, "dd-mmm-yy h-mm-ss") Nastavit aplikaci OutlookApp = CreateObject("Outlook.Application") Nastavit OutlookMail = OutlookApp.Cre ateItem(12) Wb12.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat With OutlookMail .To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12") .CC = "" & RANGE("AVIVA!c12") .BCC = "" .Subject = "NOUVEAU DOSSIER" .body = "Prosím, zkontrolujte a přečtěte si tento dokument." .Attachments.Add Wb2.FullName .DISPLAY .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Nic Set OutlookApp = Nic Application.ScreenUpdating = True End Sub děkuji za pomoc
Tento komentář byl moderátorem webu minimalizován
Můžeme uživateli povolit přidat e-mailové ID s výše uvedeným kódem... Funguje to opravdu dobře, pokud zmíníme ID e-mailu ...
Tento komentář byl moderátorem webu minimalizován
Pane, mohu poslat vybraný pracovní list jako přílohu včetně předmětu a textu. Ale název souboru se zobrazuje jako book1-02-apr-2016.... Místo toho chci uvést název souboru v samotném kódu (stejný název bude pokračovat při každém odeslání) Laskavě mi pomozte
Tento komentář byl moderátorem webu minimalizován
Prosím, naléhavě mi pomozte. Toto je poprvé, co používám odeslat aktuální list jako PDF, ale níže uvedený kód vůbec nefungoval a dialog pro povolení se nezobrazil, když stisknu ctrl+G. Chci také vědět, co změnit, abych odkazoval na buňku, která obsahovala e-mailovou adresu místo „na konkrétní e-mailovou adresu. Sub SendWorkSheetToPDF() 'Aktualizace 20131209 Dim Wb As Workbook Dim FileName as String Dim OutlookApp As Object Dim OutlookMail As Object On Chyba Pokračovat Další sada 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 Typ:=xlTypePDF, FileName:=FileName Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) S OutlookMail .To = "skyyang @extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Zkontrolujte a přečtěte si tento dokument." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Nic Set OutlookApp = Nic End Sub
Tento komentář byl moderátorem webu minimalizován
Tento kód funguje dobře, ale ví někdo způsob, jak automatizovat pole jako upozornění, že e-mail bude automaticky odeslán na základě sloupce data?
Tento komentář byl moderátorem webu minimalizován
Ahoj! Je možné tento kód použít, ale místo odeslání rovnou otevře poštu?
Tento komentář byl moderátorem webu minimalizován
Můžete zkusit tento kód:
Dílčí SendWorkSheet()
'Aktualizace 20180109
Dim xFile As String
Dim xFormat As Long
Dim Wb jako sešit
Dim Wb2 jako sešit
Dim FilePath jako řetězec
Dim název_souboru jako řetězec
Ztlumit aplikaci OutlookApp jako objekt
Ztlumit OutlookMail jako objekt
On Error Resume Next
Application.ScreenUpdating = False
Nastavte Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Nastavte Wb2 = Application.ActiveWorkbook
Vyberte Case Wb.FileFormat
Pouzdro xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
Pokud Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Jiný
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Případ Excel8:
xFile = ".xls"
xFormat = Excel8
Případ xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Konec Vybrat
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Nyní, "dd-mmm-yy h-mm-ss")
Nastavit OutlookApp = CreateObject("Outlook.Application")
Nastavit OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
S OutlookMailem
.To = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "kte funkce"
.Body = "Zkontrolujte a přečtěte si tento dokument."
.Přílohy.Přidat Wb2.FullName
.Zobrazit
Odeslat
Konec s
Wb2.Zavřít
Zabijte FilePath & FileName & xFile
Nastavit OutlookMail = nic
Nastavit OutlookApp = nic
Application.ScreenUpdating = True
End Sub

Dejte mi prosím vědět, jestli vám to funguje, děkuji.
Tento komentář byl moderátorem webu minimalizován
Každopádně můžu snadno poslat excelový list přes můj outlook bez toho všeho? Mohu poslat kontext listu, ale ne sešit jako přílohu. Na svém pracovním počítači mohu posílat z wordu a excelu, ale mám problémy doma.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění