Son X Günde Gelen E-Postaları Listeleme

Bu dosya, Outlook gelen kutusuna son X gün içinde ulaşan e-postaları Excel sayfasında listeler. Geriye dönük gün sayısı sayfadaki bir hücreden girilir; makro çalıştırıldığında gönderen, alıcı, konu ve tarih bilgileri ikinci sayfaya aktarılır. Liste, e-posta analizi ve takibi için kullanılabilir.

Dosyanın içeriği​

• Sheet1: Kontrol sayfasıdır. C3 hücresinde "Kaç Gün Geriye Dönük Mailler Listelensin" etiketi bulunur. Gün sayısı D4 hücresinden okunur. D8:E8 alanı, listeleme sırasında işlenen satır numarasını gösterir.
• Sheet2: Sonuç sayfasıdır. Başlıklar KİMDEN ve KONU sütunlarında yer alır. Veriler A2 hücresinden itibaren yazılır.

Dosyada formül bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod Module1 modülündedir ve iki yordamdan oluşur.

• GetFromInbox: Ana makrodur. Outlook uygulamasına bağlanır, varsayılan Gelen Kutusu klasörünü açar ve Sheet2 üzerindeki A2:Z65536 aralığını temizler. Listeleme sırasında hesaplama modunu geçici olarak manuel yapar, işlem bitince eski haline döndürür. Sonunda "Toplam ... mail listelendi." mesajını gösterir ve Sheet2 sayfasını açar.
• GetFromFolder: Klasördeki öğeleri tek tek dolaşır. Alınma tarihi, bugünden D4 hücresindeki gün sayısı kadar geriye giden tarihten yeni olan e-postaları listeler. Her e-posta için gönderen adı, alıcı (To), konu ve alınma tarihi sırasıyla A, B, C, D sütunlarına yazılır. Ardından tüm alt klasörler aynı şekilde taranır.

Makrolar yalnızca Outlook'tan okuma yapar ve Sheet2 sayfasındaki eski listeyi temizler. Dosya silme ya da dışarıya bağlantı işlemi içermez. Dosyadaki start ve end adlı tanımlı adlar geçersiz başvuru (#REF!) taşır; makronun çalışmasını etkilemez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin. Bilgisayarda Outlook kurulu ve bir hesap tanımlı olmalıdır.
2. Sheet1 sayfasında D4 hücresine kaç gün geriye gidileceğini yazın (ör. 7).
3. Geliştirici sekmesinden veya Alt+F8 ile GetFromInbox makrosunu çalıştırın.
4. İşlem bitince açılan bilgi mesajındaki e-posta sayısını kontrol edin.
5. Sonuçları Sheet2 sayfasında inceleyin. Her yeni çalıştırmada önceki liste silinir; saklamak istediğiniz veriyi önce başka bir yere kopyalayın.