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 = ""
        .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 = 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.

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.

Související články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖	Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
	Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
	Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
	Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
	Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
	Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
	Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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

Čtěte více... Stažení zdarma...

---

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!

Čtěte více... Stažení zdarma...