.Busystatus = olBusy
25.08.2008 15:02:34
Tom
Alle Übergaben der Parameter funktionieren....bis auf einer...
.Busystatus = olBusy
Will einfach nicht. Dem Outlook ist es egal ob ich da "olBusy" oder "olFree" übergebe, der Termin wird immer als Frei eingetragen.
Kann das mit meiner Excel-Version zusammenhängen oder mach ich grundsätzlich etwas falsch?
Private Sub CommandButton1_Click()
Dim olApp As Object
Dim objAppItem As Object
Dim strActiveCell As String
Set olApp = CreateObject("Outlook.Application")
Set objAppItem = olApp.CreateItem(1)
With objAppItem
.Subject = ActiveCell.Offset(0, 4).Value
.Location = Sheets("Kalender").Range("L3")
.Body = ActiveCell.Offset(0, 15).Value
.Start = Sheets("Kalender").Range("K3")
.Duration = Sheets("Kalender").Range("G3")
.ReminderSet = Sheets("Kalender").Range("M3")
.ReminderMinutesBeforeStart = Sheets("Kalender").Range("I3")
.Importance = Sheets("Kalender").Range("H3")
.Busystatus = olBusy
.Save
End With
Set objAppItem = Nothing
Set olApp = Nothing
End Sub
Jemand eine Idee wo´s hängt?
Der Tom
Anzeige