使用VBA标记发送到多个不同外部域的电子邮件

Sub SendEmails()
    Dim olApp As Object
    Dim olMail As Object
    Dim recipients As Variant
    Dim recipient As Variant
    Dim domain As String
    
    Set olApp = CreateObject("Outlook.Application")
    
    recipients = Array("user1@example.com", "user2@anotherdomain.com", "user3@yetanotherdomain.com")
    
    For Each recipient In recipients
        domain = Right(recipient, Len(recipient) - InStr(recipient, "@"))
        
        Set olMail = olApp.CreateItem(0)
        With olMail
            .To = recipient
            .Subject = "Test Email"
            .Body = "This is a test email sent using VBA."
            
            ' 根据域名设置不同的邮件服务器
            Select Case domain
                Case "example.com"
                    .SendUsingAccount = "Account1"
                Case "anotherdomain.com"
                    .SendUsingAccount = "Account2"
                Case "yetanotherdomain.com"
                    .SendUsingAccount = "Account3"
                Case Else
                    MsgBox "Unknown domain: " & domain
                    Exit Sub
            End Select
            
            .Send
        End With
    Next recipient
    
    Set olMail = Nothing
    Set olApp = Nothing
End Sub