Doğum Gününde Otomatik Mail Gönderme

Bu dosya, Liste sayfasındaki doğum tarihlerini bugünün tarihiyle karşılaştırır ve doğum günü olan kişilere Outlook üzerinden kutlama e-postası gönderir. Gönderim dosya açılırken otomatik, isterseniz elle başlatılabilir.

Önemli: Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir. Gönderim için bilgisayarınızda Outlook kurulu olmalıdır. Dosyanın doğru çalışması için her gün açılması gerekir.

Dosyanın içeriği​

• Liste: Ad Soyad (A sütunu), doğum tarihi (B sütunu) ve Mail Adresi (C sütunu) bilgilerinin tutulduğu sayfa. Örnek olarak Ali Veli ve Hasan Hüseyin kayıtları bulunur.

Makrolar​

Dosyada Module1 içinde üç prosedür vardır:

• auto_open: Dosya açıldığında kendiliğinden çalışır. İçindeki menu çağrısı tek tırnakla yorum satırı yapılmıştır, yani otomatik gönderim varsayılan olarak kapalıdır.
• menu: Dogum_Gunlerini_Mail_At prosedürünü çağırır. Elle çalıştırmak için bu prosedürü kullanabilirsiniz.
• Dogum_Gunlerini_Mail_At: Listeyi A sütunundaki son dolu satıra kadar dolaşır. Satırdaki doğum tarihinin gün ve ayı bugünle aynıysa Outlook'ta bir e-posta oluşturur. Konu "Doğum Günün Kutlu Olsun" ve kişinin adından oluşur, HTML gövdede kişiye hitap eden kısa bir kutlama metni yer alır. Mesaj C sütunundaki adrese gönderilir.

Makro kodunda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem görünmemektedir; yalnızca yerel Outlook uygulaması kullanılır. Kod mesajı .Send ile doğrudan gönderir, bu nedenle test ederken gerçek adresler kullanmamaya dikkat edin.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Liste sayfasına ad soyad, doğum tarihi ve mail adreslerini girin.
3. Dosya açılırken otomatik gönderim istiyorsanız VBA düzenleyicisinde auto_open içindeki 'Call menu satırının başındaki tek tırnağı kaldırın.
4. Elle göndermek için menu prosedürünü Alt+F8 ile çalıştırın.
5. Kutlama metnini ve imzayı HTMLBody satırından kendinize göre düzenleyebilirsiniz.