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

Kako v Outlooku hitro pretvoriti več sestankov v opravila?

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


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije