Kuinka viivyttää kokouskutsun lähettämistä Outlookissa?
Normaalisti voit käyttää viivästystoimintoa viestin lähettämiseen tiettynä ajankohtana tämän hetken sijaan. Mutta joskus haluat viivyttää kokouskutsun, kuten sähköpostin, lähettämistä. Miten voit lähettää kokouskutsun haluamaasi aikaan Outlookissa?
Viivästyttää kokouskutsun lähettämistä Outlookissa VBA-koodilla
Viivästyttää kokouskutsun lähettämistä Outlookissa VBA-koodilla
Voi olla, ettei Outlookissa ole suoraa tapaa viivyttää kokouskutsua, mutta alla oleva VBA-koodi voi tehdä sinulle palveluksen, toimi seuraavasti:
1. Ensin sinun tulee luoda uusi tehtävä. Uudessa Tehtävä ikkuna:
(1.) Määritä kokouksen aihe, alkamispäivä ja päättymispäivä;
(2.) Aseta muistutuspäivämäärä ja -aika, kun haluat lähettää kokouskutsun;
(3.) Kirjoita kokousviesti tarpeen mukaan.
2. Kun olet luonut tehtävän, napsauta Tallenna ja sulje vaihtoehto sulkea tämä ikkuna.
3. Pidä sitten painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
4. 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: Viivytä kokouskutsun lähettämistä:
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTaskItem As TaskItem
Dim xAppointmentItem As AppointmentItem
Dim xRcpArr() As String
If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
Exit Sub
End If
Set xTaskItem = Item
xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.MeetingStatus = olMeeting
For i = 0 To UBound(xRcpArr)
.Recipients.Add (xRcpArr(i))
Next
.Subject = xTaskItem.Subject
.Location = "Office room 1002"
.Start = xTaskItem.StartDate + #2:00:00 PM#
.Body = xTaskItem.Body
.Duration = 120
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Save
.Send
End With
xTaskItem.MarkComplete
Set xTaskItem = Nothing
End Sub
Huomautuksia: Yllä olevassa koodissa: Kokoustesti on aihe, jonka loit kokoukselle vaiheessa 1; ja sinun tulee muuttaa tietoja vastaanottajien osoitteet, kokouspaikka, aloitusaika ja kokouksen kesto omaan.
5. Tallenna ja sulje koodi ja käynnistä Outlook uudelleen, jotta tämä koodi tulee voimaan.
6. Tästä eteenpäin, kun tehtävän muistutus ilmestyy asetettuna aikana, Outlook lähettää kokouskutsun automaattisesti.
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 ...
