Gönderilmiş Toplantı Davetlerini Outlook'unuzdaki Belirli Bir Klasöre Otomatik Olarak Taşıma

Birçok kullanıcı, gönderilen toplantı davetlerini belirli bir klasöre otomatik olarak taşımak için Outlook'u yapılandırma yöntemlerini özlüyor. Bu yazımızda bunu gerçekleştirmek için kolay bir yöntem paylaşacağız.

Outlook, e-postalar, görev istekleri veya toplantı davetleri ne olursa olsun her türlü gönderilmiş öğeyi her zaman 'Gönderilmiş Öğeler' klasörüne kaydeder. Bu şekilde, "Gönderilmiş Öğeler" klasörünüzün oldukça dağınık olduğunu göreceksiniz. Böylece, Outlook'unuzun toplantı davetlerini otomatik olarak farklı bir klasöre taşımasını ve kaydetmesini isteyebilirsiniz.

Bir e-posta oluşturduğunuzda, “Seçenekler” sekmesinde bir “Gönderilen Öğeyi Diğer Klasöre Kaydet” bulabilirsiniz. Kullanıcıların göndermeden önce e-postaları kaydetmek için klasörü değiştirmelerine izin verir. Ancak toplantı daveti için böyle bir özellik bulunmamaktadır. Yapabilecekleriniz, gönderilen toplantı davetlerini gönderdikten sonra taşımaktır. Bundan sonra, size VBA koduyla böyle bir “otomatik hareket” yapmayı öğreteceğiz.

Gönderilen Toplantı Davetlerini Otomatik Olarak Belirli Bir Klasöre Taşı

1. En başta, Outlook'ta “Alt + F11” düğmelerine basın.
2. Ardından VBA editörüne girdikten sonra “ThisOutlookSession” projesini açın.
3. Ardından, aşağıdaki VBA kodunu kopyalayıp bu projeye yapıştırın.

'As Meeting will be auto saved in Sent Items folder
'Here we will monitor the new item in this folder
Public WithEvents objSentFolder As Outlook.Folder
Public WithEvents objSentItems As Outlook.Items

Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentItems = objSentFolder.Items
End Sub

Private Sub objSentItems_ItemAdd(ByVal Item As Object)
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objTargetFolder As Outlook.Folder
 
    'If the new item is meeting item
    If TypeOf Item Is MeetingItem Then
       Set objMeetingInvitation = Item
 
       'Get the target folder
       On Error Resume Next
       Set objTargetFolder = objSentFolder.Folders("Meeting Requests")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = objSentFolder.Folders.Add("Meeting Requests")
       End If
 
       'Move it
       objMeetingInvitation.Move objTargetFolder
    End If
End Sub

4. Daha sonra, imleci “Application_Startup” alt yordamını seçin ve bu yeni makroyu etkinleştirecek olan “F5” tuşuna basın.
5. O zamandan beri, her toplantı daveti gönderdiğinizde, aşağıdaki resimdeki gibi yukarıdaki kodda önceden tanımlanmış hedef klasöre otomatik olarak taşınacaktır.

Outlook Veri Kurtarmada Gerekli Olan Konular

Hepimizin bildiği gibi, Outlook ara sıra çökebilir. Bu nedenle, kullanıcıların erişilemez hale gelen Outlook dosyasıyla karşılaşması yaygındır. O zaman, Outlook veri kurtarma işlemini gerçekleştirmeniz gerekir. Bu konuda tamamen acemiyseniz, veri yedeklerini kontrol etme, gelen kutusu düzeltme aracı – Scanpst ve ayrıca güvenilir bir harici Outlook düzeltme aracı gibi bazı hazırlıklar yapmanız gerekir. DataNumen Outlook Repair. Onlarla yapabilirsin Outlook'u onar ter dökmeden dosyalayın.

Yazar Tanıtımı:

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