Kuinka kopioida Outlook-kansiorakenne työpöydälle (Windows Explorer)?
Kuten tiedät, voimme käyttää Arkisto-ominaisuutta kopioidaksesi kansiorakenteen toiseen Outlookiin, mutta tiedätkö kuinka kopioida Outlookin kansiorakenne tiettyyn ikkunakansioon, kuten työpöydälle? Tässä artikkelissa esitellään VBA, jolla voit kopioida Outlook-kansiorakenteen helposti Windows Exploreriin.
Kopioi Outlook-kansiorakenne työpöydälle (Windows Explorer)
Kopioi Outlook-kansiorakenne työpöydälle (Windows Explorer)
Noudata alla olevia ohjeita kopioidaksesi Outlook-kansiorakenteen työpöydälle tai Windows Exploreriin.
1. Napsauta siirtymisruudussa korostaaksesi määritettyä kansiota, jonka kansiorakenteen kopioit, ja paina "Alt" + "F11" -näppäimiä avataksesi Microsoft Visual Basic for Applications -ikkunan.
2. Avaa Viitteet-valintaikkuna napsauttamalla "Työkalut" > "Viitteet". Valitse sitten valintaikkunassa "Microsoft Scripting Runtime" -vaihtoehto ja napsauta "OK"-painiketta. Katso kuvakaappaus:
3. Napsauta "Lisää" > "Moduuli" ja kopioi ja liitä alla oleva VBA-koodi uuteen moduuliikkunaan.
VBA: Kopioi Outlook-kansiorakenne Windows Exploreriin
Dim xFSO As Scripting.FileSystemObject
Sub CopyOutlookFldStructureToWinExplorer()
ExportAction "Copy"
End Sub
Sub ExportAction(xAction As String)
Dim xFolder As Outlook.Folder
Dim xFldPath As String
xFldPath = SelectAFolder()
If xFldPath = "" Then
MsgBox "You did not select a folder. Export cancelled.", vbInformation + vbOKOnly, "Kutools for Outlook"
Else
Set xFSO = New Scripting.FileSystemObject
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
ExportOutlookFolder xFolder, xFldPath
End If
Set xFolder = Nothing
Set xFSO = Nothing
End Sub
Sub ExportOutlookFolder(ByVal OutlookFolder As Outlook.Folder, xFldPath As String)
Dim xSubFld As Outlook.Folder
Dim xItem As Object
Dim xPath As String
Dim xFilePath As String
Dim xSubject As String
Dim xCount As Integer
Dim xFilename As String
On Error Resume Next
xPath = xFldPath & "\" & OutlookFolder.Name
'?????????,??????
If Dir(xPath, 16) = Empty Then MkDir xPath
For Each xItem In OutlookFolder.Items
xSubject = ReplaceInvalidCharacters(xItem.Subject)
xFilename = xSubject & ".msg"
xCount = 0
xFilePath = xPath & "\" & xFilename
If xFSO.FileExists(xFilePath) Then
xCount = xCount + 1
xFilename = xSubject & " (" & xCount & ").msg"
xFilePath = xPath & "\" & xFilename
End If
xItem.SaveAs xFilePath, olMSG
Next
For Each xSubFld In OutlookFolder.Folders
ExportOutlookFolder xSubFld, xPath
Next
Set OutlookFolder = Nothing
Set xItem = Nothing
End Sub
Function SelectAFolder() As String
Dim xSelFolder As Object
Dim xShell As Object
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xSelFolder = xShell.BrowseForFolder(0, "Select a folder", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
SelectAFolder = xSelFolder.self.Path
End If
Set xSelFolder = Nothing
Set xShell = Nothing
End Function
Function ReplaceInvalidCharacters(Str As String) As String
Dim xRegEx
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
ReplaceInvalidCharacters = xRegEx.Replace(Str, "")
End Function
4. Suorita tämä VBA painamalla "F5"-näppäintä tai napsauttamalla "Suorita"-painiketta.
5. Valitse avautuvasta "Selaa kansiota" -valintaikkunasta määritetty kansio, johon kopioitu kansiorakenne tallennetaan, ja napsauta "OK"-painiketta. Katso kuvakaappaus:
Siirry nyt määritettyyn kansioon, näet, että kansiorakenne on kopioitu määritetylle kiintolevylle. Katso kuvakaappaus:
Huomautuksia: kansion kohteet, kuten sähköpostit, tapaamiset, tehtävät jne., kopioidaan myös vastaaviin kiintolevyn kansioihin.
Aiheeseen liittyvät artikkelit
Kuinka kopioida kansiorakenne uuteen pst-datatiedostoon 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 ...
