Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

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

Author Siluvia Last modified

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ı

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

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

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları 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 Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...

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

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen 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 başka dili destekler!

Tek tıkla Kutools for Outlook'u anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2

🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

  • Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
  • 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
  • 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint