ich habe ein Problem mit dem Eintagen von Kalenderterminen in den Outlook-Kalender.
Habe den Code fürs Forum etwas gekürzt (ohne Schleifen usw.) um nur auf mein Problem einzugehen.
Mein Problem ist, dass obwohl ich im .End Datum, eine halbe Stunde mehr habe im Outlook immer die Anfangszeit = End Zeit ist.
Lese ich andere Einträge aus dem Kalender aus(anderer Code), wird mit .End alles richtig ausgegeben Datum und Zeit!?
Wie muss ich nun die .End Zeit übergeben damit diese richtig eingetragen wird?
Sub Schreibe_Kalender()
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
Dim Anfang As Date, Ende As Date
With apptOutApp
Anfang = Format("10.10.2007 08:00", "dd/mm/yyyy hh:mm")
Ende = Format("10.10.2007 08:30", "dd/mm/yyyy hh:mm")
.Start = Anfang
.End = Ende 'hier wird nicht die Zeit 08:30 sonder 08:00 übergeben?
.Subject = "Test"
End With
End Sub
Danke für Eure Unterstützung
Gruß
Tino