Hur konverterar jag flera möten till uppgifter snabbt i Outlook?

I den här artikeln kommer jag att prata om hur man konverterar ett möte eller flera möten till uppgifter snabbt och enkelt i Outlook.

Konvertera ett möte till uppgift genom att dra och släppa

Konvertera flera möten till uppgifter genom att använda VBA-kod

Konvertera ett möte till uppgift genom att dra och släppa

För att konvertera ett möte till uppgift behöver du bara dra mötet till uppgiftsmappen, gör så här:

1. I Kalender fönstret, välj det mötesobjekt som du behöver konvertera till uppgift och dra och släpp det sedan till Uppgifter ikonen längst ned i navigeringsrutan som följande skärmbild visas:

doc utnämning till uppgift 1

2. Sedan en ny uppgift fönstret visas, klicka på Spara och stäng knappen för att spara det här mötet som uppgift. Se skärmdump:

doc utnämning till uppgift 2

Konvertera flera möten till uppgifter genom att använda VBA-kod

Om du har flera möten som behöver konverteras till uppgifter kan nedanstående VBA-kod göra dig en tjänst, vänligen gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen, se skärmdump:

VBA-kod: Konvertera flera möten till uppgifter

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

doc utnämning till uppgift 3

3. Välj sedan de möten som du vill konvertera till uppgift och klicka sedan Kör makro knappen för att köra den här koden, se skärmdump:

doc utnämning till uppgift 4

4. Och sedan en Välj mapp dialogrutan dyker upp, välj en Uppgifter mapp där du vill spara de konverterade resultaten, se skärmdump:

doc utnämning till uppgift 5

5. Klicka sedan OK knappen, och alla valda möten kommer att skapas som uppgifter, och sedan bör du spara och stänga uppgift fönster ett efter ett, se skärmdump:

doc utnämning till uppgift 6