VB宏在不打开Lotus notes的情况下发送邮件

Dim olApp As Outlook.Application
Set olApp = New Outlook.Application

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

With olMail
    .To = "recipient@example.com"
    .Subject = "邮件主题"
    .Body = "邮件正文"
End With

olMail.Send

Sub SendEmail()
    Dim olApp As Outlook.Application
    Set olApp = New Outlook.Application
    
    Dim olMail As Outlook.MailItem
    Set olMail = olApp.CreateItem(olMailItem)
    
    With olMail
        .To = "recipient@example.com"
        .Subject = "邮件主题"
        .Body = "邮件正文"
    End With
    
    olMail.Send
End Sub