Outlook vuole le date in formato esteso americano.
Devi formattare la data così:

codice:
.Start = Format$(rstDati!DataAppuntamento, "DD/MM/YYYY HH.NN.SS")