Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola esporta eta inprimatu Outlook-eko karpeta eta azpikarpeten zerrenda?

Oro har, sakatu Ctrl + 6 Outlook-en nabigazio panelean karpeta guztien zerrenda ikusteko. Hala ere, ezin duzu karpeta zerrenda inprimatu. Artikulu honek bi VBA scriptak aurkeztuko ditu Outlooken karpeta guztien eta haien azpikarpetak esportatzeko eta inprimatzeko.

Egin klik Outlook-en nabigazio panelean karpetako elementu guztien kopurua ikusteko

Normalean, Outlook-ek irakurketarako elementuen kopurua erakusten du karpeta bakoitzean Nabigazio-panelean. Baina, Kutools Outlook-en Karpetak guztiak erakutsi elementu kopurua guztira Ezaugarriek karpeta guztietan elementu guztien kopurua erakusten dute klik bakarrean. Egin klik 60 eguneko doako proba doan mugarik gabe!
karpeta guztiak erakusten ditu zenbaki osoa kto 9.00

Kutools Outlook-era: 100 + Tresna aurreratu berriak Outlook-era.
Bulegoko fitxa: Gaitu Tabbed edizioa eta nabigazioa Office-n, Like Like Chrome, Firefox, IE 8 / 9 / 10.
Menu klasikoa: Ekarri menuak zaharrak eta barra-barra Office 2007, 2010, 2013, 2016 eta 2019.

arrow urdina eskuineko burbuila Esportatu eta inprimatu Outlook karpeten eta haien azpikarpeten zerrenda mezu elektroniko berrian

Metodo honek VBA bat aurkeztuko du karpeta guztietan eta haien azpikarpetak zehaztutako posta elektronikoko kontu batean Outlook-en mezu berri batetara esportatzeko, eta erraz karpeta zerrenda inprimatu ahal izango duzu.

1. Prentsa Alt + F11 Microsoft Visual Basic aplikazioak irekitzeko leihoa irekitzeko gakoak.

2. klik Txertatu > Moduluak, eta, ondoren, VBA kodea azpian itsatsi Moduluaren leiho berrian.

VBA: karpeta eta azpikarpeten zerrenda esportatu mezu elektroniko berrian Outlook-en

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. Prentsa F5 VBA hau exekutatzeko gakoa.

4. Pantailan Hautatu Karpeta elkarrizketa-koadroa, hautatu inprimatu nahi dituzun karpeten zerrenda, eta sakatu OK botoia. Ikusi pantaila-argazkia:

5. Eta orain zehaztutako posta elektronikoko kontuaren karpeta posta elektroniko berri batera kopiatzen da. Egin klik File > Inprimatu karpeten zerrenda kopiatzea inprimatzeko.

6. Inprimatu ondoren, itxi email berria aurrezteko gabe.


arrow urdina eskuineko burbuila Esportatu eta inprimatu Outlook karpeten zerrenda guztiak, azpian dauden azpisailak Notepad-en

Metodo honek VBA bat aurkeztuko du karpeten eta haien azpikarpetako zerrenda esportatu Outlook-eko Notepad-eko posta elektronikoko kontu jakin batean, eta Outlook-eko karpetako zerrenda ere idatz dezakezu Notepadean erraz.

1. Prentsa Alt + F11 Microsoft Visual Basic aplikazioak irekitzeko leihoa irekitzeko gakoak.

2. klik Txertatu > Moduluak, eta, ondoren, VBA kodea azpian itsatsi Moduluaren leiho berrian.

VBA: esportatu Outlook karpeta eta azpikarpeten zerrenda Outlook-eko Notepad-era

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. Prentsa F5 VBA hau exekutatzeko gakoa. Hurrengoa irekitzean Hautatu karpeta elkarrizketa-koadroa, hautatu esportatu eta inprimatu nahi dituzun posta-direktorioen kopia eta sakatu OK botoia. Ikusi pantaila-argazkia:

4. Orduan Irteerako Karpeta Zuhaitzaren elkarrizketa-koadroa datozen. Mesedez, egin klik Bai botoia edo Ez botoia behar duzun bezala.

Eta gaur egun izen gisa testu fitxategi bat Outlook-karpetak zure mahaigainean sortutako eta gordetako pantaila erakusten da.

5. Egin klik bikoitza testu berriaren fitxategia irekitzeko eta egin klik File > Inprimatu Outlook-eko karpetak esportatutako zerrenda inprimatzeko.


arrow urdina eskuineko burbuilaGaiarekin lotutako artikuluak



Kutools Outlook-era

Outlook 100, 2010, 2013, 2016 eta 2019 Outlook 365 funtzio aurreratuak baino gehiago

pantailako kutools pantailako xNUMX banner txikiari begira

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat

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.