如何通過電子郵件正文中的超鏈接從Excel發(fā)送電子郵件？

您是否嘗試過在 Excel 中發(fā)送帶有 VBA 代碼的電子郵件？ 以及如何在發(fā)送電子郵件時(shí)為電子郵件正文添加超鏈接？ 這篇文章將有助于解決這個(gè)問題。

使用VBA代碼將超鏈接插入電子郵件正文

使用VBA代碼將超鏈接插入電子郵件正文

下面的VBA代碼可以幫助從Excel發(fā)送電子郵件并在電子郵件正文中插入特定的超鏈接。 請(qǐng)執(zhí)行以下操作。

1.啟動(dòng)您的工作簿，按 其他 + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊然后將下面的VBA代碼復(fù)制到模塊器中。

VBA代碼：將超鏈接插入電子郵件正文

Sub EmailHyperlink()updated by Extendoffice 20190815Dim xOtl As ObjectDim xOtlMail As ObjectDim xStrBody As StringxStrBody = "Hi there:" & "<br>" _& "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _& "Thank you."On Error Resume NextSet 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.DisplayEnd WithSet xOtl = NothingSet xOtlMail = NothingEnd Sub

筆記：

請(qǐng)更改正文內(nèi)容和中的超鏈接 xStrBody線。更換 ”電子郵件“ 在里面 要, .CC 和。BCC 您將向其發(fā)送電子郵件的實(shí)際電子郵件地址的行。 如果不需要CC和BCC行，只需將它們從整個(gè)代碼中刪除，或在行之前添加單引號(hào)，例如 CC =“電子郵件地址”.更換 ”主題行“ 在里面 。學(xué)科 與您的電子郵件主題一致。

3。 按 F5 鍵來運(yùn)行代碼。 然后，將使用指定的字段和正文創(chuàng)建電子郵件，并在其中列出超鏈接，單擊“發(fā)送”按鈕將其發(fā)送。

相關(guān)文章

根據(jù)Excel中的單元格值自動(dòng)發(fā)送電子郵件假設(shè)您要基于Excel中指定的單元格值通過Outlook向特定收件人發(fā)送電子郵件。 例如，當(dāng)工作表中單元格D7的值大于200時(shí)，將自動(dòng)創(chuàng)建一封電子郵件。 本文為您介紹了一種VBA方法，可以快速解決此問題。

如果在Excel中單擊了按鈕，則發(fā)送電子郵件 假設(shè)您需要通過單擊Excel工作表中的按鈕來通過Outlook發(fā)送電子郵件，該怎么辦？ 本文將詳細(xì)介紹一種VBA方法來實(shí)現(xiàn)它。

如果在Excel中已達(dá)到到期日期，則發(fā)送電子郵件 假設(shè)C列中的到期日期少于或等于7天（當(dāng)前日期為2017/9/13），然后向B列中具有指定內(nèi)容的A列中的指定收件人發(fā)送電子郵件提醒。如何實(shí)現(xiàn)？ 本文中的方法可以幫您一個(gè)忙。

最佳辦公生產(chǎn)力工具

熱門特色: 查找、突出顯示或識(shí)別重復(fù)項(xiàng) |刪除空白行 |合并列或單元格而不丟失數(shù)據(jù) | 不使用公式進(jìn)行四舍五入...超級(jí)查詢: 多條件VLookup|多值VLookup| 跨多個(gè)工作表的 VLookup | 模糊查詢....高級(jí)下拉列表: 快速創(chuàng)建下拉列表 |依賴下拉列表 |多選下拉列表....列管理器: 添加特定數(shù)量的列 | 移動(dòng)列 | 切換隱藏列的可見性狀態(tài) | 比較范圍和列...特色功能: 網(wǎng)格焦點(diǎn) |設(shè)計(jì)圖 | 大方程式酒吧 |工作簿和工作表管理器|資源庫 （自動(dòng)文本）|日期選擇器|合并工作表 |加密/解密單元格 |按列表發(fā)送電子郵件 |超級(jí)篩選 | 特殊過濾器 （過濾粗體/斜體/刪除線...）...前 15 個(gè)工具集: 12 文本 工具 (添加文本, 刪除字符，...） | 50+ 圖表 類型 (甘特圖，...） | 40+ 實(shí)用 公式 (根據(jù)生日計(jì)算年齡，...） | 19 插入 工具(插入二維碼, 從路徑插入圖片，...）| 12 轉(zhuǎn)化 工具 (小寫金額轉(zhuǎn)大寫, 貨幣兌換，...） | 7 合并與拆分 工具 (高級(jí)組合行, 分裂細(xì)胞，...） | ... 和更多

使用 Kutools for Excel 增強(qiáng)您的 Excel 技能，體驗(yàn)前所未有的效率。 Kutools for Excel 提供了 300 多種高級(jí)功能來提高生產(chǎn)力并節(jié)省時(shí)間。 單擊此處獲取您最需要的功能...

Office Tab 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更加輕松在Word，Excel，PowerPoint中啟用選項(xiàng)卡式和閱讀，發(fā)布者，Access，Visio和Project。在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！