从Excel VBA中的非活动工作表向列表服务器发送电子邮件

Question

我正在尝试将Excel中的电子邮件发送到我在工作簿中的另一个工作表中列出的listserv。我创建了一个发送电子邮件的模块;但是，我希望能够根据将他们的名字列入名单的人发送。工作簿中有很多工作表，因此listserv工作表不是活动工作表。我真的很感激一些帮助！工作表名称是＆＃34;已验证的管理员＆＃34;并且电子邮件将发送给那些有＆＃34;员工＆＃34;在A列中，他们的电子邮件在B列中。这是我目前的情况：

Dim olMail As Outlook.MailItem 
Set olMail = olApp.CreateItem(olMailItem) 

Dim Lastrow As Long
Dim myemail As String
Dim myrange As Range


    Lastrow = ThisWorkbook.Sheets("Verified Admin").Cells(Rows.Count,1).End(xlUp).Row

         For Each myrange In ThisWorkbook.Sheets("Verified Admin").Range("A2:A" & Lastrow)

                 myemail = myemail & myrange.Offset(0, 1).Value & ";"

   Next myrange


olMail.To = myemail