自动发邮件问题

liuweistat

假设C下文件夹皆以PeopleName命名，其中Lily的命名的文件夹里有个a.xls的文件，文件sheet1中有一个EMAIL地址，给这个Email发一个文件仍然在同个文件夹下,文件名称为b.word.麻烦大家解答我的问题 ，我想用vba实现这个过程

liuweistat

我自己先分享一个发一个收件人的程序
Sub sendemail()
On Error Resume Next

Dim rowCount, endRowNo

Dim objOutlook As New Outlook.Application

Dim objMail As MailItem

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

Set objOutlook = New Outlook.Applic+6ation

For rowCount = 2 To endRowNo

Set objMail = objOutlook.CreateItem(olMailItem)

With objMail

.To = Cells(rowCount, 1).Value '收件人地址

.Subject = Cells(rowCount, 2).Value ' 邮件主题

.Body = Cells(rowCount, 3).Value '邮件内容

.Attachments.Add Cells(rowCount, 4).Value ' 附件保存地址  c://users.ctl

.Send

End With

Set objMail = Nothing

Next

Set objOutlook = Nothing

End Sub

liuweistat

为什么没有人解答我的问题

liuweistat

还是我自己解决的 大家可以参考下 真是的 问了那么多人 都没有人回答
大家可以学习这个 也可以修正更好的做法

子曰然也

学到自己手里的，才是你自己的。

zhouzhou168

我自己先分享一个发一个收件人的程序