Kuinka viedä ja tulostaa luettelo kaikista Outlookin kansioista ja alikansioista?
Yleisesti ottaen voit painaa "Ctrl" + "6" -näppäimiä nähdäksesi luettelon kaikista Outlookin siirtymisruudun kansioista. Et kuitenkaan voi tulostaa kansioluetteloa suoraan. Tässä artikkelissa esitellään kaksi VBA-komentosarjaa, joilla voit viedä ja tulostaa luettelon kaikista Outlookin kansioista ja niiden alikansioista.
- Vie ja tulosta luettelo kaikista Outlook-kansioista ja niiden alikansioista uudessa sähköpostissa
- Vie ja tulosta luettelo kaikista Outlook-kansioista ja niiden alikansioista Muistiossa
Vie ja tulosta luettelo kaikista Outlook-kansioista ja niiden alikansioista uudessa sähköpostissa
Tämä menetelmä ottaa käyttöön VBA-komentosarjan, joka vie luettelon kaikista tietyn sähköpostitilin kansioista ja niiden alikansioista uuteen sähköpostiin Outlookissa. Sitten voit helposti tulostaa kansioluettelon.
1. Avaa Microsoft Visual Basic for Applications -ikkuna painamalla "Alt" + "F11".
2. Napsauta "Lisää" > "Moduuli" ja liitä seuraava VBA-koodi uuteen moduuliikkunaan.
VBA: Vie kansioiden ja alikansioiden luettelo uuteen sähköpostiin Outlookissa
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 Sub3. Suorita VBA painamalla "F5".
4. Valitse avautuvasta Select Folder -valintaikkunasta sähköpostitili, jonka kansioluettelon haluat tulostaa, ja napsauta "OK".
5. Valitun tilin kansioluettelo kopioidaan uuteen sähköpostiin alla olevan kuvan mukaisesti. Napsauta "Tiedosto" > "Tulosta" tulostaaksesi kansioluettelon.
6. Sulje tulostuksen jälkeen uusi sähköposti tallentamatta.
Vie ja tulosta luettelo kaikista Outlook-kansioista ja niiden alikansioista Muistiossa
Tämä menetelmä ottaa käyttöön VBA-komentosarjan, joka vie luettelon kaikista tietyn sähköpostitilin kansioista ja niiden alikansioista Outlookista Muistioon. Tämän jälkeen voit helposti tulostaa kansioluettelon.
1. Avaa Microsoft Visual Basic for Applications -ikkuna painamalla "Alt" + "F11".
2. Napsauta "Lisää" > "Moduuli" ja liitä seuraava VBA-koodi uuteen moduuliikkunaan.
VBA: Vie luettelo kaikista Outlook-kansioista ja alikansioista Outlookista Muistioon
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 Function3. Suorita VBA painamalla "F5". Valitse avautuvasta Select Folder -valintaikkunasta sähköpostitili, jonka kansioluettelon haluat viedä ja tulostaa, ja napsauta sitten "OK".
4. Output Folder Tree -valintaikkuna tulee näkyviin. Napsauta "Kyllä" tai "Ei" sen mukaan, haluatko sisällyttää puun sisennyksen.
Nyt tekstitiedosto nimeltä "Outlook-Folders" luodaan ja tallennetaan työpöydällesi alla olevan kuvan mukaisesti:
5. Avaa uusi tekstitiedosto kaksoisnapsauttamalla ja tulosta sitten viety Outlook-kansioluettelo napsauttamalla "Tiedosto" > "Tulosta".
AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA
Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.
Tämä ominaisuus tukee:
- Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
- Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
- Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
- Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
- Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
- Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.
Tämä ominaisuus tukee:
- Älykkäät sähköpostivastaukset
- Optimoitu sisältö
- Avainsanoihin perustuvat luonnokset
- Älykäs sisältölaajennus
- Yhteenveto sähköpostitse
- Monikielinen käännös
Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!
Aiheeseen liittyvät artikkelit
Näytä tai piilota kansioluettelonäkymä Outlookissa
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
