Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan exportálhat és nyomtathat ki minden mappát és almappát az Outlook programban?

Általánosságban elmondható, hogy megnyomhatja a gombot Ctrl + 6 billentyűk segítségével megtekintheti az Outlook összes mappájának listáját a Navigációs ablakban. Azonban nem tudja kinyomtatni a mappák listáját. Ez a cikk két VBA-szkriptet jelenít meg, amelyekkel exportálni és kinyomtatni az összes mappát és almappáját az Outlook programban.

Egy kattintással megmutathatja az összes elem számát az Outlook összes mappájában a navigációs ablakon

Az Outlook általában az egyes mappákban található olvasatlan elemek számát jeleníti meg a navigációs ablakban. De, a Kutools az Outlook számára Minden mappa megjelenítése az elemek teljes számát mutatja funkció segítségével az összes mappában lévő elemek számát egyetlen kattintással jelenítheti meg. Kattintson az 60 napos ingyenes próba nélkül!
minden mappa az összes számot mutatja az 9.00 kt

Kutools for Outlook: 100 + új fejlett eszközök az Outlook programhoz.
Office Tab: A Tabbed szerkesztése és böngészése engedélyezése az Office-ban, Csakúgy, mint a Chrome, a Firefox, az IE 8 / 9 / 10.
Klasszikus menü: Húzza vissza az öreg menüket és az eszköztárakat az Office 2007, az 2010, az 2013, az 2016 és az 2019.

arrow kék jobb buborék Exportálja és nyomtassa ki az összes Outlook mappát és almappáját az új e-mailben

Ez a módszer bemutatja a VBA-t, hogy exportálja az összes mappát és almappáját egy megadott e-mail fiókba egy új e-mailt az Outlook programba, majd könnyen kinyomtathatja a mappák listáját.

1. nyomja meg más + F11 billentyűk a Microsoft Visual Basic for Applications ablak megnyitásához.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az új Modul ablakot.

VBA: Exportálja a mappák és almappák listáját egy új e-mailben az Outlook programban

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. nyomja meg F5 kulcs a VBA futtatásához.

4. A Mappa kiválasztása párbeszédablakban jelölje ki azt az e-mail fiókot, amelynek a listáját válassza ki a nyomtatandó mappákat, majd kattintson a OK gomb. Lásd a képernyőképet:

5. És most a megadott e-mail fiók mappalistája átmásolódik egy új e-mailre a képernyőkép alatt. kérem kattintson filé > Nyomtatás a másolt mappák listájának kinyomtatásához.

6. Nyomtatás után zárja be az új e-mailt mentés nélkül.


arrow kék jobb buborék Exportálja és nyomtassa ki az összes Outlook mappát és almappát a jegyzetfüzetben

Ez a módszer bemutatja a VBA-t, hogy exportálja az összes mappát és almappájukat egy megadott e-mail fiókban az Outlook-ból a Notepad-ba, majd könnyen kinyomtathatja az Outlook mappák listáját a Jegyzettömbben.

1. nyomja meg más + F11 billentyűk a Microsoft Visual Basic for Applications ablak megnyitásához.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az új Modul ablakot.

VBA: Exportálja az Outlook mappák és almappák listáját az Outlook programból a Jegyzettömbre

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. nyomja meg F5 kulcs a VBA futtatásához. A megnyíló mappa kiválasztása párbeszédpanelen válassza ki azt az e-mail fiókot, amelynek exportálási és nyomtatási mappalistáját, majd kattintson a OK gomb. Lásd a képernyőképet:

4. Ezután megjelenik a Output Folder Tree párbeszédpanel. Kérem kattintson a Igen gombot vagy Nem gombot, amire szüksége van.

És most egy Text fájl nevű Outlook-mappák létrehozva és mentve az asztalon, a képernyőkép alatt.

5. Kattintson kétszer az új szövegfájl megnyitásához, majd kattintson az OK gombra filé > Nyomtatás az Outlook mappák exportált listájának kinyomtatásához.


arrow kék jobb buborékKapcsolódó cikkek



Kutools for Outlook

Több, mint 100 speciális funkció az Outlook 2010, 2013, 2016, 2019 és 365 alkalmazásokhoz

képernyőn lövés kutools az Outlook 201812 számára

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

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.