Outlook'ta gönderilen toplantıları belirli bir klasöre otomatik olarak nasıl taşıyabilirim?

Normalde, e-postaları veya toplantıları gönderdikten sonra, ikisi de Gönderilmiş Öğeler klasöründe yer alacaktır. Bu nedenle, Gönderilmiş Öğeler klasörü oldukça dağınık ve külfetli olacaktır. Bu makalede, toplantı gönderildikten sonra gönderilen toplantıları otomatik olarak başka bir klasöre taşımak için bir yöntem tanıtacağım.

Gönderilen toplantıları otomatik olarak VBA kodu ile belirli bir klasöre taşıyın

Gönderilen toplantıları otomatik olarak VBA kodu ile belirli bir klasöre taşıyın

Gönderilen tüm toplantı davetlerini otomatik olarak başka bir klasöre taşımak için aşağıdaki kod size yardımcı olabilir, lütfen şunu yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA kodu: Gönderilen toplantıları otomatik olarak belirli bir klasöre taşıyın

Private WithEvents GExplorer As Outlook.Explorer
Public WithEvents GSentFolder As Outlook.Folder
Public WithEvents GSentItems As Outlook.Items
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xFolder As Folder, xRootFolder As Folder
Dim xRootFldName As String
Dim xPos As Integer
    On Error Resume Next
    Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    xPos = VBA.InStr(3, xFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, Len(xFolder.FolderPath) - 2)
    End If
    Set xRootFolder = Outlook.Application.Session.Folders(xRootFldName)
    Set GSentFolder = xRootFolder.Folders("Sent Items")
    Set GSentItems = GSentFolder.Items
End Sub
Private Sub GSentItems_ItemAdd(ByVal Item As Object)
    Dim xMeetingItem As Outlook.MeetingItem
    Dim xTargetFolder As Outlook.Folder
    On Error Resume Next
    If Item.Class <> olMeetingRequest Then Exit Sub
    Set xMeetingItem = Item
    Set xTargetFolder = GSentFolder.Folders("Meetings")
    If xTargetFolder Is Nothing Then
        Set xTargetFolder = GSentFolder.Folders.Add("Meetings")
    End If
    xMeetingItem.Move xTargetFolder
End Sub

doc taşıma gönderildi toplantı 1

3. Ardından, kod penceresini kaydedin ve kapatın. Şimdi, bir toplantı e-postası gönderildiğinde, adında yeni bir klasöre taşınacak Toplantılar altında Eşya gönder otomatik olarak klasör, ekran görüntüsüne bakın:

doc taşıma gönderildi toplantı 2