Kuinka asettaa oletusaloituspäiväksi tänään, kun luot uutta tehtävää Outlookissa?
Kun luomme uuden tehtävän Outlookissa, tehtävä, jossa on "Aloituspäivä" näkyy kanssa "Ei mitään” oletuksena seuraavan kuvakaappauksen mukaisesti. Mutta joskus sinun on asetettava päivä aloituspäiväksi usein, joten sinun on valittava päivämäärä "Aloituspäivä"-kentässä manuaalisesti joka kerta. Onko mitään nopeaa tapaa asettaa oletusaloituspäiväksi automaattisesti tänään, kun luot uutta tehtävää Outlookissa?
Aseta oletusaloituspäiväksi tänään, kun luot uutta tehtävää VBA-koodilla Outlookissa
Aseta oletusaloituspäiväksi tänään, kun luot uutta tehtävää VBA-koodilla Outlookissa
Ehkä ei ole muuta hyvää tapaa käsitellä tätä tehtävää suoraan Outlookissa, tässä esittelen VBA-koodin sen ratkaisemiseksi. Toimi seuraavasti:
1. Käynnistä Outlook ja pidä sitten -näppäintä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruudusta avataksesi tilan ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Aseta oletusaloituspäiväksi tänään:
Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
xTaskItem.StartDate = Now
End If
End Sub
3. Kun olet syöttänyt koodin, aseta kohdistin toiseen koodiosaan ja paina F5 avain tämän koodin suorittamiseen, katso kuvakaappaus:
4. Siitä lähtien, kun luot uuden tehtävän joka kerta, Outlook asettaa automaattisesti aloituspäivän ja lopetuspäivän nykyiseen päivämäärään oletusarvoisesti seuraavan kuvakaappauksen mukaisesti:
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 ...
