Outlook’ta yinelenen bir randevunun tüm örneklerinin listesini nasıl yazdırabilirim?

Yinelenen bir Outlook randevusunun listesini dışa aktararak yazdırma

Yinelenen bir Outlook randevusunun listesini VBA ile yazdırma

Aslında, Outlook’ta yinelenen bir randevunun tüm tekrarlarını içeren listeyi doğrudan yazdırmanın bir yolu yoktur. Ancak takvim verilerinizi 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ç ve Dışa Aktar(veya)Aç) > İçe/Dışa Aktar(veya)İçe Aktar).

2. İçe/Dışa Aktarma Sihirbazı’nda lütfen Bir dosyaya dışa aktar seçeneğine tıklayın ve İleri düğmesine tıklayın.

3. İlk "Bir dosyaya dışa aktar" iletişim kutusunda lütfen Virgülle Ayrılmış Değerler seçeneğine tıklayın ve İleri düğmesine tıklayın.

4. İkinci "Bir dosyaya dışa aktar" iletişim kutusunda, yazdırmak istediğiniz yinelenen randevuyu içeren takvimi seçin ve İleri düğmesine tıklayın.

5. Üçüncü "Bir dosyaya dışa aktar" iletişim kutusunda lütfen Göz At düğmesine tıklayın.

6. Şimdi Göz At iletişim kutusu açılır. Lütfen (1) dışa aktarılan CSV dosyasını kaydetmek için hedef klasörü belirtin, (2) Dosya Adı kutusuna CSV dosyasının adını girin ve Tamam düğmesine tıklayın.

7. Üçüncü ve son "Bir dosyaya dışa aktar" iletişim kutusunda İleri ve Son düğmelerine tıklayın.

8. Lütfen "Tarih Aralığı Ayarla" iletişim kutusunda takvimi dışa aktaracağınız tarih aralığını belirtin ve Tamam düğmesine tıklayın.

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

10. Dışa aktarılan CSV dosyası Excel’de açılıyor. Konu sütun başlığına tıklayın ve Veri > Filtrele seçeneğine tıklayın. Ekran görüntüsüne bakın:

10. Konu sütun başlığında bulunan Filtre simgesine tıklayın, açılan listeden yalnızca yazdırmak istediğiniz yinelenen randevunun konusunu seçin ve Tamam düğmesine tıklayın.

11. Belirtilen yinelenen randevunun yalnızca tekrarları filtrelenerek gösterilir. Yazdırmak için lütfen Dosya > Yazdır seçeneğine tıklayın.

Bu yöntem, Outlook’ta yinelenen bir randevunun listesini kolayca yazdırmak için VBA kodundan yararlanır. Lütfen aşağıdaki adımları uygulayın:

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 seçeneğine tıklayın ve ardından aşağıda verilen VBA kodunu yeni açılan Modül betiğine yapıştırın.

VBA: Outlook’ta yinelenen bir randevudaki tüm tekrarları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: Kodda yazdırmak istediğiniz yinelenen randevunun tarih aralığını değiştirin: sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. Bu VBA’yı çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

4. Şimdi, seçili yinelenen randevudaki tüm tekrarların listesi, aşağıda ekran görüntüsünde gösterildiği gibi bir Yeni E-posta içine kopyalanıp yapıştırılır. Listeyi yazdırmak için lütfen Dosya > Yazdır seçeneğine tıklayın.

Outlook’ta boş takvim (randevusuz) yazdırma

Outlook’ta her sayfada iki hafta/aylık takvim yazdırma

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