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

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 Opgave 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 Opgave vindue en efter en, se skærmbillede:

dok. udnævnelse til opgave 6

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

dok. udnævnelse til opgave 7


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL