[Ich habe diese "Lösung" gefunden] [1]. Es scheint, dass es keine echte Lösung gibt, aber diese Website hat eine Problemumgehung in den Kommentaren
Hallo, das ist kein Fix für die 18-Stunden-Sache, aber es ist ein Workaround. Es kommt in Form eines Outlook-Makros, das ich gerade geschrieben habe - Sie können alle den folgenden Code verwenden.
Was dabei passiert, ist, dass Sie Ihren Kalender nur für die nächsten sechs Monate aller Termine durchsuchen und dann die Benachrichtigung auf 0 Minuten einstellen. Das bedeutet, dass Sie sie am selben Tag auf Ihre Blackberry laden sollten.
Nachdem Sie den Code in Outlook kopiert haben, sollten Sie ihn selbst unterschreiben, damit Outlook ihn mit einer noch guten Makrosicherheit ausführen und eine Makroschaltfläche in die Symbolleiste einfügen kann. Anweisungen für beide finden Sie auf den folgenden Websites. Dann müssen Sie nur die Makro-Taste in Outlook jeden Tag \ Woche drücken, und Sie müssen sich nicht darum kümmern, einen ganztägigen Termin in Outlook festzulegen, ohne die Benachrichtigung zu ändern.
Ich hoffe es hilft.
Sub AllDaySetToZero() Dim daStart, daEnd As Date Dim oCalendar As Outlook.Folder Dim oItems As Outlook.Items Dim oItemsInDateRange As Outlook.Items Dim oFinalItems As Outlook.Items Dim oAppt As Outlook.AppointmentItem Dim strRestriction As String Dim Debuglog Dim CurrentTitle As String ‘ PART ONE ‘ Set the date range for the appointments query - ‘ It is set below to start at todays date and ‘ end at todays date + 120 days (or 4 months) ‘ You can increase or reduce this based on your PCs performance daStart = Format(Date, “mm/dd/yyyy hh:mm AMPM”) daEnd = DateAdd(”d”, 120, daStart) daEnd = Format(daEnd, “mm/dd/yyyy hh:mm AMPM”) Debuglog = “1 Start: ” & daStart Debuglog = Debuglog & “, ” & “1 End: ” & daEnd ‘ PART TWO ‘ Construct a filter for the next 120-day date range. strRestriction = “[Start] >= ‘” & daStart _ & “‘ AND [End] <= ‘” & daEnd & “‘” Debuglog = Debuglog & “, ” & “2 ” & strRestriction ‘ PART THREE ‘ The macro obtains the set of appointment items in the default calendar ‘ specified by the current Outlook user profile. Set oCalendar = Application.Session.GetDefaultFolder(olFolderCalendar) Set oItems = oCalendar.Items ‘ PART FOUR ‘ To include recurring appointments, sort by using the Start property. oItems.IncludeRecurrences = True oItems.Sort “[Start]” ‘ PART FIVE ‘ Restrict the Items collection for the 1110-day date range. Set oFinalItems = oItems.Restrict(strRestriction) ‘ PART SIX ‘ Go through each calendar item remaining in turn ‘ If it isn’t a full Day event do nothing ‘ If it is set Reminder to 0 Minutes. oFinalItems.Sort “[Start]” For Each oAppt In oFinalItems Debuglog = Debuglog & “, ” & “6 ” & oAppt.Start & “, ” & oAppt.Subject & “, ” & oAppt.ReminderMinutesBeforeStart CurrentTitle = oAppt.Subject If oAppt.AllDayEvent = False Then Else oAppt.ReminderMinutesBeforeStart = 0 oAppt.Save End If Debuglog = Debuglog & “, ” & “6 ” & oAppt.Start & “, ” & oAppt.Subject & “, ” & oAppt.ReminderMinutesBeforeStart & vbNewLine & vbNewLine Next Debuglog = “” End Sub