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

Jak odeslat e-mail s kopírováním a vložením zadaného rozsahu do těla e-mailu v aplikaci Excel?

V mnoha případech může být při e-mailové komunikaci užitečný zadaný rozsah obsahu v listu aplikace Excel. V tomto článku představíme způsob odesílání e-mailu se zadaným rozsahem vkládání do těla e-mailu přímo v aplikaci Excel.

Odesílejte e-maily se zadaným rozsahem vloženým do těla e-mailu v aplikaci Excel
Odesílejte e-maily se zadaným rozsahem vloženým do těla e-mailu pomocí úžasného nástroje

Další výukové programy pro odesílání e-mailů v aplikaci Excel ...


Odesílejte e-maily se zadaným rozsahem vloženým do těla e-mailu v aplikaci Excel

Následující kód VBA vám pomůže zkopírovat rozsah a vložit jej do těla e-mailu aplikace Outlook přímo v aplikaci Excel. Postupujte prosím následovně.

1. V listu obsahuje rozsah, který potřebujete zkopírovat, stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V otvoru Microsoft Visual Basic pro aplikace okno, klikněte prosím Tools > Reference jak je ukázáno níže.

3. V Reference - VBAProject V dialogovém okně vyhledejte a zkontrolujte Objektová knihovna Microsoft Outlook možnost a poté klikněte na OK .

4. cvaknutí Vložit > Modul, potom zkopírujte a vložte níže uvedený kód VBA do okna modulu.

Kód VBA: Odesílejte e-maily se zadaným rozsahem vloženým do těla e-mailu v aplikaci Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Poznámky:

  • 1). Změňte prosím text e-mailu v řádku xEmailBody = "Ahoj" & vbLf & vbLf & "tělo zprávy, kterou chcete přidat" & vbLf & vbLf & xEmailBody & vbNewLine jak potřebujete.
  • 2). Uveďte prosím příjemce e-mailu a předmět (.To = happy.xuebi@163.com a .Subject = "test") řádky v kódu.

5. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah, který je třeba vložit do těla e-mailu, a poté klikněte na ikonu OK knoflík. Viz screenshot:

6. Nyní je vytvořen e-mail se zadaným příjemcem, předmětem, tělem a vybraným rozsahem aplikace Excel, klikněte na ikonu Poslat tlačítko pro odeslání tohoto e-mailu. Zobrazit snímek obrazovky.

Poznámka: Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.


Odesílejte e-maily se zadaným rozsahem vloženým do těla e-mailu pomocí úžasného nástroje

Pokud nepoužíváte aplikaci Outlook a přesto chcete posílat e-maily přímo v aplikaci Excel se zadaným rozsahem dat vloženým dovnitř, velmi doporučuji Odeslat e-maily užitečnost Kutools pro Excel pro tebe. S touto funkcí stačí nakonfigurovat odchozí server e-mailové adresy a poté v budoucnu odesílat e-maily v aplikaci Excel přímo prostřednictvím této e-mailové adresy.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Nejprve musíte připravit seznam adresátů s potřebnými poli.

  • Tipy: Seznam adresátů musí obsahovat alespoň 2 řádky a první řádek musí být záhlaví (Předpokládejme, že chcete posílat e-maily na dvě e-mailové adresy v aplikaci Excel, zadejte tyto dvě e-mailové adresy se záhlavím „E-mail“, jak je zobrazeno na následujícím obrázku obrazovky ).
  • Případně můžete snadno vytvořit seznam adresátů pomocí Vytvořte seznam adresátů vlastnost.

2. Vyberte rozsah, do kterého přidáte data do těla e-mailu, a stiskněte Ctrl + C klíče k jeho kopírování.

3. Vyberte celý seznam adresátů (včetně záhlaví), klepněte na tlačítko Kutools Plus > Odeslat e-maily. Viz snímek obrazovky:

4. Potom Odeslat e-maily objeví se dialogové okno.

  • 4.1) Položky vybraného seznamu adresátů jsou vyplněny v příslušných polích (do seznamu adresátů můžete přidat další pole podle potřeby);
  • 4.2) Klikněte na pole e-mailu a stiskněte Ctrl + V klávesy a vložte do něj vybraná data rozsahu. Poté přidejte další obsah podle potřeby;
  • 4.3 Zrušte zaškrtnutí políčka Odesílejte e-maily prostřednictvím aplikace Outlook krabice;
  • 2.4) Klikněte na Nastavení odchozího serveru knoflík. Viz screenshot:

5. Potom Nastavení odchozího serveru (SMTP) - nové schéma objeví se dialogové okno. Vyplňte prosím e-mailovou adresu s nastavením serveru, po zaškrtnutí uveďte složku pro uložení všech odeslaných e-mailů Uložit odeslané e-maily do a poté klikněte na OK pro uložení nastavení.

6. Když se vrátí do Odeslat e-maily dialogové okno, klepněte na tlačítko Poslat tlačítko pro odeslání e-mailu.

Od této chvíle můžete s touto funkcí odesílat e-maily přímo v aplikaci Excel.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články:

Odesílejte e-maily na e-mailové adresy uvedené v buňkách v aplikaci Excel
Předpokládejme, že máte seznam e-mailových adres a chcete na tyto e-mailové adresy hromadně odesílat e-mailové zprávy přímo v aplikaci Excel. Jak toho dosáhnout? Tento článek vám ukáže způsoby odesílání e-mailů na více e-mailových adres, které jsou uvedeny v buňkách v aplikaci Excel.

Při odesílání e-mailů v aplikaci Excel vložte podpis aplikace Outlook
Předpokládejme, že chcete odeslat e-mail přímo v aplikaci Excel, jak můžete do tohoto e-mailu přidat výchozí podpis aplikace Outlook? Tento článek poskytuje dvě metody, které vám pomohou přidat podpis aplikace Outlook při odesílání e-mailů v aplikaci Excel.

Odesílejte e-maily s více přílohami připojenými v aplikaci Excel
Tento článek hovoří o odesílání e-mailů prostřednictvím aplikace Outlook s více přílohami připojenými v aplikaci Excel.

Pokud byl v aplikaci Excel splněn termín splatnosti, odešlete e-mail
Pokud je například termín splatnosti ve sloupci C menší nebo roven 7 dnům (aktuální datum je 2017/9/13), pošlete e-mailovou upomínku určenému příjemci ve sloupci A se specifikovaným obsahem ve sloupci B. Jak dosáhnout toho? Tento článek poskytne metodu VBA k podrobnému řešení.

Automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel
Předpokládejme, že chcete odeslat e-mail prostřednictvím aplikace Outlook určitému příjemci na základě zadané hodnoty buňky v aplikaci Excel. Například když je hodnota buňky D7 v listu větší než 200, automaticky se vytvoří e-mail. Tento článek představuje metodu VBA pro rychlé vyřešení tohoto problému.

Další výukové programy pro odesílání e-mailů v aplikaci 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 (20)
Hodnocení 4.5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Tento kód je skvělý, ale potřebuji jej provést pomocí příkazového tlačítka namísto stisknutí klávesy F5 v zobrazení kódu. Chtěl bych, aby moji zaměstnanci mohli vyplnit nějaké informace, pak kliknout na tlačítko a nechat zkopírovat rozsah buněk, které vyplnili, a vložit do e-mailu. Mohu získat kód fungující pro tlačítko e-mailu a samostatně pro kopírování/vkládání rozsahu buněk, ale nezdá se mi, že bych obě funkce spojil. Prosím pomozte!!! Dík!
Tento komentář byl moderátorem webu minimalizován
Hi Michael,
Stačí vytvořit tlačítko (například tlačítko (Ovládací prvek formuláře)) v listu a poté k tlačítku přiřadit makro.
Tento komentář byl moderátorem webu minimalizován
Ahoj Crystal, děkuji!
Nechal jsem vytvořit kód a přemýšlel jsem, jak ke kódu přiřadit tlačítko Command. Váš příspěvek pomohl! a moje zpráva funguje jako kouzlo.

Děkuji znovu.
Tento komentář byl moderátorem webu minimalizován
To je skvělé. Funguje podle očekávání. Jediným problémem je, že formát tabulky není v poště zachován. Můžete mi dát vědět, jak zachováme formát tabulky v e-mailu
Tento komentář byl moderátorem webu minimalizován
Hi
Tento kód se liší vynikající, pomocí kódu jsem dokončil 90 % svého projektu.
Mám stejný problém, jaký zmínil Anirudh, tedy formátování tabulky. Jak mohu formátovat tabulku v e-mailu.
Prosím pomozte mi......
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Problém zatím nelze vyřešit. Omlouváme se za nepříjemnosti a děkujeme za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, je nějaká aktualizace níže......
Tento komentář byl moderátorem webu minimalizován
Ahoj, také jsem chtěl kód pro "Filtrovat podle data".
Pracuji na projektu, na tomto projektu jsem chtěl filtrovat data podle data, ve skutečnosti jsme filtrovali/skryli data a posledních 05 dní k aktuálnímu datu a všechna ostatní data jsme zvýraznili.
Prosím, pomozte mi dokončit tento projekt.
Vaše pomoc je pro mě velmi plná.
Tento komentář byl moderátorem webu minimalizován
Kód se automaticky odešle po výběru po ok
Tento komentář byl moderátorem webu minimalizován
toto je vložení jako text. Laskavě navrhněte, jak odeslat tabulku nebo stejný formát, který je zkopírován z excelu.
Tento komentář byl moderátorem webu minimalizován
Zobrazuje se mi chyba kompilace (uživatelsky definovaný typ není definován). Prosím, pomozte mi to překonat.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Přejděte prosím do okna Reference kliknutím na Nástroje > reference. Přejděte dolů, vyhledejte a zaškrtněte políčko Knihovna objektů Microsoft Outlook a kliknutím na tlačítko OK dokončete nastavení.
Tento komentář byl moderátorem webu minimalizován
Ahoj odborníci, máme aktualizace o tom, jak je formát udržován?
Tento komentář byl moderátorem webu minimalizován
ahoj There,
Nemohu na to přijít. Omlouvám se za to.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Místo ručního výběru rozsahu chci rozsah vybrat automaticky.
Tento komentář byl moderátorem webu minimalizován
Ahoj Ramane,
V níže uvedeném kódu prosím nahraďte rozsah "A1:C5" v řádku Set xRg = Range("A1:C5") svým vlastním rozsahem.

Sub Send_Email()
Dim xRg jako rozsah
Dim I, J As Long
Ztlumit xAddress jako řetězec
Dim xEmailBody jako řetězec
Dim xMailOut jako Outlook.MailItem
Dim xOutApp jako Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Nastavit xRg = Range("A1:C5")
Pokud xRg není nic, pak Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Nastavit xMailOut = xOutApp.CreateItem(olMailItem)
Pro I = 1 To xRg.Rows.Count
Pro J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).Value
další
xEmailBody = xEmailBody & vbNewLine
další
xEmailBody = "Ahoj" & vbLf & vbLf & "tělo zprávy, kterou chcete přidat" & vbLf & vbLf & xEmailBody & vbNewLine
S xMailOut
.Předmět = "Test"
.To = "happy.xuebi@163.com"
.Body = xEmailBody
.Zobrazit
'.Poslat
Konec s
Nastavte xMailOut = nic
Nastavte xOutApp = Nic
Application.ScreenUpdating = True
End Sub
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Místo výběru rozsahu chci v Excelu vybrat více pivotů.
můžete mi prosím pomoci.
Tento komentář byl moderátorem webu minimalizován
Ahoj,
můžete mi pomoci níže
Vytvořil jsem excelový list a aktualizoval jsem detaily pošty 10 dodavatelů Poslal jsem poštu přes excel všem 10 dodavatelům s přílohou samostatného listu s individuální poštou.
Chci vložit data aplikace Excel do těla aplikace Outlook namísto přílohy v e-mailu
může mi někdo pomoci
Tento komentář byl moderátorem webu minimalizován
Jediným problémem je, že formát tabulky není udržován v poště. Můžete mi dát vědět, jak zachováme formát tabulky v e-mailu, mám stejný problém, můžete se podívat, jestli byste to mohli aktualizovat, jinak je to skvělé.
Mnohokrát děkuji
Hodnocení 4.5 z 5
Tento komentář byl moderátorem webu minimalizován
Ahoj Andy Mitchell,
Pokud chcete zachovat formát tabulky, může vám pomoci následující skript VBA. Zkuste to prosím. Děkuji.
Sub Send_Email()
'Updated by Extendoffice 20220616
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .HTMLBody = RangetoHTML(xRg)
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 ' The following VBA script is cited from this page:
 ' https://stackoverflow.com/questions/18663127/paste-excel-range-in-outlook
Function RangetoHTML(rng As Range)
' By Ron de Bruin.
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění