Skip to main content

Outlook'ta okuduktan sonra e-posta mesajını belirli bir klasöre nasıl taşırsınız?

Author: Siluvia Last Modified: 2025-08-07

Okuduktan sonra e-posta mesajını belirli bir klasöre taşımak, Outlook'taki Gelen Kutusu klasörünü temiz tutmanın en iyi yoludur. Birçok Outlook kullanıcısı bu tür okunan e-postaları taşımak için bir kural oluşturmayı tercih eder. Aslında, Outlook bu kural sihirbazı işlemini desteklemez. Bu makalede, Outlook'ta VBA kodu kullanarak e-posta mesajlarını okuduktan sonra belirli bir klasöre nasıl taşıyacağınızı göstereceğiz.

Outlook'ta okuduktan sonra e-posta mesajını belirli bir klasöre taşıma

Office Tab - Sekmeli düzenleme ve Microsoft Office'de gezinmeyi etkinleştirin, işleri kolaylaştırın.
Kutools for Outlook'u şimdi açın ve sınırsız erişimle 100'den fazla özelliği hemen kullanmaya başlayın.
Outlook 2024 - 2010 veya Outlook 365'inizi bu gelişmiş özellikleri kullanarak güçlendirin. 100'den fazla güçlü özelliğin keyfini çıkarın ve e-posta deneyiminizi geliştirin!

Outlook'ta okuduktan sonra e-posta mesajını belirli bir klasöre taşıma

Outlook'ta VBA kodunu çalıştırarak okuduktan sonra e-posta mesajlarını belirli bir klasöre taşıyabilirsiniz.

1. İlk olarak, Gelen Kutusu klasörü altında “Reviewed” adında yeni bir klasör oluşturmanız gerekir.

a new folder

2. Gelen Kutusu klasörünü açın, ardından lütfen Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

3. Ardından Project1 > Microsoft Outlook Nesneleri > ThisOutlookSession öğesine çift tıklayarak VbaProject.OTM düzenleyicisini açın.

the VbaProject.OTM editor

4. Yukarıdaki ekran görüntüsünde gösterildiği gibi aşağıdaki VBA kodunu VbaProject.OTM düzenleyicisine kopyalayıp yapıştırın.

VBA kodu: okuduktan sonra mesajları taşı

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Ardından VBA kodunu kaydetmek için Kaydet düğmesine tıklayın ve ardından Microsoft Visual Basic for Applications penceresini kapatın.

6. Hızlı Erişim Araç Çubuğu'na sağ tıklayın ve sağ tıklama menüsünden Hızlı Erişim Araç Çubuğu'nun Özelleştir'i seçin. Ekran görüntüsüne bakın:

the Customize Quick Access Toolbar buton

7. Outlook Seçenekleri iletişim kutusunda şunları yapmanız gerekir:

1). Komutları seçin açılır listesinden Makrolar'ı seçin;

2). Komutları seçin açılır listesi altındaki kutuda Project1. ThisOutlookSession'i seçin;

3). Ekle düğmesine tıklayın;

4). Tamam düğmesine tıklayın.

the Outlook Options dialog box

8. Daha sonra Makro düğmesinin Hızlı Erişim Araç Çubuğu'nda göründüğünü görebilirsiniz. Tüm okunan mesajları taşımak istediğiniz Gelen Kutusu klasöründe olduğunuzdan emin olun, ardından Gelen Kutusu içindeki VBA kodunu çalıştırmak için Makro düğmesine tıklayın.

the Macro button

Notlar:

1. Bu VBA kodu Outlook 2007, 2010 ve 2013'te uygulanabilir; Ancak, Outlook 2007'de doğrudan Çalıştır düğmesine tıklayarak kodu çalıştırabilirsiniz.

2. Outlook'unuzda birden fazla e-posta hesabı varsa, VBA kodu yalnızca varsayılan olarak ayarlanmış veri dosyasına sahip hesaba uygulanabilir. Varsayılan veri dosyasını kontrol etmek için tıklayın Dosya > Bilgi > Hesap Ayarları > Hesap Ayarları açmak için Hesap Ayarları iletişim kutusu. Ardından gidin Veri Dosyası sekmesine, varsayılan veri dosyasının işaretlendiğini göreceksiniz the check mark önceden.

the Account Settings dialog box

3. Varsayılan veri dosyasını başka bir e-posta hesabına değiştirmek istiyorsanız, lütfen varsayılan olarak ayarlamak istediğiniz hesabı seçip vurgulayın, ardından Hesap Ayarları iletişim kutusunda Varsayılan Olarak Ayarla'ya tıklayın.

4. VBA kodunu ilk kez çalıştırırken ve okunan mesajların hemen hepsinin taşınmadığını fark ederseniz, Gelen Kutusu'ndaki tüm okunan mesajlar taşınıncaya kadar Makro düğmesine tıklamaya devam edin.


En İyi Ofis Verimlilik Araçları

Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!

Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı zahmetsizce yönetir; yanıtlama, özetleme, optimize etme, genişletme, çeviri ve e-posta oluşturma işlemlerini kolayca yapar.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için Mevcut) / E-postaları Zamanla Gönder / Gönderirken Kural ile Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Birden Fazla Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl ...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Sahtekarlık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle ...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır ...

🌟 Arayüz Sihri: 😊Daha Fazla Şık ve Güzel Emoji / Önemli e-postalar geldiğinde seni uyarır / Outlook’u Kapatmak Yerine Küçült ...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı (Phishing) E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçili E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır ...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40’tan fazla dil desteği!

Kutools for Outlook'un tüm özelliklerini tek tıkla hemen açın. Beklemeyin, şimdi indirip verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2