每月需要发放工资条,但使用手工粘贴发送邮件很麻烦,而且人多,工作量很大,现向高手求教如何实现不同地址不同内容群发邮件。
需要实现的目的:工资表在EXCEL中制作完毕,将每个人的那一行和标题,作为一个单独邮件发送到员工邮箱中,发送成功提示“成功”。
工资表如下图
我在网上已经找了一个在EXCEL中使用宏编辑实现这个目的,但由于本人不熟悉VB,未能实现,现将程序放在下面,供各位参考。
Sub 全自动发送邮件()
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.Application
For rowCount = 2 To endRowNo
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = Cells(rowCount, 2)
.Subject = "工资条 "
.Body = Cells(rowCount, 3)
.Send
End With
Set objMail = Nothing
Next
Set objOutlook = Nothing
MsgBox rowCount - 1 & "成功!"
End Sub
请根据上述要求设计一个在EXCEL中使用的程序,或根据上面的程序进行修改,只要能使用即可。如能实现目标会再追加分数,感激不尽!
参考资料:5CA8