QNA > E > Esiste Un'app Di Promemoria Per Le Ripetizioni Distanziate O Un Task Manager? Artboard

Esiste un'app di promemoria per le ripetizioni distanziate o un task manager? Artboard

Sì e No. Sono stato alla ricerca di questo per molto tempo e ho contattato molte persone senza fortuna perché è lo strumento perfetto per lo studio. Personalmente uso Onenote e Imindmap per il mio studio, quindi ho richiesto una soluzione che può essere utilizzata per entrambi i programmi...

Mi rendo conto che questa è una vecchia domanda, ma penso che sia importante condividere una risposta. La soluzione che ho trovato è stata contattando BlueDevilFan su Experts Exchange e sviluppando una macro in Outlook per ottenere il risultato desiderato. Di seguito è riportato il codice per una macro di base di Outlook per ripetere un'attività a intervalli distanziati (1 giorno, 1 settimana, 1 mese, 3 mesi e 6 mesi). Il compito sarà ripetuto solo se si esegue la macro su di esso, il che è anche un enorme vantaggio! Avere un account di posta elettronica di scambio vi permetterà di visualizzare i vostri compiti su ogni dispositivo. Naturalmente è necessario Outlook, ma questo è un luogo comune. Ci sono molte guide su come implementare le macro in outlook.

Sub CopyTask()
Const MACRO_NAME = "Copy Task"
Dim olkTsk As Object, olkNew As Outlook.TaskItem
Set olkTsk = Application.ActiveExplorer.Selection(1)
If olkTsk.Class = olTask Then
'Creare un compito che'è in scadenza 1 giorno dopo la data di scadenza del compito precedente
Set olkNew = olkTsk.Copy
olkNew.StartDate = Date
olkNew.DueDate = DateAdd("d", 1, olkTsk.DueDate)
olkNew.Categories = "1 Day Review"
olkNew.Save
'Creare un compito che's scadenza 1 settimana dalla data di scadenza del compito precedente
Set olkNew = olkTsk.Copy
olkNew.StartDate = Date
olkNew.DueDate = DateAdd("d", 7, olkTsk.DueDate)
olkNew.Categories = "1 Week Review"
olkNew.Save
'Crea un compito che'ha scadenza 1 mese dalla data di scadenza del compito precedente
Set olkNew = olkTsk.Copy
olkNew.StartDate = Date
olkNew.DueDate = DateAdd("m", 1, olkTsk.DueDate)
olkNew.Categories = "1 Month Review"
olkNew.Save
'Crea un compito che'è in scadenza 3 mesi dalla data di scadenza del compito precedente
Set olkNew = olkTsk.Copy
olkNew.StartDate = Date
olkNew.DueDate = DateAdd("m", 3, olkTsk.DueDate)
olkNew.Categories = "3 Month Review"
olkNew.Save
'Creare un compito che's scadenza 6 mesi dalla data di scadenza del compito precedente
Set olkNew = olkTsk.Copy
olkNew.StartDate = Date
olkNew.DueDate = DateAdd("m", 6, olkTsk.DueDate)
olkNew.Categories = "6 Month Review"
olkNew.Save
Else
MsgBox "È necessario selezionare un compito per questa macro per funzionare.", vbCritical + vbOKOnly, MACRO_NAME
End If
Set olkTsk = Nothing
Set olkNew = Nothing
MsgBox "Compiti creati.", vbInformation + vbOKOnly, MACRO_NAME
End Sub

Di Alecia

Quanto costa creare o sviluppare un'applicazione mobile di promemoria in India, sia su Android che su iOS? :: Come dovrei iniziare ad imparare Python?
Link utili