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 Relazioni dei task icona nella parte inferiore del pannello di navigazione come mostrato nella seguente schermata:
2. Quindi un nuovo Task viene visualizzata la finestra, fare clic Salva e chiudi per salvare questo appuntamento come attività. Vedi screenshot:
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 > Modulo, 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
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:
4. E poi a Seleziona cartella verrà visualizzata la finestra di dialogo, selezionare un file Relazioni dei task cartella in cui desideri salvare i risultati convertiti, vedi screenshot:
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:
6. Quindi, puoi andare al Task cartella, tutti gli appuntamenti selezionati sono stati salvati come nuove attività, vedi screenshot:
Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!
- Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
- Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
- Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
- Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
- E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
