Jak automatycznie przenosić wysłane spotkania do określonego folderu w Outlooku?
Zwykle po wysłaniu wiadomości e-mail lub spotkań oba z nich zostaną umieszczone w folderze Elementy wysłane. Tak więc folder Elementy wysłane będzie znacznie bałaganiarski i nieporęczny. W tym artykule przedstawię metodę automatycznego przenoszenia wysłanych spotkań do innego folderu po wysłaniu spotkania.
Automatycznie przenoś wysłane spotkania do określonego folderu z kodem VBA
Automatycznie przenoś wysłane spotkania do określonego folderu z kodem VBA
Aby automatycznie przenieść wszystkie wysłane zaproszenia na spotkania do innego folderu, może Ci w tym pomóc poniższy kod, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.
Kod VBA: Automatyczne przenoszenie wysłanych spotkań do określonego folderu
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
3. Następnie zapisz i zamknij okno kodu. Teraz, gdy zostanie wysłany e-mail ze spotkaniem, zostanie przeniesiony do nowego folderu o nazwie Spotkania pod Elementy wysłane folder automatycznie, zobacz zrzut ekranu:
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.