如何通过电子邮件正文中的超链接从Excel发送电子邮件？

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

根据Excel中的单元格值自动发送电子邮件假设您要基于Excel中指定的单元格值通过Outlook向特定收件人发送电子邮件。 例如，当工作表中单元格D7的值大于200时，将自动创建一封电子邮件。 本文为您介绍了一种VBA方法，可以快速解决此问题。

如果在Excel中单击了按钮，则发送电子邮件 假设您需要通过单击Excel工作表中的按钮来通过Outlook发送电子邮件，该怎么办？ 本文将详细介绍一种VBA方法来实现它。

如果在Excel中已达到到期日期，则发送电子邮件 假设C列中的到期日期少于或等于7天（当前日期为2017/9/13），然后向B列中具有指定内容的A列中的指定收件人发送电子邮件提醒。如何实现？ 本文中的方法可以帮您一个忙。