如何使用Excel VBA在Outlook邮件中使用Unicode字符？

Sub SendUnicodeEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim UnicodeChar As String

    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")

    ' 创建新的邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)

    ' 设置邮件主题
    OutlookMail.Subject = "使用Unicode字符的邮件"

    ' 设置收件人
    OutlookMail.To = "recipient@example.com"

    ' 设置邮件正文内容
    UnicodeChar = ChrW(9733) ' 这里以Unicode编码为9733的星号为例
    OutlookMail.Body = "这是一封带有Unicode字符的邮件：" & UnicodeChar

    ' 发送邮件
    OutlookMail.Send

    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub