VBA-Access-Outlook

Hallo an Alle,

ich habe ein kleines Problemchen. Der untenstehende Code soll bewirken, dass über Access ein Termin in Outlook angelegt werden soll. Das klappt auch einwandfrei. Jedoch nutzt es mir nichts wenn nur ich den Termin sehe :S Hier entsteht auch die erste Frage: Wie kann ich bewirken, dass Teilnehmer hinzugefügt und benachrichtigt werden soll? Die zweite frage wäre kann ich die E-Mail adressen über eine Abfrage herauslesen lassen? Und die letzte wie füge ich eine Ressource hinzu ? Vielen vielen Dank im Voraus und Schöne Grüße aus München

If Me.statusNr = 10 And Me.IsDone = True Then
result = MsgBox("Möchten Sie eine Email für die Termineinladung verschicken?", vbYesNo)
    If (result = vbYes) Then

Dim outtest As Outlook.AppointmentItem
Dim MailAdressen As String



Set rsMail = CurrentDb.OpenRecordset("qryTeilnehmer")


Datum = InputBox("Datum eingeben und Uhrzeit eingeben tt.mm.yyyy", , "01.10.2013")
Datum1 = InputBox("Enddatum eingeben und Uhrzeit eingeben", , "02.10.2013")
Uhrzeit1 = InputBox("Wann soll die Schulung anfangen?", , "09:00")
Uhrzeit2 = InputBox("Wann soll die Schulung enden?", , "18:00")
Ort = InputBox("Wo findet die Schulung statt?", , "01.Riem")

Betreff = "Test"
Inhalt = "Dieser Termin wurde direkt aus Access eingetragen"

Set outl = CreateObject("Outlook.Application")

MeetinStatus = olMeeting

With outtest
    outtest.Recipients.Add
    outtest.Display
    outtest.Body = Inhalt
    outtest.AllDayEvent = False
    outtest.ReminderSet = False
    outtest.Resources = Ressource
    outtest.ReminderMinutesBeforeStart = 60
    outtest.Start = CDate(Datum) + CDate(Uhrzeit1)
    outtest.End = CDate(Datum1) + CDate(Uhrzeit2)
    outtest.Location = Ort
    outtest.Subject = Betreff
    outtest.BusyStatus = olFree
    outtest.Send
    End With
    rsMail.Close
    Set rsMail = Nothing
    Set outtest = Nothing
    Close #1
    Set outl = Nothing
    Else
    Me.Undo
    Form_Current

  



MsgBox "Test läuft"



End If
End If