Outlook'ta İlettikten Sonra Bir E-postayı Belirli Bir Klasöre Otomatik Olarak Taşıma

Posta kutunuzu düzenli tutmak için, belirli e-postaları belirli bir klasöre kaydetmeye alışabilirsiniz. Bu makale, e-postayı ilettikten sonra otomatik olarak taşımak için Outlook VBA'yı nasıl kullanacağınızı anlatacaktır.

Benzer e-postaları belirli bir posta klasöründe saklamak, çok sayıda e-postayı yönetmek için iyi bir ipucudur. Posta sınıflandırması ve yönetimi için farklı kullanıcıların kendi kriterlerine sahip olması gerektiği kesindir. Örneğin, e-postalarınızı yanıtlama, iletme veya diğerleri gibi takip işlemlerinize göre sınıflandırmayı tercih edebilirsiniz. E-postayı otomatik olarak “İletildi” gibi belirli bir klasöre taşımak istiyorsanız, ilettiğinizde aşağıdaki işlemleri ve VBA kodlarını uygulayarak hızlı bir şekilde alabilirsiniz.

E-postayı İlettikten Sonra Otomatik Olarak Belirli Bir Klasöre Taşıyın

1. İlk etapta, Outlook'u başlatın.
2. Ardından "Geliştirici" sekmesine geçin.

Not: Bu sekmeyi bulamazsanız, öncelikle etkinleştirmek için “Dosya” > “Seçenekler” > “Şeridi Özelleştir” seçeneğine gitmelisiniz.

3. Bu sekme göründükten sonra altındaki “Visual Basic” butonunu bulup tıklayabilirsiniz.
4. Ardından, yeni bir “Uygulamalar için Microsoft Visual Basic” penceresi açılacaktır. İçinde, açmak için sol taraftaki “ThisOutlookSession” projesine çift tıklamalısınız.
5. Bundan sonra, aşağıdaki VBA kodlarını kopyalayıp içine yapıştırabilirsiniz.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

6. Daha sonra yeni VBA projesini imzalamanız istenecektir.

• İlk olarak, bir dijital sertifika oluşturmak için “VBA Projeleri için Dijital Sertifikalar” yerleşik aracını kullanın.
• Ardından, aşağıdaki ekran görüntüsü gibi sertifikayı bu makroya atayın:

7. Daha sonra, dijital olarak imzalanmış makrolara izin vermek için makro ayarlarınızı değiştirebilirsiniz.
8. Sonunda restarYeni makroyu etkinleştirmek için Outlook. Bundan sonra, bir e-posta seçip “İlet” düğmesine tıkladığınızda, e-posta bir kerede “İletildi” klasörüne taşınacaktır.

İstenmeyen Outlook PST Veri Bozulmasını Önleyin

Onlardan biriost Outlook kullanıcılarını uzun süredir rahatsız eden sorun, Outlook'un yolsuzluğa eğilimli olmasıdır. Yani acı çekmek PST hasarı ortak bir konudur. Bu nedenle, görünüm verilerinin kaybolmasını önlemek için, PST verileriniz için tutarlı ve güncel bir yedekleme yapsanız iyi olur.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. yozlaşmış SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com