Excel VBA向同一列中的不同人员发送电子邮件

Sub SendEmails()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim SendToRange As Range
    Dim Cell As Range
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set SendToRange = Range("A1:A10") '假设电子邮件地址在A列的A1到A10单元格中
    
    For Each Cell In SendToRange
        Set OutlookMail = OutlookApp.CreateItem(0)
        
        With OutlookMail
            .To = Cell.Value '收件人地址
            .Subject = "邮件主题" '邮件主题
            .Body = "邮件正文" '邮件正文
            '可以根据需要设置其他属性，例如附件等
            
            .Send '发送邮件
        End With
        
        Set OutlookMail = Nothing
    Next Cell
    
    Set OutlookApp = Nothing
    MsgBox "邮件发送完成！"
End Sub