Come creare un appuntamento in Outlook da Access

Può capitare che il database di Microsoft Access sia utilizzato per memorizzare degli eventi. In tal caso è utile sapere come creare un appuntamento in Outlook da Access.

Abbiamo una tabella tblEventi:

tabella Eventi

e una maschera:

MascheraEventi

 

Ora aggiungiamo il codice necessario al pulsante

Inizio creando le due variabili, la prima per fare riferimento ad Outlook, la seconda per creare poi l’appuntamento

Private Sub cmdAccess2Outlook_Click()
Dim OutObj ' riferimento ad Outlook
Dim OutAppt ' appuntamento

Ora assegno alle due variabili l’oggetto voluto. Questo è un late binding, che mi consente di non aggiungere ai riferimenti Outlook. In tal modo il codice che ho scritto funziona indipendentemente dalla versione di Outlook.

Set OutObj = CreateObject("Outlook.Application") ' late binding
Set OutAppt = OutObj.createitem(1)

1 in CreateItem corrisponde all’appuntamento.

Ora devo specificare le caratteristiche dell’appuntamento leggendo i dati dai controlli presenti sulla maschera:

With OutAppt
 .start = txtDataEvento
 .duration = txtDurataEvento
 .subject = txtTitoloEvento
 .body = txtDescrizioneEvento
 .location = txtSedeEvento
 .reminderminutesbeforestart = 15
 .reminderset = True
 .Save
End With

Per finire, distruggo le due variabili per liberare memoria. Se non lo faccio, comunque le variabili saranno distrutte quando finiranno le istruzioni presenti nella routine cmdAccess2Outlook_Click

Set OutAppt = Nothing
Set OutObj = Nothing