Excel VBA代码从单元中读取用户名，然后发送电子邮件给该用户

我需要一些帮助来创buildExcel VBA代码，它将从Excel中的单元格中读取一行用户名，然后通过searchOutlook联系人列表中的用户电子邮件地址向所有这些用户发送电子邮件。

我已经设法编写了将从电子表格中调出Outlook的撰写电子邮件对话框的代码。

Answer 1

你可以使用范围内的邮件，并呼吁这个过程发送电子邮件

Public Sub SendMail(MailTO As String, MailSubject As String, MailBody As String) 'http://officevb.com Dim appOL As Object Dim myEmail As Object Dim TxtHello As String Set appOL = CreateObject("Outlook.Application") Set myEmail = appOL.CreateItem(olMailItem) 'Use hour to create a text Select Case Hour(Time) Case Is <= 12 TxtHello = "Good Morning," & vbNewLine Case Is >= 12 TxtHello = "Good Afternoom," & vbNewLine Case Is >= 18 TxtHello = "Good Night," & vbNewLine End Select With myEmail .display .Recipients.Add MailTO .Subject = MailSubject .Body = TxtHello & MailBody .Send End With Set myEmail = Nothing Set appOL = Nothing End Sub 

调用这个子传递这些参数

sendMail“[e-mail]”，“testing”，“这是一个自动邮件”

[]的