从VBA发出两封不同的电子邮件

Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")

Dim email As Object
Set email = outlookApp.CreateItem(0)

email.To = "recipient1@example.com"
email.Subject = "邮件1主题"
email.Body = "邮件1正文"

email.Send

Sub SendEmails()
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    
    Dim email1 As Object
    Set email1 = outlookApp.CreateItem(0)
    email1.To = "recipient1@example.com"
    email1.Subject = "邮件1主题"
    email1.Body = "邮件1正文"
    email1.Send
    
    Dim email2 As Object
    Set email2 = outlookApp.CreateItem(0)
    email2.To = "recipient2@example.com"
    email2.Subject = "邮件2主题"
    email2.Body = "邮件2正文"
    email2.Send
    
    Set email1 = Nothing
    Set email2 = Nothing
    Set outlookApp = Nothing
End Sub