群发电子邮件将不同的内容发到不同的的收件人地址

czhlh · 发表于 2015-12-4 15:57

本帖最后由爱疯于 2015-12-7 09:14 编辑

请教一下大侠：
excel表格如何对某一列/行进行信息筛选，然后群发电子邮件将不同的内容发到不同的的收件人地址（将同一行的“Description”里面的信息，自动邮件发送给同一行“who for action”对应的人），每行单独一份邮件
附件是文档源文件，请哪位大侠帮忙写个宏。
377098448@qq.com
感谢/谢谢

C4/5数据小于0，然后将A4内容发送给D4，A5内容发送给D5

L50814026 · 发表于 2015-12-7 09:15

Sub SendMail1()
Dim OutlookApp As Object
Dim MailItem As Object
For i = 3 To [a65536].End(xlUp).Row
If Cells(i, 3) < 0 Then
Set OutlookApp = CreateObject("Outlook.Application")
Set MailItem = OutlookApp.CreateItem(olMailItem)
With MailItem
.To = Cells(i, 4) '收件人，自己修改成想要的收件人
.Subject = "自动发送" & Cells(i, 1) '邮件主题，自己修改成想要的主题
.Body = Cells(i, 1) '邮件正文，修改成自己想要的邮件正文
.Send
End With
Set OutlookApp = Nothing
Set MailItem = Nothing
End If
Next i
End Sub

复制代码

czhlh · 发表于 2015-12-7 13:23

L50814026 发表于 2015-12-7 09:15

谢谢大侠，程序试了下，但总是报错，请帮看一下，我上传的源文件，帮确认下是不是我的源文件需要哪里设置下？感谢

L50814026 · 发表于 2015-12-7 14:03

发送邮件.rar (12.46 KB, 下载次数: 21)

czhlh · 发表于 2015-12-8 14:23

L50814026 发表于 2015-12-7 14:03
我这里测试完全没有问题
如果还是报错，你试着添加 Microsoft outlook x object library的引用
如果还不 ...

还是报错，是不是和office设置有关（我的用不是正版的Office）、outlook用的是破解版本的

liaoliangbang · 发表于 2015-12-8 14:34

我这份可以。

liaoliangbang · 发表于 2015-12-8 14:34

要的话Q我1933075924

		自动登录	找回密码
密码			注册

群发电子邮件将不同的内容发到不同的的收件人地址

相关帖子