excellvba引用计算机用户名,Excel VBA代码从单元格中读取用户名，然后向该用户发送电子邮件...

你可以在邮件范围内使用 for 并调用此proc来发送电子邮件

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“Mail@yourContact.com”，“测试”，“这是一个自动邮件”

[]的