,可以通过以下步骤实现:
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
请注意,上述代码使用了Outlook应用程序来发送邮件。确保已在计算机上安装了Outlook,并且已正确配置了电子邮件帐户。如果要使用其他电子邮件客户端或服务提供商发送邮件,可以使用相应的VBA代码进行更改。
此外,腾讯云提供了一系列与邮件相关的产品和服务,例如腾讯企业邮、腾讯云邮件推送等。您可以访问腾讯云官方网站(https://cloud.tencent.com/)了解更多信息,并找到适合您需求的产品和服务。
领取专属 10元无门槛券
手把手带您无忧上云