Preskoči na glavno vsebino

Kako v Outlooku hitro pretvoriti več sestankov v opravila?

Avtor: Xiaoyang Zadnja sprememba: 2018-05-28

V tem članku bom govoril o tem, kako v Outlooku hitro in enostavno pretvoriti sestanek ali več sestankov v opravila.

Pretvorite en sestanek v opravilo tako, da ga povlečete in spustite

Pretvorite več sestankov v naloge z uporabo kode VBA


Pretvorite en sestanek v opravilo tako, da ga povlečete in spustite

Če želite en sestanek pretvoriti v opravilo, ga preprosto povlecite v mapo opravil, naredite tako:

1. v Koledar izberite element sestanka, ki ga želite pretvoriti v opravilo, nato pa ga povlecite in spustite na Naloge na dnu navigacijskega podokna, kot je prikazano na sliki spodaj:

imenovanje doktorja za nalogo 1

2. Potem novo Naloga okno se prikaže, kliknite Shrani in zapri , da shranite ta sestanek kot nalogo. Oglejte si posnetek zaslona:

imenovanje doktorja za nalogo 2


Pretvorite več sestankov v naloge z uporabo kode VBA

Če morate več sestankov pretvoriti v opravila, vam lahko spodnja koda VBA naredi uslugo, storite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: pretvorite več sestankov v opravila

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

imenovanje doktorja za nalogo 3

3. Nato izberite sestanke, ki jih želite pretvoriti v opravilo, in kliknite Zaženite makro gumb za zagon te kode, glej posnetek zaslona:

imenovanje doktorja za nalogo 4

4. In potem a Izberite mapo odpre se pogovorno okno, izberite a Naloge mapo, kamor želite shraniti pretvorjene rezultate, si oglejte posnetek zaslona:

imenovanje doktorja za nalogo 5

5. Nato kliknite OK in vsi izbrani sestanki bodo ustvarjeni kot naloge, nato pa shranite in zaprite Naloga okno eno za drugo, glej posnetek zaslona:

imenovanje doktorja za nalogo 6

6. Potem lahko greste na Naloga mapo, so bili vsi izbrani sestanki shranjeni kot nova opravila, glejte posnetek zaslona:

imenovanje doktorja za nalogo 7


Najboljša pisarniška orodja za produktivnost

Izjemne novice: Zažene se Kutools for Outlook Brezplačna različica!

Izkusite popolnoma nove Kutools za Outlook BREZPLAČNA različica s 70+ neverjetnimi funkcijami, vaša za uporabo ZA VEDNO! Kliknite za prenos zdaj!

🤖 Kutools AI : Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Samodejni odgovor (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Odpoklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Opomni vas, ko pridejo pomembna e-poštna sporočila  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Takoj odklenite Kutools za Outlook z enim klikom—trajno brezplačno. ne čakaj, prenesite zdaj in povečajte svojo učinkovitost!

 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations