按发件人列出的VBA短电子邮件

Sub SendShortEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的收件人、主题和内容
    With OutlookMail
        .To = "recipient@example.com"
        .Subject = "这是一封VBA短电子邮件"
        .Body = "这是邮件的内容。"
    End With
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub