200元充值话费感谢！excel和outlook vba群发邮件的问题

tomayong

我想用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，说“编译错误：子过程或函数未定义”

我很需要尽快学会此功能，所以如果哪位能帮助我实现这个功能，愿意感谢200元手机话费充值，虽然不多，但是一表谢意！

[ 本帖最后由 tomayong 于 2010-10-11 10:16 编辑 ]

aaaa123456

错误信息是什么？

tomayong

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

dsd999

你的这个函数要在Excel里运行，我估计你拷到outlook里了吧。

tomayong

没错，我是拷到OUTLOOK里面了，谢谢楼上提醒，我再试试看

rmb_518

excel和outlook vba群发邮件，EXCELHOME中没有发现特别到位的，如果想有进一步的了解，可以加471139874
我给公司做了一个每日发货系统，每天要把80个客户发送每天的发货明细，明细有很多行，明细可以直接当成附件发送，也可以直接当成内容发送，不仅要发给客户还要发给分管每个客户的业务经理，如果使用一个一个地发，到少得5个小时，用了这个，只需5分钟即可搞定。

[ 本帖最后由 rmb_518 于 2010-10-11 16:47 编辑 ]

tomayong

现在又有新问题了：
不知道什么意思？

rmb_518

你上面的这个是无法验证通过的一个程序

dsd999

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

dsd999

你得先添加引用！！