Ana içeriğe atla

Outlook'ta okuduktan sonra e-posta mesajını belirtilen klasöre nasıl taşıyabilirim?

E-posta iletisini okuduktan sonra belirli bir klasöre taşımak, Gelen Kutusu klasörünü Outlook'ta temiz tutmanın en iyi yoludur. Çoğu Outlook kullanıcısı için, taşınan bu okuma e-postaları için bir kural oluşturma eğilimindedirler. Aslında, Outlook bu kural sihirbazı işlemini desteklemez. Bu makalede, Outlook'ta VBA kodu ile okuduktan sonra e-posta mesajlarını belirtilen klasöre nasıl taşıyacağınızı göstereceğiz.

Outlook'ta okuduktan sonra e-posta mesajını belirtilen klasöre taşı

Office Sekmesi - Microsoft Office'te Sekmeli Düzenlemeyi ve Göz Atmayı Etkinleştirerek Çalışmayı Kolaylaştırın
Kutools for Outlook - Üstün Verimlilik için Outlook'u 100'den Fazla Gelişmiş Özellikle Güçlendirin
Bu gelişmiş özelliklerle Outlook 2021 - 2010 veya Outlook 365'inizi güçlendirin. Kapsamlı 60 günlük ücretsiz deneme sürümünün keyfini çıkarın ve e-posta deneyiminizi geliştirin!

ok mavi sağ balonOutlook'ta okuduktan sonra e-posta mesajını belirtilen klasöre taşı

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

1. Öncelikle, yeni bir klasör adı oluşturmanız gerekir "YorumGelen Kutusu klasörünün altında ".

2. Gelen Kutusu klasörünü açın, ardından lütfen Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. Ardından genişletmek için çift tıklayın Project1 > Microsoft Outlook Nesneleri > Bu OutlookOturumu açmak için VbaProje.OTM editörü.

4. Ardından aşağıdaki VBA kodunu kopyalayıp yukarıdaki ekran görüntüsünde gösterildiği gibi VbaProject.OTM düzenleyicisine 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 İndirim VBA kodunu kaydetmek ve ardından kapatmak için Uygulamalar için Microsoft Visual Basic pencere.

6. Sağ tıklayın Hızlı Erişim Araç ÇubuğuSeçin ve Hızlı erişim araç çubuğunu özelleştir sağ tıklama menüsünden. Ekran görüntüsüne bakın:

7. içinde Outlook Seçenekleri iletişim kutusu, yapmanız gerekenler:

1). Seçiniz Makrolar içinde Komutları seçin açılır liste;

2). Seçiniz 1. Proje. ThisOutlookSession altındaki kutuda Komutları seçin açılır liste;

3). Tıkla Ekle düğmesi;

4). Tıkla OK düğmesine basın.

8. O zaman görebilirsiniz Makro gösterilen düğme Hızlı Erişim Araç Çubuğu. Okunan tüm mesajları taşımak istediğiniz gelen kutusu klasöründe bulunduğunuzdan emin olun, ardından Makro Gelen Kutusu içinde VBA kodunu çalıştırmak için düğmesine basın.

notlar:

1. Bu VBA kodu Outlook 2007, 2010 ve 2013'te uygulanabilir; Ancak, Outlook 2007'de doğrudan koşmak kodu çalıştırmak için düğmeye basın.

2. Outlook'unuzda birden fazla e-posta hesabı varsa, VBA kodu yalnızca veri dosyasının varsayılan olarak ayarlandığı hesaba uygulanabilir. Varsayılan veri dosyasını tıklayarak kontrol edebilirsiniz. fileto > Bilgi > hesap Ayarları > hesap Ayarları açmak için hesap Ayarları iletişim kutusu. Sonra şuraya gidin Veri Dosyası sekmesinde, varsayılan veri dosyasının şu şekilde işaretlendiğini göreceksiniz: önce.

3. Varsayılan veri dosyasını başka bir e-posta hesabıyla değiştirmek isterseniz, lütfen varsayılan olarak ayarlamak istediğiniz hesabı seçin ve vurgulayın, ardından Varsayılan olarak ayarla içinde hesap Ayarları iletişim kutusu.

4. VBA kodunu ilk kez çalıştırırken ve okunan mesajların aynı anda hareket etmediğini anlarken, lütfen Gelen Kutusundaki tüm okunmuş mesajlar taşınana kadar Makro düğmesine tıklamaya devam edin.


En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

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

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations