Dışa aktarmayla birlikte bir Outlook yinelenen randevusunun bir listesini yazdırın

VBA ile Outlook yinelenen bir randevunun bir listesini yazdırın

Aslında, Outlook'ta yinelenen bir randevudaki tüm olayların listesini yazdırmanın doğrudan bir yolu yoktur. Bununla birlikte, takvim verilerini Excel'e aktarabilir, yinelenen randevunun tüm oluşumlarını filtreleyebilir ve ardından yazdırabilirsiniz. Lütfen aşağıdaki işlemleri yapın:

1. Outlook'ta lütfen tıklayın fileto > Aç ve Dışa Aktar (Ya da Açılış)> İthalat / İhracat (Ya da ithalat).

2. Alma ve Verme Sihirbazında, lütfen bir dosyaya aktar seçeneğini tıklayın ve Sonraki düğmesine basın.

3. İlk Dosyaya Aktar iletişim kutusunda, lütfen Virgülle Ayrılmış Değerler seçeneğini tıklayın ve Sonraki düğmesine basın.

4. İkinci Dosyaya Aktar iletişim kutusunda, lütfen Takvim yazdıracağınız yinelenen randevuyu içeren ve ardından Sonraki düğmesine basın.

5. Üçüncü Dosyaya Aktar iletişim kutusunda, lütfen Araştır düğmesine basın.

6. Şimdi Gözat iletişim kutusu çıkıyor. Lütfen (1) dışa aktarılan CSV dosyasını içine kaydedeceğiniz bir hedef klasör belirtin, (2) CSV dosyasını Dosya Adı kutu ve (3) tıklayın OK düğmesine basın.

7. Tıklayın Sonraki düğmeler ve Bitiş düğmesi hem üçüncü hem de son Dosyayı Dışa Aktar iletişim kutularında.

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

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

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

10. Konu sütun başlığındaki Filtre simgesine tıklayın, yalnızca açılır listeden yazdıracağınız yinelenen randevunun konusunu kontrol edin ve OK düğmesine basın.

11. Yalnızca belirtilen yinelenen randevunun tekrarları filtrelenir. lütfen tıklayın fileto > Print onları basmak için.

Bu yöntem, Outlook'ta yinelenen bir randevunun listesini kolayca yazdırmak için bir VBA sunacaktır. Lütfen aşağıdaki işlemleri yapın:

1. Takvim görünümünde, yazdıracağınız tekrar eden randevunun bir örneğini seçin ve düğmesine basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tık Ekle > modülve sonra yeni açılış Modülü komut dosyasına VBA kodunun altına yapıştırın.

VBA: Outlook'ta yinelenen bir randevudaki tüm olayların bir listesini yazdırın

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 tekrar eden randevuyu kodda yazdıracağınız tarih aralığını değiştirin: sFilter = "[Başlat]> = '11/1/2016"Ve [Son] <"6 ' Ve [IsRecuring] = Doğru Ve [Konu] = "& strSubject

3. Basın F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

4. Şimdi seçilen yinelenen randevudaki tüm oluşumların listesi kopyalanır ve aşağıda gösterilen ekran görüntüsü gibi yeni bir e-postaya yapıştırılır. lütfen tıklayın fileto > Print Listeyi yazdırmak için.

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

Outlook'ta sayfa başına iki hafta / ay Takvim yazdırın

Outlook'ta günlük takvimi yazdırın