Excel Sayfası Üzerinden Mail Gönderme

Bu dosya, Excel sayfasına yazdığınız alıcı adresi, konu ve gövde metni bilgilerini kullanarak Outlook üzerinden toplu e-posta göndermenizi sağlar. Birden fazla adrese aynı anda mesaj göndermeniz gereken durumlarda her e-postayı tek tek hazırlamak zorunda kalmazsınız.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Bilgisayarınızda Outlook kurulu olmalıdır.

Dosyanın içeriği​

Dosyada Sheet1 adlı tek bir sayfa bulunur (A2:D26 aralığı).

• A sütunu: Gideceği e-posta adresi. Örnek satırda info@exceldepo.com adresi yer alır.
• B sütunu: E-postanın konu satırı.
• C sütunu: Gövde metni. Örnek satırda "Merhaba, Web sitemiz yayındadır." ile başlayan bir mesaj vardır.
• D2 hücresi: Gönderilecek e-posta sayısını hesaplayan formül.

Veri girişi 5. satırdan başlar.

Kullanılan formüller​

• D2: =(COUNTBLANK(A5:A100)-96)*-1 formülü, A5:A100 aralığındaki boş hücreleri BOŞLUKSAY (COUNTBLANK) ile sayar. Sonucu -96 ile toplayıp -1 ile çarparak dolu adres sayısını bulur. Makro bu değeri döngü sayısı olarak kullanır.

Makrolar​

Modul1 içinde Excel_Serienmail_via_Outlook_Senden adlı tek bir makro vardır.

• D2 hücresindeki sayı kadar döngü çalıştırır ve 5. satırdan başlayarak her satırı sırayla işler.
• Her turda Outlook uygulamasını başlatır, yeni bir posta öğesi oluşturur ve alıcıyı A sütunundan, konuyu B sütunundan, metni C sütunundan alır.
• .Send komutuyla e-postayı gönderir. Kodda yer alan yorumlara göre Outlook'un güvenlik uyarısı her gönderimde onay isteyebilir.
• İşlem bitince "E-Mailleriniz gönderilmistir." mesajını gösterir.
• Kodda dosya silme ya da dışarıya veri aktarma gibi zararlı bir işlem görünmez. Makro yalnızca sayfadaki bilgilerle Outlook üzerinden e-posta gönderir.

Makroyu çalıştırmak için Alt+F8 tuşlarına basıp makro adını seçebilir veya Visual Basic düzenleyicisinde çalıştırabilirsiniz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. 5. satırdan başlayarak A sütununa e-posta adreslerini, B sütununa konuları, C sütununa mesaj metinlerini yazın.
3. D2 hücresindeki sayının dolu satır sayınızla uyuştuğunu kontrol edin.
4. Outlook'un açık ve hesabınızın tanımlı olduğundan emin olun.
5. Alt+F8 ile makroyu çalıştırın ve çıkan güvenlik uyarılarını onaylayın.
6. Bitiş mesajını görünce Outlook'taki Gönderilen Öğeler klasöründen gönderimleri kontrol edin.

Dosya adı: d000022_e_mail_yolla_toplu.xlsm