Note: The other languages of the website are Google-translated. Back to English

Hur kan jag förhindra att Outlook påminner för tidigt eller för sent?

Till exempel arbetar du från 9:00 till 6:00 varje dag, men nu gör du ett möte klockan 10:00 och lägger till en påminnelse om två timmar för det i Outlook. Det betyder att påminnelsen fungerar klockan 2:8 innan ditt arbete börjar. Å andra sidan kan påminnelsen låta vid midnatt i speciella fall. Det är ganska obekvämt, och vissa Outlook-användare kanske vill förhindra att Outlook påminner för tidigt eller för sent. Här introducerar jag ett VBA-makro för att du ska kunna lösa det i Outlook.

Fliken Office - Aktivera redigering och surfning på flikar i Office, och gör arbetet mycket enklare ...
Kutools for Outlook - ger 100 kraftfulla avancerade funktioner till Microsoft Outlook
  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter regler; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden på en gång; Lägg automatiskt till hälsning när svar Lägg automatiskt till datum och tid i ämne ...
  • Tillbehörsverktyg: Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla automatiskt ... Snabbrapport, Räkna utvalda e-postmeddelanden, Ta bort duplicerade e-postmeddelanden och kontakter ...
  • Mer än 100 avancerade funktioner kommer lösa de flesta av dina problem i Outlook 2021 - 2010 eller Office 365. Fullständiga funktioner 60 dagars gratis provperiod.

För att förhindra att Outlook påminner för tidigt eller för sent kan du göra följande:

Steg 1: Tryck på andra + F11 tangenter under tiden för att öppna Microsoft Visual Basic for Applications-fönstret.

Steg 2: Expandera Microsoft Outlook-objekt i den vänstra rutan och klistra in följande VBA-makro i ThisOutlookSession.

VBA: Förhindra påminnelse för tidigt eller för sent i Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Anmärkningar: Du kan ange din arbetsperiod genom att ändra följande parametrar i VBA-koden ovan:
påminnelseMaxHour = 20
påminnelseMinHour = 9

Steg 3: Spara den här VBA och starta om din Microsoft Outlook.

Från och med nu, när du skapar ett möte med en påminnelsestid för dig som anger arbetsperiod, dyker det upp en dialogruta för att påminna dig när du klickar på Spara och stäng knapp.

Om påminnelsestiden är tidigare än den angivna reminderMinHour, klicka på Ja i dialogrutan kommer det att ändra påminnelsestiden och låta påminnelsen låta vid den angivna reminderMinHour.

Om påminnelsetiden är senare än den angivna reminderMaxHour, klicka på Ja i dialogrutan kommer det att ändra påminnelsetiden och påminna dig vid den angivna påminnelsenMaxHour.

Notera: Den här VBA-koden fungerar bra med Outlook 2013, men fungerar inte med Outlook 2010 och 2007.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL