我有一个包含这两个工作表的Excel工作簿。
表1包含电子邮件模板，表2包含原始数据。
表2包含下面提到的标题。姓名ERP员工日期电子邮件开始日期为周年(是/否)年已完成
在工作表1中，我创建了一个下拉列表，该列表将包含具有Is周年字段(是)的员工的姓名
我已经编写了一个VBA脚本，用于向下拉列表中选定的人员发送电子邮件。
我想让它完全自动化的地方，脚本应该能够自动选择下一个值，然后发送电子邮件给人，同样为整个列表。如果有可能，请给我建议。
发送电子邮件的脚本
Sub Send_Anniversary_Email()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Mailer")
Dim lr As Integer
lr = sh.Range("J" & Application.Rows.Count).End(xlUp).Row
sh.Range("E5:L" & lr).Select
With Selection.Parent.MailEnvelope.Item
.to = sh.Range("B12").Value
.cc = sh.Range("B13").Value
.Subject = sh.Range("B14").Value
.send
ActiveWorkbook.Save
End With
MsgBox "Done"
End Sub转载请注明出处:http://www.wxmcsj.com/article/20230401/1629477.html