Termineinladung verschicken ohne das es sofort in die Gelöschten Ordner verschoben wird

Question

Hallo an Alle,

eine frage. Wieso setzt der unten stehende Code

Dim outtest As Outlook.AppointmentItem
Dim outl As Object
Dim myRequiredAttendee As Outlook.Recipient, myOptionalAttendee As Outlook.Recipient, myRessourceAttendee As Outlook.Recipient
Dim dDatum As String
Dim Datum1 As String
Dim Uhrzeit1 As String
Dim Uhrzeit2 As String, Ort As String, Raum As String, Betreff As String, Inhalt As String

dDatum = 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")
Raum = InputBox("In welchem Raum soll die  Schulung stattfinden", , "München(14)")

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

Set outl = CreateObject("Outlook.Application")
Set outtest = outl.CreateItem(olAppointmentItem)

With outtest
    outtest.MeetingStatus = olMeeting
    outtest.Body = Inhalt
    outtest.AllDayEvent = False
    outtest.ReminderSet = False
    outtest.ReminderMinutesBeforeStart = 60
    outtest.Start = CDate(dDatum) + CDate(Uhrzeit1)
    outtest.End = CDate(Datum1) + CDate(Uhrzeit2)
    outtest.Location = Ort
    outtest.Subject = Betreff
    Set myRequiredAttendee = outtest.Recipients.Add("[e-mail]")
    myRequiredAttendee.Type = olRequired
    Set myRessourceAttendee = outtest.Recipients.Add(Raum)
    myRessourceAttendee.Type = olResource
    outtest.Display
    outtest.Send
    outtest.Save
End With

eigentlich sofort einen Termin und schiebt das ganze in die Gelöschten Elemente. Gibt es eine Funktion bei der einfach eine Termineinladung verschickt wird, sodass die Personen die in der Empfängerliste erhalten sind das recht haben zu oder abzusagen? Vielen dank