[나는이 '해결책'을 발견했다] [1]. 실제 수정 사항이없는 것 같지만이 웹 사이트는 의견에 해결 방법이 있습니다.
안녕하세요, 이것은 18 시간 동안 해결되지 않았습니다.
일이지만 그 해결 방법. 그것은 온다.
내가 가진 Outlook 매크로의 형태로
방금 쓰여진 것 - 당신은 모두 자유롭게 사용할 수 있습니다.
아래의 코드.
캘린더 검색입니다.
하루 종일 다음 6 개월 동안
약속 만 설정 한 다음
그들에게 0 분에 대한 통지 -
너는 너를 그들에게 가져 가야한다는 것을 의미한다.
같은 날 블랙 베리.
일단 코드를 Outlook I에 복사하면
Outlook에 직접 서명 하시길 권합니다.
매크로 보안으로 실행할 수 있습니다.
좋은 수준에서 매크로 단추를 넣으십시오.
도구 모음에서 -에 대한 지침
둘 다 아래 사이트에 있습니다. 그럼 너 너
매크로 버튼을 눌러야합니다.
Outlook은 매일 \ 주마다 당신은하지 않습니다.
하루 종일 걱정할 필요가있다.
약속 없이는
알림을 변경합니다.
희망이 도움이됩니다.
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