Gå til hovedindhold

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:

dok. udnævnelse til opgave 1

2. Så en ny Opgaver vindue vises, skal du klikke Gem og luk knappen for at gemme denne aftale som opgave. Se skærmbillede:

dok. udnævnelse til opgave 2


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

dok. udnævnelse til opgave 3

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:

dok. udnævnelse til opgave 4

4. Og så en Vælg mappe dialog vises, vælg a Opgaver mappe, hvor du vil gemme de konverterede resultater, se skærmbillede:

dok. udnævnelse til opgave 5

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:

dok. udnævnelse til opgave 6

6. Derefter kan du gå til Opgaver mappe, alle de valgte aftaler er gemt som nye opgaver, se skærmbillede:

dok. udnævnelse til opgave 7


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 ProBatch 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.

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations