Outlook'daki yinelenen bir randevunun tüm tekrarlarını nasıl yazdırabilirsiniz?

Dışa aktarma ile Outlook'daki yinelenen bir randevunun listesini yazdırma

VBA ile Outlook'daki yinelenen bir randevunun listesini yazdırma

Aslında, Outlook'ta yinelenen bir randevunun tüm tekrarlarının listesini doğrudan yazdırmak için bir yol yoktur. Ancak, takvim verilerini Excel'e aktarabilir, yinelenen randevunun tüm tekrarlarını filtreleyebilir ve ardından yazdırabilirsiniz. Lütfen aşağıdaki adımları izleyin:

1. Outlook'ta lütfen Dosya > Aç & Dışa Aktar (veya Aç) > İçeri/Dışarı Aktar (veya İçe Aktar) seçeneklerine tıklayın.

2. İçeri ve Dışarı Aktar Sihirbazı'nda lütfen 'Dosyaya aktar' seçeneğine tıklayın ve Sonraki butonuna basın.

3. İlk 'Dosyaya Aktar' diyalog kutusunda lütfen ' Virgülle Ayrılmış Değerler' seçeneğine tıklayın ve Sonraki butonuna basın.

4. İkinci 'Dosyaya Aktar' diyalog kutusunda lütfen yazdırmak istediğiniz yinelenen randevuyu içeren takvim i seçin ve Sonraki butonuna basın.

5. Üçüncü 'Dosyaya Aktar' diyalog kutusunda lütfen Gözat butonuna tıklayın.

6. Şimdi Gözat diyalog kutusu açılacak. Lütfen (1) dışarı aktarılan CSV dosyasını kaydedeceğiniz hedef klasörü belirtin, (2) Dosya Adı kutusunda CSV dosyasına bir isim verin ve (3) Tamam butonuna tıklayın.

7. Hem üçüncü hem de son 'Dosya Aktar' diyalog kutularında Sonraki ve Son butonlarına tıklayın.

8. Lütfen Takvim Aralığı Ayarla diyalog kutusunda dışarı aktaracağınız tarih aralığını belirtin ve Tamam butonuna tıklayın.

9. Şu ana kadar Outlook takvimi bir CSV dosyası olarak dışarı aktarıldı. Lütfen CSV dosyasını içeren klasörü açın, CSV dosyasına sağ tıklayın ve bağlam menüsünden ' Excel ile Aç' seçeneğini seçin. Ekran görüntüsüne bakın:

10. Dışarı aktarılan CSV dosyası Excel'de açılıyor. Lütfen Konu sütun başlığını seçin ve Veri > Filtre'ye tıklayın. Ekran görüntüsüne bakın:

10. Konu sütun başlığındaki Filtre simgesine tıklayın, açılır listeden yazdırmak istediğiniz yinelenen randevunun konusunu işaretleyin ve Tamam butonuna tıklayın.

11. Belirlenen yinelenen randevunun yalnızca tekrarları filtrelenir. Lütfen Dosya > Yazdır'a tıklayarak bunları yazdırın.

Bu yöntem, Outlook'ta bir yinelenen randevunun listesini kolayca yazdırmak için size bir VBA tanıtmaktadır. Lütfen aşağıdaki adımları izleyin:

1. Takvim görünümünde, yazdırmak istediğiniz yinelenen randevunun bir tekrarını seçin ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve ardından aşağıdaki VBA kodunu yeni açılan Modül betiğine yapıştırın.

VBA: Outlook'ta yinelenen bir randevunun tüm tekrarlarının listesini yazdırma

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

Not: Lütfen kodda yazdırmak istediğiniz yinelenen randevunun tarih aralığını değiştirin: sFilter = "[Başlangıç] >= '1/11/2016' And [Bitiş] < '30/6/2017' And  [Tekrarlanan]  = True And [Konu] = " & strSubject

3. Bu VBA'yı çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın.

4. Seçilen yinelenen randevunun tüm tekrarlarının listesi aşağıdaki ekran görüntüsünde gösterildiği gibi yeni bir e-postaya kopyalanıp yapıştırıldı. Lütfen Dosya > Yazdır 'a tıklayarak listeyi yazdırın.

Outlook'ta boş takvim yazdırma (randevu olmadan)

Outlook'ta her sayfada iki haftalık/aylık takvim yazdırma

Outlook'ta günlük takvim yazdırma