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

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

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

Konvertera flera möten till uppgifter genom att tillämpa 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 välj det mötesobjekt som du behöver konvertera till uppgiften och dra och släpp det sedan till Uppgifter ikonen längst ner i navigeringsfönstret som följande skärmdump visas:

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

---

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

Om du har flera möten måste konverteras till uppgifter kan nedanstående VBA-kod göra dig en tjänst, 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

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

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

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

6. Sedan kan du gå till uppgift mappen har alla valda möten sparats som nya uppgifter, se skärmdump: