Kako ustvariti Outlookove opomnike iz preglednice Excel?
Ta članek govori o ustvarjanju Outlookovih opomnikov na podlagi podatkov preglednice Excel.
Kretski Outlookovi opomniki iz Excelove preglednice s kodo VBA
Ustvarite Outlookove opomnike iz Excelove preglednice s kodo VBA
Če želite iz Excela ustvariti Outlookove opomnike, storite naslednje.
1. Ustvarite delovni list, ki vsebuje glave stolpcev in ustrezna opomniška polja, kot je prikazano spodaj.
Opombe: Za zasedeno stanje stolpec, številka 2 pomeni, da bo opomnik prikazan kot Zaseden v Outlookovem koledarju. Lahko ga spremenite v 1 (okvirno), 3 (brez službe), 4 (Delo drugje)ali 5 (brezplačno) kot jo potrebujete.
2. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
3. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno Code.
Koda VBA: ustvarite Outlookove opomnike iz Excelove preglednice
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 Sub
Opombe: V zgornji kodi, A2: G2 je obseg podatkov, na podlagi katerega želite ustvariti sestanke.
4. Pritisnite F5 tipko ali kliknite gumb Zaženi, da zaženete kodo. Nato bodo vsi sestanki s posebnimi polji hkrati vstavljeni v koledar vašega Outlooka.
Nato lahko obiščete koledar svojega obeta, da si ogledate rezultate, glejte sliko zaslona:
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.