Listedeki Çalışanlara Mail Gönderme

huseyinn31

Altın Üye
Katılım
7 Mart 2021
Mesajlar
46
Excel Vers. ve Dili
2019 - Türkçe
Altın Üyelik Bitiş Tarihi
10-10-2025
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.

Kod:
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
 

Ekli dosyalar

Üst