Bu dosya, Excel ile Outlook'u birlikte kullanarak doğum günü kutlama maili göndermeyi gösteren bir örnektir. Listedeki kişilerin doğum günü bugüne denk geliyorsa, makro her biri için kişiye özel bir kutlama maili hazırlar.
Dosyanın içeriği
Dosyada "Liste" adlı tek bir sayfa vardır (A1:C4 aralığı). Sayfada üç sütun yer alır:- A sütunu: Ad Soyad (örnekte Ali Veli ve Hasan Hüseyin)
- B sütunu: Doğum tarihi; makro bu sütundaki tarihin gün ve ayını bugünle karşılaştırır
- C sütunu: Mail Adresi
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod Module1 içinde yer alır ve üç prosedürden oluşur:- auto_open: Dosya açıldığında çalışır. İçindeki menu çağrısı yorum satırı olduğundan şu haliyle otomatik bir işlem yapmaz.
- menu: Dogum_Gunlerini_Mail_At prosedürünü çağırır.
- Dogum_Gunlerini_Mail_At: A sütunundaki dolu satırları 2. satırdan itibaren tek tek dolaşır. Satırdaki doğum tarihinin gün ve ayı bugünün gün ve ayıyla aynıysa Outlook uygulamasını başlatır ve yeni bir mail oluşturur. Konu "Doğum Günün Kutlu Olsun" ve kişinin adından oluşur. Mail gövdesi HTML biçimindedir; kişinin adıyla başlayan kısa bir kutlama metni ve "ExcelDepo" imzası içerir. Alıcı olarak C sütunundaki adres kullanılır. Mail önce ekranda gösterilir, ardından gönderilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin. Bilgisayarınızda Outlook kurulu ve hesabınız tanımlı olmalıdır.
- "Liste" sayfasındaki örnek kayıtları silin, kendi kişilerinizi girin: A sütununa ad soyad, B sütununa doğum tarihi, C sütununa mail adresi.
- Gerekirse makro kodunda konu ve mail metnini kendi kurumunuza göre değiştirin (Alt+F11 ile VBA düzenleyicisini açabilirsiniz).
- Alt+F8 ile makro listesini açıp menu ya da Dogum_Gunlerini_Mail_At makrosunu çalıştırın.
- Otomatik çalışmasını isterseniz auto_open içindeki Call menu satırının başındaki tırnak işaretini kaldırın.