Listedeki Çalışanlara Mail Gönderme

[huseyinn31]

Arkadaşlar merhaba,

Excelin 1. sheetinde çalışanların ad soyad, mail, doğum tarihi ve işe giriş tarihleri yer alıyor. Bu sheetdeki tarih verilerini query yaparak bugüne eşit olanları filtreliyorum. Filtrelediğim sheette ise mail gönder butonu yer alıyor. Bu butona bastığımda o sheette filtrelenerek gelen çalışanların mail adreslerine kodda belirlediğimiz kutlama mesajını göndersin istiyorum. Belli bir düzeye kadar geldim ama listedeki kişilerin hepsine mail atacak kodu araştırmalarına rağmen bulamadım. Yardımlarınız için teşekkürler.

Sub GirisGonder()

Dim MailApp As Outlook.Application
Set MailApp = CreateObject("Outlook.Application")

Dim MailGonder As Outlook.MailItem
Set MailGonder = MailApp.CreateItem(MailItem)

  
    MailGonder.To = 'Personel_Mail_Adresi
    
    MailGonder.Subject = "Doğum Gününüz Kutlu Olsun"
    MailGonder.Body = "Sayın " '& adisoyadi & "," & vbNewLine & vbNewLine
    MailGonder.Body = MailGonder.Body & "Test_Doğum gününüzü en içten dileklerimle kutlar, yeni yaşınızın başarı ve mutluluk getirmesini dilerim."
    MailGonder.Send
    
End Sub