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

Hogyan konvertálhat több találkozót gyorsan feladattá az Outlookban?

Ebben a cikkben arról fogok beszélni, hogyan lehet gyorsan és egyszerűen konvertálni egy találkozót vagy több találkozót feladattá az Outlookban.

Konvertáljon egy találkozót feladattá húzással

Több találkozót konvertáljon feladatokká VBA-kód alkalmazásával


Konvertáljon egy találkozót feladattá húzással

Ha egy találkozót feladattá kíván konvertálni, akkor egyszerűen húzza a találkozót a feladat mappába, kérjük, tegye a következőket:

1. Az Naptár ablakban válassza ki azt a találkozó elemet, amelyet konvertálni kell feladatra, majd húzza át a Feladatok ikon a navigációs panel alján, a következő képernyőkép szerint:

doc kinevezés az 1. feladatra

2. Aztán egy új Feladat ablak jelenik meg, kérjük kattintson Mentés és bezárás gombra kattintva mentheti el ezt a találkozót feladatként. Lásd a képernyőképet:

doc kinevezés az 2. feladatra


Több találkozót konvertáljon feladatokká VBA-kód alkalmazásával

Ha több időpontot kell átalakítani feladatokká, akkor az alábbi VBA-kód szívességet tehet Önnek, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:

VBA kód: Több találkozó konvertálása feladattá

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 kinevezés az 3. feladatra

3. Ezután válassza ki a feladatra konvertálni kívánt találkozókat, majd kattintson a gombra Futtassa a Makrót gomb a kód futtatásához, lásd a képernyőképet:

doc kinevezés az 4. feladatra

4. És akkor a Válassza ki a Mappa megjelenik a párbeszédpanel, válassza ki a Feladatok mappát, ahová el akarja menteni az átalakított eredményeket, lásd a képernyőképet:

doc kinevezés az 5. feladatra

5. Ezután kattintson OK gombot, és az összes kijelölt találkozó feladatként jön létre, majd el kell mentenie és bezárnia a Feladat ablak egyesével, lásd a képernyőképet:

doc kinevezés az 6. feladatra

6. Ezután elmehet a Feladat mappa, az összes kijelölt találkozót új feladatként mentette, lásd a képernyőképet:

doc kinevezés az 7. feladatra


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi