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

Jak odeslat e-mail z aplikace Excel s hypertextovým odkazem v těle e-mailu?

Zkoušeli jste někdy poslat e-mail s kódem VBA v Excelu? A jak přidat hypertextové odkazy do textu e-mailu při odesílání e-mailu? Tento článek pomůže vyřešit tento problém.

Vložte hypertextový odkaz do těla e-mailu pomocí kódu VBA


Vložte hypertextový odkaz do těla e-mailu pomocí kódu VBA

Níže uvedený kód VBA vám pomůže odeslat e-mail z aplikace Excel a vložit konkrétní hypertextový odkaz do těla e-mailu. Postupujte prosím následovně.

1. Spusťte sešit a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, a poté zkopírujte níže uvedený kód VBA do editoru modulů.

Kód VBA: Vložte hypertextový odkaz do těla e-mailu

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

Poznámky:

  • Změňte obsah těla a hypertextový odkaz v souboru xStrBody čára.
  • Nahradit "Emailová adresa"V . Pro, .CC a .BCC řádky se skutečnými e-mailovými adresami, na které budete posílat e-maily. Pokud řádky CC a BCC nepotřebujete, jednoduše je odstraňte z celého kódu nebo před řádky přidejte jednu nabídku, například „CC =” e-mailová adresa ”.
  • Nahradit "Předmět"V .Předmět řádek s vlastním předmětem e-mailu.

3. zmáčkni F5 klíč ke spuštění kódu. Poté je e-mail vytvořen se zadanými poli a tělem s hypertextovým odkazem uvedeným uvnitř, kliknutím na tlačítko Odeslat jej odešlete.


Související články

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.

Pokud kliknete na tlačítko v aplikaci Excel, odešlete e-mail
Jak předpokládáte, že potřebujete odesílat e-maily prostřednictvím Outlooku kliknutím na tlačítko v listu aplikace Excel? Tento článek podrobně představí metodu VBA.

Pokud byl v aplikaci Excel splněn termín splatnosti, odešlete e-mail
Předpokládejme, že datum splatnosti ve sloupci C je menší nebo rovno 7 dnům (aktuální datum je 2017/9/13), pak pošlete e-mailovou upomínku určenému příjemci ve sloupci A se specifikovaným obsahem ve sloupci B. Jak toho dosáhnout? Metoda v tomto článku vám může udělat laskavost.


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 (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
tento kód je skvělý, ale jak poslat aktuální excelový list e-mailem?
Tento komentář byl moderátorem webu minimalizován
část "xStrBody" můžete použít v jiném e-mailovém kódu, který nyní používáte. v opačném případě vyhledejte „e-mailový kód z Excelu do Outlooku“.
Tento komentář byl moderátorem webu minimalizován
používáte část "xStrBody" ve svém stávajícím kódu, ostatní prohledávejte v Excelu e-mailový kód online a použijte tuto část "xStrBody".
Tento komentář byl moderátorem webu minimalizován
prosím, potřebuji pomoc, nefunguje to, když jsou v odkazu mezery pro ex cestu k souboru MsgBox "C:\Users\Desktop\fs caché\Fusion fichier\TENDERING.xlsm"
xstrbody = "Žádost o schválení, K souboru máte přístup z " & " zde "
odkaz bude v tomto případě: C:\Users\Desktop\fmáte nějaký nápad?
Tento komentář byl moderátorem webu minimalizován
Můžete použít: xstrbody = "Žádost o schválení, K souboru máte přístup z " & " zde "
Tento komentář byl moderátorem webu minimalizován
na můj odkaz nelze kliknout a já nevím proč.

"Prosím vytiskněte " a "Telefonní kódy "

Odkaz se zobrazí, ale musím kliknout pravým tlačítkem na e-mail, aby se otevřel. Nějaké návrhy? Navíc toho o VBA moc nevím. To je něco nového, co se učím sám.
Tento komentář byl moderátorem webu minimalizován
Ahoj Maryanne,
Ve výchozím nastavení se při psaní e-mailu hypertextové odkazy otevírají kliknutím a stisknutím nebo podržením klávesy Ctrl.
Pokud chcete otevřít hypertextový odkaz pouze jedním kliknutím, vypněte tuto funkci následovně.
1. V aplikaci Outlook klepněte na Soubor > možnosti.
2. V Možnosti aplikace Outlook , klepněte na tlačítko OK Poštovní zásilka v levém podokně a poté klikněte na Možnosti editoru tlačítko v Psaní zpráv sekce;
3. V Možnosti editoru , klepněte na tlačítko OK pokročilý v levém podokně a poté zrušte zaškrtnutí políčka Použijte klávesy CTRL + Klepněte na následující hypertextový odkaz zaškrtávací políčko. Viz snímek obrazovky:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/hyperlink.png
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í