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 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 tlačítko.

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
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.
  • To post as a guest, your comment is unpublished.
    Yogesh Girase · 8 months ago
    hello,

    can you help me on below

    I have create excel sheet & updated 10 supplier mail detail
    I have send mail through excel to all 10 supplier with individual sheet attachment with individual mail.

    I want to paste excel data in outlook body instead of attachment in mail

    can any one help me

  • To post as a guest, your comment is unpublished.
    Arul · 1 years ago
    Hi,
    Instead of selecting the range, I want to select multiple pivots in the excel.
    can you please help me.
  • To post as a guest, your comment is unpublished.
    Raman · 1 years ago
    Hi,
    Instead of selecting the range manually, I want to select the range automatically.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Raman,
      In the below code, please replace the range "A1:C5" in line Set xRg = Range("A1:C5") with your own range.

      Sub Send_Email()
      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 = Range("A1:C5")
      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
  • To post as a guest, your comment is unpublished.
    Ther · 1 years ago
    Hi experts, Do we have updates on how the format maintained?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Ther,
      Can't figure it out. Sorry for that.
  • To post as a guest, your comment is unpublished.
    Gowtham · 2 years ago
    i am seeing a compile error (User-defined type not defined". Please help me out to overcome this.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      Please get into the Reference window by clicking Tools > references. Scroll down to find and check the Microsoft Outlook Object Library box and click the OK button to finish the setting.
  • To post as a guest, your comment is unpublished.
    sachin kumr · 2 years ago
    this is pasting as a text. Kindly suggest how to send the table or the same format which is copied from the excel.
  • To post as a guest, your comment is unpublished.
    miguel · 2 years ago
    Code to send automatically after selecting after ok
  • To post as a guest, your comment is unpublished.
    Dhiraj Mahajan · 2 years ago
    Hi
    This code is vary excellent, by using the code i have completed my 90% of my project.
    I have same issue as mentioned by Anirudh that is table formatting. How can i format the table in email.
    Please help me......
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good Day,
      The problem can't be solved yet. Sorry for the inconvenience and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        mahajand09@gmail.com · 2 years ago
        Hi, Is there any update on below.......
        • To post as a guest, your comment is unpublished.
          mahajand09@gmail.com · 2 years ago
          Hi, Also I Wanted code for "Filter by Date".
          I am working on project, on that project I wanted to filter the data by the date, actually we have filter/hide the and last 05 days to current date data and we have highlight all other data.
          Please help me to complete this project.
          Your help is very great-full for me.
  • To post as a guest, your comment is unpublished.
    ghosh · 2 years ago
    This is great. It is working as expected. The only issue is that the format of the table is not maintained in the mail. Can you let me know how do we preserve the format of the table in the mail
  • To post as a guest, your comment is unpublished.
    mfergus · 2 years ago
    This code is great, but I need to execute with a command button rather than pressing F5 in code view. I'd like my employees to be able to fill out some info, then hit the button and have it copy the range of cells they completed and paste into email. I can get code working for the email button and separately for the copy/paste of the range of cells, but can't seem to combine both functions. Please help!!! Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Michael,
      You just need to create a button (such as a Button (Form Control)) in your worksheet, then assign the macro to the button.
      • To post as a guest, your comment is unpublished.
        prasana05@gmail.com · 1 years ago
        Hi Crystal, Thank you!
        I had a code created and was wondering how to assign the Command button to the code. Your post helped! and my report works like a charm.

        Thanks again.