VBA中的电子邮件:添加链接

Sub AddLinkToEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim olInsp As Object
    Dim olLink As Object
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件项
    Set olMail = olApp.CreateItem(0)
    
    ' 获取邮件的编辑区域
    Set olInsp = olMail.GetInspector
    
    ' 在编辑区域中创建链接
    Set olLink = olInsp.WordEditor.Hyperlinks.Add(olInsp.WordEditor.Range, "https://www.example.com", , , "点击这里访问示例网站")
    
    ' 显示邮件
    olMail.Display
    
    ' 释放对象
    Set olLink = Nothing
    Set olInsp = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
End Sub