Note: The other languages of the website are Google-translated. Back to English

Jak szybko przekonwertować wiele spotkań na zadania w Outlooku?

W tym artykule omówię, jak szybko i łatwo przekonwertować spotkanie lub wiele spotkań na zadania w programie Outlook.

Konwertuj jedno spotkanie na zadanie, przeciągając i upuszczając

Konwertuj wiele spotkań na zadania, stosując kod VBA


Konwertuj jedno spotkanie na zadanie, przeciągając i upuszczając

Aby przekonwertować jedno spotkanie na zadanie, wystarczy przeciągnąć spotkanie do folderu zadań, wykonaj następujące czynności:

1, w Kalendarz wybierz element spotkania, który chcesz przekonwertować na zadanie, a następnie przeciągnij i upuść go do zadania ikona u dołu okienka nawigacji, jak pokazano na poniższym zrzucie ekranu:

termin doc do zadania 1

2. Potem nowy Zadanie zostanie wyświetlone okno, kliknij Zapisz i zamknij aby zapisać to spotkanie jako zadanie. Zobacz zrzut ekranu:

termin doc do zadania 2


Konwertuj wiele spotkań na zadania, stosując kod VBA

Jeśli masz wiele spotkań, które chcesz przekonwertować na zadania, poniższy kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. A następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu, zobacz zrzut ekranu:

Kod VBA: konwertuj wiele spotkań na zadania

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

termin doc do zadania 3

3. Następnie wybierz terminy, które chcesz przekonwertować na zadanie, a następnie kliknij Uruchom makro przycisk do uruchomienia tego kodu, zobacz zrzut ekranu:

termin doc do zadania 4

4. A potem a Wybierz folder pojawi się okno dialogowe, wybierz plik zadania folder, w którym chcesz zapisać przekonwertowane wyniki, zobacz zrzut ekranu:

termin doc do zadania 5

5. Następnie kliknij OK , a wszystkie wybrane spotkania zostaną utworzone jako zadania, a następnie należy zapisać i zamknąć plik Zadanie okno po kolei, patrz zrzut ekranu:

termin doc do zadania 6

6. Następnie możesz przejść do Zadanie folder, wszystkie wybrane spotkania zostały zapisane jako nowe zadania, zobacz zrzut ekranu:

termin doc do zadania 7


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL