Beste Lezers,
Ik vrees dat ik weer een beroep op jullie moet doen. Ik loop een beetje vast bij het volgende:
Ik heb in Access een formulier gemaakt waarmee ik een aantal gegevens automatisch invul in
een in te plannen afspraak. Dit gaat helemaal goed, echter.....
De afspraak komt in de verkeerde agenda terecht.
Ik heb zitten speuren op internet om dit probleem te verhelpen, maar ik loop vast.
Hieronder de code waarmee ik succesvol een afspraak kan maken.
Is er iemand die hieraan code kan toevoegen waarmee een specifieke agenda kan worden aangeroepen?....
Dim OlApp As Outlook.Application
Dim Appt As Outlook.AppointmentItem
Dim MyFolder As Outlook.MAPIFolder
Set OlApp = CreateObject("Outlook.Application")
Set Appt = OlApp.CreateItem(olAppointmentItem)
Appt.Subject = Me.txtNaamKlant & " " & Me.txtApparaat
Appt.Start = Me.txtDatum
Appt.End = Me.txtDatum
Appt.Body = Me.txtKlachtomschrijving
Appt.Display
Set Appt = Nothing
Set OlApp = Nothing
Bij voorbaat hartelijk dank !!!
Ik vrees dat ik weer een beroep op jullie moet doen. Ik loop een beetje vast bij het volgende:
Ik heb in Access een formulier gemaakt waarmee ik een aantal gegevens automatisch invul in
een in te plannen afspraak. Dit gaat helemaal goed, echter.....
De afspraak komt in de verkeerde agenda terecht.
Ik heb zitten speuren op internet om dit probleem te verhelpen, maar ik loop vast.
Hieronder de code waarmee ik succesvol een afspraak kan maken.
Is er iemand die hieraan code kan toevoegen waarmee een specifieke agenda kan worden aangeroepen?....
Dim OlApp As Outlook.Application
Dim Appt As Outlook.AppointmentItem
Dim MyFolder As Outlook.MAPIFolder
Set OlApp = CreateObject("Outlook.Application")
Set Appt = OlApp.CreateItem(olAppointmentItem)
Appt.Subject = Me.txtNaamKlant & " " & Me.txtApparaat
Appt.Start = Me.txtDatum
Appt.End = Me.txtDatum
Appt.Body = Me.txtKlachtomschrijving
Appt.Display
Set Appt = Nothing
Set OlApp = Nothing
Bij voorbaat hartelijk dank !!!