outlook电子邮件的哪种vba代码根据单元格在.send或.display之间进行选择

Sub SendOrDisplayEmail()
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim cellValue As String
    
    ' 获取单元格的值
    cellValue = Range("A1").Value
    
    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件对象
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' 根据单元格的值选择发送或显示邮件
    If cellValue = "Send" Then
        outlookMail.Send
    ElseIf cellValue = "Display" Then
        outlookMail.Display
    Else
        MsgBox "Invalid cell value. Please enter 'Send' or 'Display'."
    End If
    
    ' 释放对象
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub