Salve a tutti dopo vari tentativi e varie strade intraprese sono riuscito a sincronizzare i dati tra il calendario di outlook e google calendar senza API, usando semplicemente un software freeware, adesso il m io problema è che riesco a leggere tutti i dati del recordset prodotto da access, ma si incasina con le date. Il mio recordset restituisce il valore contenuto nel campo data start in formasto stringa, come è memorizzato nella tabella del resto; ma quando faccio il salvataggio sul calendario di outlook le date sono relative al 18/12/18... Posto il codice che uso e spero che qualcuno mi possa aiutare, Grazie anticipatamente.

' The Outlook application model
Dim objOutlook As Outlook.Application
' The Outlook namespace for accessing folders
Dim objNamespace As Outlook.NameSpace
' An Outlook folder; will be the calendar
Dim objFolderCalendar As Outlook.MAPIFolder
' An appointment; remember to save it when done!
Dim newAppt As Outlook.AppointmentItem
Set objOutlook = Outlook.Application
' Get the Outlook namespace so you can access folders
Set objNamespace = objOutlook.GetNamespace("MAPI")
' Get the calendar folder
Set objFolderCalendar = objNamespace.GetDefaultFolder(olFolderCalendar)
'Create a new appt.
Set newAppt = objFolderCalendar.Items.Add


Dim rstDati As Recordset
Set rstDati = CurrentDb.OpenRecordset("Select * From T_Export")
Dim dataitaliaStart As String
Dim dataitaliaEnd As String
Dim GiornoItalia As String
Dim MeseItalia As String
Dim AnnoItalia As String
Dim dataamerica As String

Do While Not rstDati.EOF
Set newAppt = objFolderCalendar.Items.Add
'RECUPERO I DATI DAL RECORDSET
'dataitalia = Format(newAppt.Start, "gg/mm/yyyy")
'dataitaliaEnd = Format(newAppt.End, "gg/mm/yyyy")
dataitaliaStart = Format(rstDati.Fields("Start Date").Value, "dd/mm/yyyy")
dataitaliaEnd = Format(rstDati.Fields("End Date").Value, "dd/mm/yyyy")
' FORMATTO LA DATA IN TIPOLOGIA AMERICANA
MeseItalia = Mid(dataitaliaStart, 4, 3)
GiornoItalia = Mid(dataitaliaStart, 1, 3)
AnnoItalia = Right(dataitaliaStart, 4)
dataamerica = MeseItalia & GiornoItalia & AnnoItalia
'newAppt.Start = CDate(rstDati.Fields("Start Date").Value)
'newAppt.End = CDate(rstDati.Fields("End Date").Value)
newAppt.Start = dataamerica
newAppt.End = dataamerica
newAppt.Subject = rstDati.Fields("SUbject").Value
newAppt.StartInStartTimeZone = rstDati.Fields("Start Time").Value
newAppt.EndInEndTimeZone = rstDati.Fields("End Time").Value
'set more properties
' actually save it in Outlook
newAppt.Save
' clear the VBA object so you can use it again the next time around the loop
Set newAppt = Nothing
rstDati.MoveNext
Loop