Hoe converteer ik snel meerdere afspraken naar taken in Outlook?
In dit artikel zal ik het hebben over hoe je een afspraak of meerdere afspraken snel en eenvoudig naar taken converteert in Outlook.
Zet een afspraak om in een taak door ze te slepen en neer te zetten
Converteer meerdere afspraken naar taken door VBA-code toe te passen
Zet een afspraak om in een taak door ze te slepen en neer te zetten
Om een afspraak om te zetten in een taak, hoeft u alleen maar de afspraak naar de taakmap te slepen, doe dit als volgt:
1. In de Agenda -venster, selecteer het afspraakitem dat u naar een taak wilt converteren en sleep het vervolgens naar het Taken pictogram aan de onderkant van het navigatievenster zoals in de volgende schermafbeelding:
2. Dan een nieuwe Taak venster wordt weergegeven, klik dan Opslaan en sluiten knop om deze afspraak als taak op te slaan. Zie screenshot:
Converteer meerdere afspraken naar taken door VBA-code toe te passen
Als u meerdere afspraken heeft die naar taken moeten worden omgezet, kan de onderstaande VBA-code u een plezier doen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:
VBA-code: converteer meerdere afspraken naar taken
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. Selecteer vervolgens de afspraken die u naar een taak wilt converteren en klik op Voer Macro uit knop om deze code uit te voeren, zie screenshot:
4. En dan een map selecteren dialoogvenster verschijnt, selecteer een Taken map waarin u de geconverteerde resultaten wilt opslaan, zie screenshot:
5. Dan klikken OK knop, en alle geselecteerde afspraken worden aangemaakt als taken, en dan moet je het Taak venster een voor een, zie screenshot:
6. Vervolgens kunt u naar het Taak map, zijn alle geselecteerde afspraken opgeslagen als nieuwe taken, zie screenshot:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.