Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Τρόπος εξαγωγής και εκτύπωσης λίστας όλων των φακέλων και των υποφακέλων στο Outlook;

Σε γενικές γραμμές, μπορείτε να πατήσετε Ctrl + 6 για να προβάλετε τη λίστα όλων των φακέλων στο παράθυρο περιήγησης στο Outlook. Ωστόσο, δεν μπορείτε να εκτυπώσετε τη λίστα των φακέλων. Αυτό το άρθρο θα εισαγάγει δύο δέσμες ενεργειών VBA για την εξαγωγή και εκτύπωση της λίστας όλων των φακέλων και των υποφακέλων τους στο Outlook.

Ένα κλικ για να εμφανίζονται οι συνολικοί αριθμοί αντικειμένων σε όλους τους φακέλους στο παράθυρο περιήγησης στο Outlook

Κανονικά, το Outlook εμφανίζει τους αριθμούς των μη αναγνωσμένων αντικειμένων σε κάθε φάκελο του παραθύρου πλοήγησης. Αλλά, Kutools για το Outlook Όλοι οι φάκελοι εμφανίζουν τον συνολικό αριθμό στοιχείων μπορεί να σας βοηθήσει να εμφανίσετε τον συνολικό αριθμό των στοιχείων σε όλους τους φακέλους με ένα μόνο κλικ. Κάντε κλικ για δωρεάν δοκιμαστική περίοδο 60 χωρίς περιορισμό!
όλοι οι φάκελοι δείχνουν τον συνολικό αριθμό kto 9.00

Kutools για το Outlook: 100 + Νέα προηγμένα εργαλεία για το Outlook.
Καρτέλα Office: Ενεργοποίηση επεξεργασίας καρτελών και περιήγησης στο Office, Ακριβώς όπως Chrome, Firefox, IE 8 / 9 / 10.
Κλασικό μενού: Φέρτε πίσω παλιά μενού και γραμμές εργαλείων σε Office 2007, 2010, 2013, 2016 και 2019.

arrow μπλε δεξιά φούσκα Εξαγωγή και εκτύπωση της λίστας όλων των φακέλων του Outlook και των υποφακέλων τους σε νέα μηνύματα ηλεκτρονικού ταχυδρομείου

Αυτή η μέθοδος θα εισαγάγει ένα VBA για την εξαγωγή της λίστας όλων των φακέλων και των υποφακέλων τους σε έναν καθορισμένο λογαριασμό ηλεκτρονικού ταχυδρομείου σε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook και στη συνέχεια μπορείτε να εκτυπώσετε εύκολα τη λίστα των φακέλων.

1. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια επικολλήστε τον κώδικα VBA στο νέο παράθυρο της ενότητας.

VBA: Εξαγωγή της λίστας των φακέλων και των υποφακέλων σε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook

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. Τύπος F5 κλειδί για την εκτέλεση αυτού του VBA.

4. Στο παράθυρο διαλόγου Επιλογή φακέλου, επιλέξτε το λογαριασμό ηλεκτρονικού ταχυδρομείου του οποίου λίστα των φακέλων θέλετε να εκτυπώσετε και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

5. Και τώρα η λίστα των φακέλων του συγκεκριμένου λογαριασμού ηλεκτρονικού ταχυδρομείου αντιγράφεται σε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου, όπως φαίνεται παρακάτω. Παρακαλώ πατήστε φιλέτο > Εκτύπωση για να εκτυπώσετε την αντιγραμμένη λίστα φακέλων.

6. Μετά την εκτύπωση, κλείστε το νέο μήνυμα ηλεκτρονικού ταχυδρομείου χωρίς να το αποθηκεύσετε.


arrow μπλε δεξιά φούσκα Εξαγωγή και εκτύπωση της λίστας όλων των φακέλων του Outlook και των υποφακέλων τους στο Notepad

Αυτή η μέθοδος θα εισαγάγει ένα VBA για την εξαγωγή της λίστας όλων των φακέλων και των υποφακέλων τους σε έναν καθορισμένο λογαριασμό ηλεκτρονικού ταχυδρομείου από το Outlook στο Notepad και στη συνέχεια μπορείτε να εκτυπώσετε εύκολα τη λίστα των φακέλων του Outlook στο Notepad.

1. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης, και στη συνέχεια επικολλήστε τον κώδικα VBA στο νέο παράθυρο της ενότητας.

VBA: Εξαγωγή της λίστας όλων των φακέλων και των υποφακέλων του Outlook από το Outlook στο Notepad

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. Τύπος F5 κλειδί για την εκτέλεση αυτού του VBA. Στη συνέχεια, στο παράθυρο διαλόγου Επιλογή φακέλου ανοίγματος, επιλέξτε τον λογαριασμό ηλεκτρονικού ταχυδρομείου στον οποίο θέλετε να εξάγετε και να εκτυπώσετε τη λίστα φακέλων και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια, θα εμφανιστεί το παράθυρο διαλόγου Output Folder Tree. Κάντε κλικ στο κουμπί Ναί κουμπί ή Οχι όπως χρειάζεστε.

Και τώρα ένα αρχείο κειμένου που ονομάζεται ως Outlook-Folders δημιουργείται και αποθηκεύεται στην επιφάνεια εργασίας σας όπως φαίνεται παρακάτω.

5. Κάντε διπλό κλικ για να ανοίξετε το νέο αρχείο κειμένου και στη συνέχεια κάντε κλικ στο κουμπί OK φιλέτο > Εκτύπωση για να εκτυπώσετε τον εξαγόμενο κατάλογο των φακέλων του Outlook.


arrow μπλε δεξιά φούσκαΣχετικά άρθρα



Kutools για το Outlook

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Outlook 2010, 2013, 2016, 2019 και 365

πυροβολισμό οθόνης kutools για προοπτική μικροσκοπικό για banner 201812

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 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.