Excel VBA代碼從單元格中讀取用戶名，然后向該用戶發送電子郵件

Question

在創建Excel VBA代碼時，我需要一些幫助，該代碼將從Excel單元格中讀取一行用戶名，然后通過在Outlook聯系人列表中搜索用戶的電子郵件地址，向所有這些用戶發送電子郵件。

我設法編寫了從電子表格中調出Outlook的撰寫電子郵件對話框的代碼。

Answer 1

您可以在范圍用於與郵件和調用這個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”，“測試”，“這是一封自動郵件”

[]的