Hvordan konverteres flere aftaler til opgaver hurtigt i Outlook?
I denne artikel vil jeg snakke om, hvordan man hurtigt og nemt konverterer en aftale eller flere aftaler til opgaver i Outlook.
Konverter en aftale til opgave ved at trække og slippe
Konverter flere aftaler til opgaver ved at anvende VBA-kode
Konverter en aftale til opgave ved at trække og slippe
For at konvertere en aftale til en opgave skal du bare trække aftalen til opgavemappen, gør som følger:
1. I Kalender vindue, skal du vælge det aftalepunkt, du skal konvertere til opgaven, og derefter trække og slippe det til Opgaver ikon nederst i navigationsruden som vist skærmbillede vist:
2. Så en ny Opgaver vindue vises, skal du klikke Gem og luk knappen for at gemme denne aftale som opgave. Se skærmbillede:
Konverter flere aftaler til opgaver ved at anvende VBA-kode
Hvis du har flere aftaler, der skal konverteres til opgaver, kan nedenstående VBA-kode gøre dig en tjeneste, gør som følger:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul, se skærmbillede:
VBA-kode: Konverter flere aftaler til opgaver
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. Vælg derefter de aftaler, du vil konvertere til opgave, og klik derefter på Kør makro knap for at køre denne kode, se skærmbillede:
4. Og så en Vælg mappe dialog vises, vælg a Opgaver mappe, hvor du vil gemme de konverterede resultater, se skærmbillede:
5. Klik derefter på OK knappen, og alle valgte aftaler oprettes som opgaver, og derefter skal du gemme og lukke Opgaver vindue en efter en, se skærmbillede:
6. Derefter kan du gå til Opgaver mappe, alle de valgte aftaler er gemt som nye opgaver, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.