Kuinka luoda Outlook-muistutuksia Excel-laskentataulukosta?
Tämä artikkeli käsittelee Outlook-muistutusten luomista Excel-laskentataulukon tietojen perusteella.
Luo Outlook-muistutuksia Excel-laskentataulukosta VBA-koodilla
Luo Outlook-muistutuksia Excel-laskentataulukosta VBA-koodilla
Jos haluat luoda Outlook-muistutuksia Excelistä, toimi seuraavasti.
1. Luo laskentataulukko, joka sisältää sarakkeiden otsikot ja vastaavat muistutuskentät alla olevan kuvakaappauksen mukaisesti.
Huomautus: "Varattu-tila" -sarakkeessa numero "2" tarkoittaa, että muistutus näkyy "Varattu" Outlook-kalenterissasi. Voit muuttaa sen arvoksi "1 (alustava)", "3 (poissa)", "4 (työskentely muualla)" tai "5 (ilmainen)" tarpeen mukaan.
2. Avaa "Microsoft Visual Basic for Applications" -ikkuna painamalla "Alt" + "F11" -näppäimiä.
3. Napsauta "Microsoft Visual Basic for Applications" -ikkunassa "Lisää" > "Moduuli". Kopioi sitten seuraava VBA-koodi Koodi-ikkunaan.
VBA-koodi: Luo Outlook-muistutuksia Excel-laskentataulukosta
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.CreateItem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End SubHuomautus: Yllä olevassa koodissa "A2:G2" on tietoalue, jonka perusteella haluat luoda tapaamisia.
4. Paina "F5" tai napsauta "Suorita"-painiketta suorittaaksesi koodin. Sitten kaikki tapaamiset tietyillä kentillä lisätään Outlook-kalenteriin kerralla.
Sitten voit siirtyä Outlookin kalenteriin nähdäksesi tulokset. Katso kuvakaappaus:
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 ...
