İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

Dışa aktarma ve Outlook'ta tüm klasörlerin ve alt klasörlerin listesini yazdırmak nasıl?

Genel olarak konuşursak, Ctrl + 6 tuşlarını kullanarak Outlook'taki Gezinti Bölmesindeki tüm klasörlerin listesini görüntüleyin. Ancak, klasörler listesini yazdırabilirsiniz. Bu makalede, Outlook'ta tüm klasörlerin ve alt klasörler listesini dışa aktarmak ve yazdırmak için iki VBA komut dosyası tanıtılacaktır.

Outlook'taki Gezinti Bölmesindeki tüm klasörlerdeki toplam öğe sayısını görüntülemek için tek bir tıklama

Normal olarak, Outlook Gezinti Bölmesi'ndeki her klasördeki okunmamış öğe sayısını gösterir. Ancak, Outlook için Kutools Tüm Klasörler Toplam Öğe Sayısı Göster özelliği, tek bir tıklama ile tüm klasörlerde toplam öğe sayısını göstermenize yardımcı olabilir. 60 günlük ücretsiz deneme sürümü için sınırlama olmaksızın tıklayın!
tüm klasörler toplam sayısını gösteriyor kto 9.00

Kutools for Outlook: 100 + Yeni Gelişmiş Araçlar Outlook için.
Office Tab: Sekmeli Düzenlemeyi ve Office'te Taramayı Etkinleştirme, Sadece Chrome, Firefox, IE 8 / 9 / 10 gibi.
Klasik Menü: Eski Menüler ve Araç Çubuklarını Geri Getirin 2007, 2010, 2013, 2016 ve 2019.

arrow mavi sağ balon Tüm Outlook klasörlerinin ve alt klasörlerinin listesini yeni e-postayla dışa aktarın ve yazdırın

Bu yöntem, belirtilen bir e-posta hesabındaki tüm klasörlerin ve alt klasörlerin listesini Outlook'daki yeni bir e-postaya aktaracak bir VBA sunacak ve ardından klasör listesini kolayca yazdırabilirsiniz.

1. Basın diğer + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlarını kullanın.

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

VBA: Klasörlerin ve alt klasörlerin listesini Outlook'ta yeni bir e-postayla verme

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.mailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)

Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

    For i = CurrentFolder.Folders.Count To 1 Step -1
Set oFolder = CurrentFolder.Folders(i)

sFolderPaths = oFolder.FolderPath
gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
If oSubFolder.Name <> "Deleted Items" Then
ProcessFolder oSubFolder
End If

Next

End Sub

3. Basın F5 Bu VBA'yı çalıştırmak için anahtarı kullanın.

4. Klasör Seç iletişim kutusunda dışarı çıkarken, lütfen klasörler listesini yazdırmak istediğiniz e-posta hesabını seçin ve OK buton. Ekran görüntüsüne bakın:

5. Ve şimdi belirtilen e-posta hesabının klasör listesi, aşağıda gösterilen ekran görüntüsü gibi yeni bir e-postaya kopyalanır. lütfen tıklayın fileto > baskı Kopyalanan klasör listesini yazdırmak için.

6. Yazdırdıktan sonra, lütfen yeni e-postayı kaydetmeden kapatın.


arrow mavi sağ balon Not Defteri'nde tüm Outlook klasörleri listesinde alt klasörleri dışa aktarın ve yazdırın

Bu yöntem, Outlook'tan Not Defteri'ne belirli bir e-posta hesabındaki tüm klasörlerin ve alt klasörlerinin listesini dışa aktarmak için VBA'yı tanıtacak ve Outlook klasörleri listesini Not Defteri'nde kolayca yazdırabilirsiniz.

1. Basın diğer + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlarını kullanın.

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

VBA: Outlook'taki tüm Outlook klasörleri ve alt klasörler listesini Not Defteri'ne verme

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

  Set objOutlook = CreateObject("Outlook.Application")

  Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
Set Folders = F.Folders

    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
If Result = 6 Then
gCreateTree = True
Else
gCreateTree = False
End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))

LoopFolders Folders

Set F = Nothing
Set Folders = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F

For Each F In Folders
WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
CreateFolderTree = Mid(OLKfolderpath, 3)
Else
Dim i, x, OLKprefix
i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))

    For x = gBase To i
OLKprefix = OLKprefix & "-"
Next

CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Basın F5 Bu VBA'yı çalıştırmak için anahtarı kullanın. Açılan Klasör Açma iletişim kutusunda, lütfen klasör listesini vermek ve yazdırmak istediğiniz e-posta hesabını seçin ve OK buton. Ekran görüntüsüne bakın:

4. Sonra Çıktı Klasör Ağacı iletişim kutusu geliyor. Lütfen Evet düğmesi veya Yok hayır düğmesine basın.

Ve şimdi adlı bir Metin dosyası Görünüm-Klasörler aşağıda oluşturulan ekran görüntüsü gibi masaüstünüzde oluşturulur ve kaydedilir.

5. Yeni metin dosyasını açmak için çift tıklayın ve ardından Tamam'ı tıklatın. fileto > baskı dışa aktarılan klasör görünüm listesini yazdırmak için.


arrow mavi sağ balonİlgili Makaleler



Kutools for Outlook

Outlook için 100'ten Fazla Gelişmiş İşlevler 2010, 2013, 2016, 2019 ve 365

Banner 201812 için minik görünüm için ekran görüntüsü kutools

Diğer Özellikler | Bedava indir | Yüzlerce işlev için yalnızca $ 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.