Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i allforio ac argraffu rhestr o bob ffolder a is-ddosbarthwr yn Outlook?

Yn gyffredinol, gallwch bwyso Ctrl + 6 allweddi i weld y rhestr o bob ffolder ar Fane Navigation yn Outlook. Fodd bynnag, ni allwch argraffu'r rhestr o ffolderi. Bydd yr erthygl hon yn cyflwyno dau sgript VBA i allforio ac argraffu'r rhestr o bob ffolder a'u has-ddosbarthu yn Outlook.

Un cliciwch i ddangos cyfanswm nifer yr eitemau ym mhob ffolder ar y Panelau Navigation yn Outlook

Fel arfer, mae Outlook yn dangos nifer yr eitemau heb eu darllen ym mhob ffolder ar y Panelau Navigation. Ond, Kutools ar gyfer Outlook's Pob Ffolder Dangos Dangos Cyfanswm Nifer yr Eitemau Gall nodwedd eich helpu i ddangos cyfanswm niferoedd eitemau ym mhob ffolder gyda dim ond un clic. Cliciwch ar gyfer treial am ddim 60-day heb gyfyngiad!
mae pob ffolder yn dangos cyfanswm rhif kto 9.00

Kutools ar gyfer Outlook: 100 + Offer Uwch Newydd ar gyfer Outlook.
Tab Swyddfa: Galluogi Golygu Tablau a Pori yn y Swyddfa, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Bwydlen Clasurol: Dewch â Hen Fwydlenni a Pheiriau Offer Yn ôl i Office 2007, 2010, 2013, 2016 a 2019.

swigod saeth cywir glas Allforio ac argraffwch y rhestr o holl ffolderi Outlook a'u is-ddosbarthu mewn e-bost newydd

Bydd y dull hwn yn cyflwyno VBA i allforio rhestr yr holl ffolderi a'u is-ddosbarthwyr mewn cyfrif e-bost penodedig i mewn i e-bost newydd yn Outlook, ac yna gallwch argraffu'r rhestr o ffolderi yn hawdd.

1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y cod VBA i mewn i ffenestr newydd y Modiwl.

VBA: Allforio rhestr y ffolderi a'r is-ddosbarthwyr mewn e-bost newydd yn 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. Gwasgwch F5 allweddol i redeg y VBA hwn.

4. Yn y blwch deialog Folping Select Folder, dewiswch y cyfrif e-bost y mae ei restr o ffolderi yr hoffech ei argraffu, a chliciwch ar y OK botwm. Gweler y sgrin:

5. Ac yn awr mae rhestr ffolder y cyfrif e-bost penodedig yn cael ei gopïo i e-bost newydd fel y dangosir y sgrin isod. Cliciwch ffeil > print i argraffu'r rhestr o ffolderi a gopïwyd.

6. Ar ôl argraffu, cau'r e-bost newydd heb arbed.


swigod saeth cywir glas Allforio ac argraffwch y rhestr o holl ffolderi Outlook y mae is-ddosbarthwyr yno yn Notepad

Bydd y dull hwn yn cyflwyno VBA i allforio rhestr yr holl ffolderi a'u is-ddosbarthwyr mewn cyfrif e-bost penodedig o Outlook i Notepad, ac yna gallwch argraffu rhestr o ffolderi Outlook yn y Notepad yn hawdd.

1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y cod VBA i mewn i ffenestr newydd y Modiwl.

VBA: Allforio rhestr o holl ffolderi Outlook ac is-ddosbarthwyr o Outlook i 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. Gwasgwch F5 allweddol i redeg y VBA hwn. Nesaf yn y blwch deialu Ffolder Dewis agoriadol, dewiswch y cyfrif e-bost y mae ei restr ffolderi yr ydych am ei allforio a'i argraffu, a chliciwch ar y OK botwm. Gweler y sgrin:

4. Yna mae blwch deialog Allbwn Folder Tree yn dod. Cliciwch ar y Ydw botwm neu Na botwm fel y mae ei angen arnoch chi.

Ac yn awr ffeil testun a enwir fel Outlook-Folders yn cael ei greu a'i gadw ar eich bwrdd gwaith fel y dangosir y sgrin isod.

5. Cliciwch ddwywaith i agor y ffeil testun newydd, ac yna cliciwch ffeil > print i argraffu'r rhestr allbwn o ffolderi rhagolygon.


swigod saeth cywir glasErthyglau Perthnasol



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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.

Be the first to comment.