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

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:

doc-möte till uppgift 1

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:

doc-möte till uppgift 2


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

doc-möte till uppgift 3

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:

doc-möte till uppgift 4

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:

doc-möte till uppgift 5

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:

doc-möte till uppgift 6

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

doc-möte till uppgift 7


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL