vba
Sub SendEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Set OutApp = CreateObject("Outlook.Application")
Set rng = Nothing
Set rng = Application.ActiveSheet.Range("A1:A10")
On Error Resume Next
For Each cell In rng
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = cell.Value
.Subject = "你的邮件主题"
.Body = "你的邮件正文"
.Send
End With
Next
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
这个代码会从A1到A10单元格中提取邮箱地址,然后批量发送邮件。
利用第三方工具辅助邮件群发
除了上述利用Excel内置函数的方法,还可以借助一些第三方的邮件群发工具或插件,比如Mail Merge for Outlook,它可以让你直接从Excel表格中读取数据来填充邮件内容。这类工具通常操作简单,适合那些不太熟悉VBA编程的用户。