agenda item vanuit accessdatabase plaatsen in mij iCloud.pst in outlook

[Friend]

Beste forummers,

Via een gebeurtenis bij klikken onder een opdrachtknop stuur ik een agenda afspraak vanuit mijn access naar mijn persoonlijke.pst in mijn outlook.

Dit gaat via de volgende code (waarvoor veel dank aan Helpmij):

'Private Sub ApptDate_Enter()
'    InputDateField ApptDate, "Selecteer een datum"
'End Sub

Private Sub cmdAgenda_Click()

''DoCmd.RunCommand acCmdSaveRecord

If Me!AddedToOutlook = True Then
    MsgBox "Deze afspraak is al toegevoegd"
    Exit Sub
Else
    Dim outObj As Outlook.Application
    Dim outAppt As Outlook.AppointmentItem
    Set outObj = CreateObject("Outlook.Application")
    Set outAppt = outObj.CreateItem(olAppointmentItem)
    With outAppt
        .Start = Me!ApptDate & " " & Me!ApptTime
        .Duration = Me!ApptLength
        .Subject = Me!Appt
        '.Categories = "Groen"
         .Categories = Me!AppCategorieen
         If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
    If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
    If Me!ApptReminder Then
        .ReminderMinutesBeforeStart = Me!ReminderMinutes
        .ReminderSet = True
    End If
    .Save
    End With
End If


Set outObj = Nothing

Me!AddedToOutlook = True
''DoCmd.RunCommand acCmdSaveRecord
Me.Requery
MsgBox "Afspraak is toegevoegd !"

Exit Sub

AddAppt_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

End Sub

Dit werkt prima, zei het dat ik op een dag mijn persoonlijke.pst heb overgezet naar mijn iCloud.pst en ik nu deze afspraken vanuit access naar mijn persoonlijke.pst naar mijn iCloud.pst moet slepen.

Dat is dubbel en onnodig werk, alleen hoe kan, indien mogelijk, ik de code aanpassen zodat vanuit access niet mijn persoonlijke.pst gevuld wordt maar mijn iCloud.pst in outlook?

Friend

 

[OctaFish]

Zoals je in de code ziet, start je een losse applicatie op. En een applicatie heeft uiteraard zo zijn eigen nukken. Die van Outlook is, dat het niet zonder Outlook.pst kan. Je hoeft, als je een CreateObject uitvoert, ook niet aan te geven dat het Outlook.pst bestand gebruikt moet worden. Sterker nog, kan niet eens. En dat geldt dan ook voor andere pst-tjes die je handmatig hebt toegevoegd. Volgens mij kun je ook dus niet in een iCloud agenda iets zetten. Maar ik wil wel eens uitzoeken of je een specifieke AppointmentItem kunt plaatsen.

 

[Friend]

Michel, hartelijk dank voor je reactie :thumb:. Dank dat je er nog even verder naar wilt kijken! Ik hoor graag weer van je, Thanks, Friend