使用VBA将电子邮件发送到保存在列中的每个邮件地址

Sub SendEmails()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MailAddressRange As Range
    Dim MailAddressCell As Range
    
    ' 设置邮件地址所在的列范围
    Set MailAddressRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A" & ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 创建Outlook应用程序对象
    Set OutApp = CreateObject("Outlook.Application")
    
    ' 遍历每个邮件地址并发送邮件
    For Each MailAddressCell In MailAddressRange
        ' 创建新的邮件对象
        Set OutMail = OutApp.CreateItem(0)
        
        ' 设置邮件的收件人
        OutMail.To = MailAddressCell.Value
        
        ' 设置邮件的主题和内容
        OutMail.Subject = "邮件主题"
        OutMail.Body = "邮件内容"
        
        ' 发送邮件
        OutMail.Send
        
        ' 释放邮件对象
        Set OutMail = Nothing
    Next MailAddressCell
    
    ' 释放Outlook应用程序对象
    Set OutApp = Nothing
End Sub