Kuinka estää Outlookin muistuttaminen liian aikaisin tai liian myöhään?
Työskentelet esimerkiksi joka päivä klo 9-00, mutta nyt varaat ajan klo 6 ja lisäät siihen 00 tunnin muistutuksen Outlookissa. Tämä tarkoittaa, että muistutus toimii klo 10 ennen työsi alkamista. Toisaalta muistutus voi erikoistapauksissa kuulua keskiyöllä. Se on melko hankalaa, ja jotkut Outlook-käyttäjät saattavat haluta estää Outlookin muistuttamisen liian aikaisin tai liian myöhään. Tässä esittelen VBA-makron, jonka avulla voit ratkaista sen Outlookissa.
- Paranna sähköpostisi tuottavuutta AI-tekniikalla, jonka avulla voit nopeasti vastata sähköposteihin, luonnostella uusia, kääntää viestejä ja tehokkaammin.
- Automatisoi sähköpostin lähettäminen Automaattinen CC/BCC, Automaattinen eteenpäin sääntöjen mukaan; lähettää Automaattinen vastaus (Ei toimistosta) ilman Exchange-palvelinta...
- Hanki muistutuksia kuten BCC varoitus kun vastaat kaikille ollessasi BCC-luettelossa, ja Muistuta, kun liitteet puuttuvat unohdetuille liitteille...
- Paranna sähköpostin tehokkuutta Vastaa (kaikki) ja liitteet, Lisää automaattisesti tervehdys tai päivämäärä ja aika allekirjoitukseen tai aiheeseen, Vastaa useisiin sähköposteihin...
- Virtaviivaista sähköpostin lähettäminen Muista sähköpostit, Kiinnitystyökalut (Pakkaa kaikki, tallenna kaikki automaattisesti...), Poista kaksoiskappaleetja Quick Report...
Voit estää Outlookin muistuttamisen liian aikaisin tai liian myöhään seuraavasti:
Vaihe 1: Paina painiketta muut + F11 näppäimiä sillä välin avataksesi Microsoft Visual Basic for Applications -ikkunan.
Vaihe 2: Laajenna Microsoft Outlook -objektit vasemmassa ruudussa ja liitä seuraava VBA-makro kohtaan ThisOutlookSession.
VBA: Estä muistutus liian aikaisin tai liian myöhään Outlookissa
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
Huomautuksia: Voit määrittää työjaksosi muuttamalla seuraavia parametreja yllä olevassa VBA-koodissa:
muistutusMaxHour = 20
muistutusMinHour = 9
Vaihe 3: Tallenna tämä VBA ja käynnistä Microsoft Outlook uudelleen.
Tästä lähtien, kun luot tapaamisen, jossa on muistutusaika määrittämälläsi työajan, näyttöön tulee valintaikkuna, joka muistuttaa sinua, kun napsautat Tallenna ja sulje painiketta.
Jos muistutusaika on aikaisempi kuin määritetty muistutusMinHour, napsauta Kyllä valintaikkunassa se muuttaa muistutuksen aikaa ja antaa muistutuksen äänen määritetyllä muistutusmintunnilla.
Jos muistutusaika on myöhäisempi kuin määritetty muistutusMaxHour, napsauta Kyllä valintaikkunassa se muuttaa muistutuksen kellonaikaa ja muistuttaa sinua määritetyssä muistutusMaxHourissa.
Huomautus: Tämä VBA-koodi toimii hyvin Outlook 2013:n kanssa, mutta ei toimi Outlook 2010:n ja 2007:n kanssa.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
