如何在使用VBA发送的电子邮件中设置"高重要性"？

Sub SendHighImportanceEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的重要性为高
    OutlookMail.Importance = 2
    
    ' 设置邮件的其他属性，如收件人、主题、正文等
    OutlookMail.To = "recipient@example.com"
    OutlookMail.Subject = "Important Email"
    OutlookMail.Body = "This is an important email."
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub