Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip išspausdinti vieno "Outlook" pasikartojančio susitikimo sąrašą?

Kaip žinote, pasikartojantis susitikimas apima daugybę atvejų, reguliariai pasikartojančių "Outlook". Tačiau kai spausdinate pasikartojančią paskyrimą, visų įvykių sąrašas išnyksta. Taigi, kaip galite atspausdinti visų įvykių sąrašą pasikartojančiame susitikime? Žemiau pateikiami sprendimai gali padėti jūsų darbui.

Kutools for Outlook: 100 + nauji Išplėstiniai įrankiai "Outlook".
Office Tab: Įgalinti skirtukų redagavimą ir naršymą "Office", Just Like Chrome, Firefox, IE 8 / 9 / 10.
Klasikinis meniu: Grąžinkite senus meniu ir įrankių juostas į "Office 2007", "2010", "2013", "2016" ir "2019".

rodyklė mėlyna dešinė burbulasSpausdinti vieno "Outlook" pasikartojančio susitikimo su eksportuojančiu sąrašu sąrašą

Tiesą sakant, nėra tiesioginio būdo spausdinti visų įvykių sąrašą pasikartojančiame susitikime "Outlook". Tačiau galite eksportuoti kalendoriaus duomenis į "Excel", filtruoti visus pasikartojančio susitikimo įvykius ir spausdinti. Prašau tai padaryti taip:

1. "Outlook" spustelėkite filė > Atidaryti ir eksportuoti (Arba Atviras)> Importas / Eksportas (Arba importas).

2. Importavimo ir eksportavimo vedlyje spustelėkite Eksportuoti į failą parinktį ir spustelėkite mygtuką Sekantis mygtuką.

3. Pirmame dialogo lange Eksportuoti į failą spustelėkite Atskyrus kableliu parinktį ir spustelėkite mygtuką Sekantis mygtuką.

4. Antrame dialogo lange Eksportuoti į failą, pasirinkite kalendorius kuriame yra pasikartojantis susitikimas, kurį atspausdinsite, ir spustelėkite jį Sekantis mygtuką.

5. Trečiajame dialoge "Eksportuoti į failą" spustelėkite " Žmonės mygtuką.

6. Dabar pasirodo dialogo langas Naršyti. Prašau (1) nurodyti paskirties aplanką, kuriame bus išsaugotas eksportuotas CSV failas, (2) įveskite CSV failą į Failo vardas dėžutė, ir (3) spustelėkite OK mygtuką.

7. Spustelėkite Sekantis mygtukai ir apdaila mygtuką tiek trečiajame, tiek paskutiniame dialogo lange Eksportuoti failą.

8. Nurodykite dienų seką, kurią eksportuosite kalendorių dialogo lange Nustatytų dienų sekoje, ir spustelėkite OK mygtuką.

9. Kol kas Outlook kalendorius buvo eksportuotas kaip CSV failas. Atidarykite aplanką, kuriame yra CSV failas, dešiniuoju pelės klavišu spustelėkite CSV failą ir pasirinkite Atverti su > Excel iš kontekstinio meniu. Žr. Ekrano kopiją:

10. Eksportuotas CSV failas atidaromas "Excel". Pasirinkite temos stulpelio antraštę ir spustelėkite Duomenys > Filtras. Žr. Ekrano kopiją:

10. Temos stulpelio antraštėje spustelėkite piktogramą Filtras, tik patikrinkite, ar pasibaigęs susitikimas, kurį atspausdinsite iš išskleidžiamojo sąrašo, temą ir spustelėkite OK mygtuką.

11. Išskirti tik nurodyto pasikartojančio susitikimo įvykiai. Prašome spragtelėti filė > spausdinti juos spausdinti.


rodyklė mėlyna dešinė burbulasSpausdinti vieno "Outlook" pasikartojančio susitikimo su "VBA" sąrašą

Šis metodas supažindins su VBA, kad greitai lengvai atspausdintų pasikartojančio paskyros sąrašą. Prašau tai padaryti taip:

1. Kalendoriaus rodinyje pasirinkite vieną pasikartojančio susitikimo įvykį, kurį atspausdinsite, ir paspauskite Kitas + F11 klavišus, norėdami atidaryti langą "Microsoft Visual Basic for Applications".

2. spragtelėjimas įsiuvas > Moduliai, tada įklijuokite žemiau VBA kodą į naują atidarymo modulio scenarijų.

VBA: Spausdinti visų įvykių sąrašą pasikartojančiame susitikime "Outlook"

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

pastabos: Pakeiskite datų diapazoną, kuriame bus spausdinamas pasikartojantis susitikimas: sFilter = "[Start]> = '11 / 1 / 2016"Ir [pabaiga] <"6 / 30 / 2017 " Ir [IsRecurring] = True Ir [Subject] = "& strSubject

3. Paspauskite F5 klavišą arba spustelėkite mygtuką paleisti mygtukas paleisti šį VBA.

4. Dabar visų atrinktų pasikartojančių susitikimų įvykių sąrašas yra nukopijuojamas ir įklijuojamas į naują el. Laišką, kaip parodyta paveikslėlyje. Prašome spragtelėti filė > spausdinti išspausdinti sąrašą.


rodyklė mėlyna dešinė burbulasSusiję straipsniai



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.