请问:怎样用Outlook批量发送不同内容的邮件分别给不同的人

请问:怎样用Outlook批量发送不同内容的邮件分别给不同的人

如果Word邮件合并功能不能满足你的要求，唯有编程。

我也想知道？

嗬嗬， 俺就是编了个插件才搞定的

WORD的邮件合并完全可以实现，不需要编程，易化神奇不足奇，神奇化易是坦途。

请教高手：excel文件怎么用Outlook批量发送不同内容的邮件分别给不同的人呢？例如工资表

查找本论坛中的word邮件合并，你可以得到答案。

同意aaaaabbbbb，word邮件合并完全可以实现楼主的要求。

我想用excel和outlook vba群发邮件，于是从网上学来了一个语言，但是运行中发生错误，想请教哪位高手错误在哪？谢谢了！祝大家健康快乐！

语言如下：

Sub 批量发送邮件()

'要能正确发送并需要对Microsoft Outlook进行有效配置

On Error Resume Next

Dim rowCount, endRowNo

'要正常运行下面这句,要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上

Dim objOutlook As New Outlook.Application

Dim objMail As MailItem

'取得当前工作表与Cells(1,1)相连的数据区行数

endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

'创建objOutlook为Outlook应用程序对象

Set objOutlook = New Outlook.Application

'开始循环发送电子邮件

For rowCount = 2 To endRowNo

'创建objMail为一个邮件对象

Set objMail = objOutlook.CreateItem(olMailItem)

With objMail

'设置收件人地址（从通讯录表的'E-mail地址'字段中获得）


.To = Cells(rowCount, 1)

'设置邮件主题

.Subject = Cells(rowCount, 2)

'设置邮件内容（从通讯录表的'内容'字段中获得）

.Body = Cells(rowCount, 3)

'设置附件（从通讯录表的'附件'字段中获得）

.Attachments.Add Cells(rowCount, 4).Value, , 1, ""

'自动发送邮件




.Display

'.Send

DoEvents
SendKeys "%s", True

End With

'销毁objMail对象

Set objMail = Nothing

Next

End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

发生的错误是：错误指向cells，说“编译错误：子过程或函数未定义”