Hvis vi tager udgangspunkt i en formular i Access, hvor der er følgende tekstbokse: - Dato - formateret til dato via guide - Kl. - formateret til kl. via guide - Aftaletekst samt en knap med følgende VBA-egenskaber v/klik:
Option Compare Database Private Sub Kommandoknap9_Click() 'Opdater i OutLook-kalender opdaterKalender [dato], [kl], [aftale] End Sub Private Sub opdaterKalender(dag, kl, aftale) Dim olApp, Namespace, myCalendar, besøgsaftale Dim f, dagFundet As Boolean
Set olApp = CreateObject("Outlook.Application") Set Namespace = olApp.GetNamespace("MAPI") Set besøgsaftale = Namespace.GetDefaultFolder(olFolderCalendar).Items
Set besøgsaftale = olApp.CreateItem(olAppointmentItem)
besøgsaftale.Start = CStr(dag) + " " + CStr(kl) besøgsaftale.Subject = aftale besøgsaftale.ReminderSet = False besøgsaftale.Save End Sub
OBS: Desuden skal der sættes en reference til MS Outlook - i VBA-koden Tools|References - er anført i alfabetisk orden.
Kunne godt tænke mig et stykke VBA-kode der fra Access kan tilgå Outlook kalenderen og omvendt + de begreber som jeg skal bruge såsom søge, slette, oprette og redigere.
plaf -> har du prøvet i ACCESS under filer/hent eksterne data at linke til fx. outlook-kalenderen. (vælg exchange i filtype) På denne måde har du hele outlook-kalendere (eller andre outlook-ting) lige ved hånden og kan både ændre, slette og oprette nye poster
bak -> Tak for dit udemærkede svar. Der skal også enkelte tjek på eksisterende data inden man poster recorden i ACCESS og derefter oprettes den i OUTLOOK også, er det muligt. evt. hvordan?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.