Код Excel VBA, чтобы прочитать имя пользователя из ячейки, а затем отправить электронное письмо этому пользователю

Question

Мне нужна помощь в создании кода Excel VBA, который будет читать ряд имен пользователей из ячеек в Excel, а затем отправлять электронные письма всем этим пользователям, выполняя поиск адреса электронной почты пользователей в списке контактов Outlook.

Мне удалось написать код, который выведет диалоговое окно составления электронной почты 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 "Mail@yourContact.com", "Тест", "Это автоматическая почта"

[] в