Excel vba:邮件正文范围-超链接剪切

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MailBody As String
    Dim Hyperlink As String
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件主题
    OutlookMail.Subject = "邮件主题"
    
    ' 设置邮件正文范围
    MailBody = "邮件正文内容"
    
    ' 插入超链接
    Hyperlink = "https://www.example.com"
    MailBody = MailBody & vbCrLf & "<a href='" & Hyperlink & "'>点击这里</a>查看更多信息。"
    
    ' 将超链接剪切到指定位置
    MailBody = Replace(MailBody, "<a href='", "")
    MailBody = Replace(MailBody, "'>", "")
    
    ' 设置邮件正文
    OutlookMail.HTMLBody = MailBody
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub