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

    Frage

  • 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("emfpaenger@domain.tld")
        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

    Donnerstag, 3. Oktober 2013 13:16