VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ExportScheduler"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public WithEvents olItems As Outlook.Items
Attribute olItems.VB_VarHelpID = -1
Public nextExportTime As Date

Private Sub olItems_ItemAdd(ByVal Item As Object)
    ' Questo evento viene attivato quando arriva una nuova email
    ' Lo usiamo per controllare se č il momento di eseguire le esportazioni
    If Now >= nextExportTime Then
        Call ExecuteExports
    End If
End Sub

Public Sub ExecuteExports()
    ' Esegui le esportazioni
    '16/09/204 per il momento le ho bloccate: non servono pių...
    'Call ExportCalendarAppointments
    'Call ExportTasksToTextFile
    
    ' Imposta il prossimo tempo di esecuzione
    nextExportTime = DateAdd("n", 30, nextExportTime)
End Sub