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

Jak v aplikaci Outlook rychle převést více schůzek na úkoly?

V tomto článku budu hovořit o tom, jak rychle a snadno převést schůzku nebo více schůzek na úkoly v aplikaci Outlook.

Převeďte jednu schůzku na úkol přetažením

Převeďte více schůzek na úkoly pomocí kódu VBA


Převeďte jednu schůzku na úkol přetažením

Chcete-li převést jednu schůzku na úkol, stačí přetáhnout schůzku do složky úkolů, postupujte takto:

1. V Kalendář V okně vyberte položku schůzky, kterou potřebujete převést na úkol, a poté ji přetáhněte do složky Úkoly ikona v dolní části navigačního podokna jako následující snímek obrazovky:

jmenování dokumentu do úkolu 1

2. Pak nový Úkol Zobrazí se okno, klikněte prosím Uložit a zavřít tlačítko pro uložení této události jako úkolu. Viz snímek obrazovky:

jmenování dokumentu do úkolu 2


Převeďte více schůzek na úkoly pomocí kódu VBA

Pokud máte více schůzek, které je třeba převést na úkoly, níže uvedený kód VBA vám může udělat laskavost, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. A pak klikněte Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu, viz screenshot:

Kód VBA: Převést více schůzek na úkoly

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

jmenování dokumentu do úkolu 3

3. Poté vyberte události, které chcete převést na úkol, a poté klikněte Spustit makro tlačítko pro spuštění tohoto kódu, viz screenshot:

jmenování dokumentu do úkolu 4

4. A pak a Vybrat složku vyskočí dialogové okno, vyberte a Úkoly složka, kam chcete uložit převedené výsledky, viz screenshot:

jmenování dokumentu do úkolu 5

5. Pak klikněte na tlačítko OK Tlačítko a všechny vybrané události budou vytvořeny jako úkoly a poté byste měli uložit a zavřít Úkol okno po jednom, viz screenshot:

jmenování dokumentu do úkolu 6

6. Pak můžete jít do Úkol Složka, všechny vybrané události byly uloženy jako nové úkoly, viz screenshot:

jmenování dokumentu do úkolu 7


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění