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:
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:
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
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:
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:
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:
6. Pak můžete jít do Úkol Složka, všechny vybrané události byly uloženy jako nové úkoly, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.