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.
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