使用vba有条件地更改邮件收件人的电子邮件地址

Sub ChangeRecipientEmail()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim olRecipients As Outlook.Recipients
    Dim olRecipient As Outlook.Recipient
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 创建新邮件
    Set olMail = olApp.CreateItem(olMailItem)
    
    ' 设置收件人
    Set olRecipients = olMail.Recipients
    Set olRecipient = olRecipients.Add("example@example.com")
    
    ' 根据条件更改收件人的电子邮件地址
    If [条件] Then
        olRecipient.Address = "newaddress@example.com"
    End If
    
    ' 发送邮件
    olMail.Send
    
    ' 释放对象
    Set olRecipient = Nothing
    Set olRecipients = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
End Sub