Vai al contenuto principale

Come convertire più appuntamenti in attività rapidamente in Outlook?

In questo articolo, parlerò di come convertire un appuntamento o più appuntamenti in attività in modo rapido e semplice in Outlook.

Converti un appuntamento in un'attività trascinandolo e rilasciandolo

Converti più appuntamenti in attività applicando il codice VBA


Converti un appuntamento in un'attività trascinandolo e rilasciandolo

Per convertire un appuntamento in un'attività, devi solo trascinare l'appuntamento nella cartella delle attività, per favore fai come segue:

1. Nel Calendario finestra, seleziona l'elemento dell'appuntamento che devi convertire in attività, quindi trascinalo e rilascialo nel file Compiti icona nella parte inferiore del pannello di navigazione come mostrato nella seguente schermata:

appuntamento doc per l'attività 1

2. Quindi un nuovo Task viene visualizzata la finestra, fare clic Salva e chiudi per salvare questo appuntamento come attività. Vedi screenshot:

appuntamento doc per l'attività 2


Converti più appuntamenti in attività applicando il codice VBA

Se hai più appuntamenti che devono essere convertiti in attività, il codice VBA seguente può farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare clic su inserire > Moduli, copia e incolla sotto il codice nel modulo vuoto aperto, vedi screenshot:

Codice VBA: converti più appuntamenti in attività

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

appuntamento doc per l'attività 3

3. Quindi selezionare gli appuntamenti che si desidera convertire in attività e quindi fare clic su Esegui macro pulsante per eseguire questo codice, vedi screenshot:

appuntamento doc per l'attività 4

4. E poi a Seleziona cartella verrà visualizzata la finestra di dialogo, selezionare un file Compiti cartella in cui desideri salvare i risultati convertiti, vedi screenshot:

appuntamento doc per l'attività 5

5. Quindi fare clic OK e tutti gli appuntamenti selezionati verranno creati come attività, quindi salvare e chiudere il file Task finestra una per una, vedi screenshot:

appuntamento doc per l'attività 6

6. Quindi, puoi andare al Task cartella, tutti gli appuntamenti selezionati sono stati salvati come nuove attività, vedi screenshot:

appuntamento doc per l'attività 7


I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati ProSalvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Leggi Ora       Scarica gratis      Acquista
 

 

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