Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas liosta de na fillteáin agus na fillteáin in Outlook a onnmhairiú agus a phriontáil?

Go ginearálta, is féidir leat brúigh Ctrl + 6 eochracha chun liosta na bhfillteán uile ar Pane Nascleanúna in Outlook a fheiceáil. Mar sin féin, ní féidir leat an liosta fillteáin a phriontáil. Cuirfidh an t-alt seo dhá scripte VBA isteach chun liosta na bhfillteán uile agus a bhfillteáin in Outlook a onnmhairiú agus a phriontáil.

Cliceáil amháin chun líon iomlán na n-ítimí a thaispeáint i ngach fillteán ar an Pane Nascleanúna in Outlook

De ghnáth, léiríonn Outlook líon na n-ítimí gan léamh i ngach fillteán ar an Pane Nascleanúna. Ach, Kutools do Outlook's Taispeáin gach Fillteán Líon Iomlán na Míreanna is féidir le cuidiú cabhrú leat líon iomlán na n-ítimí a thaispeáint i ngach fillteán le cliceáil amháin. Cliceáil le haghaidh triail saor in aisce 60 lá gan teorainn!
Taispeánann gach fillteán uimhir iomlán kto 9.00

Kutools le haghaidh Outlook: 100 + Nua Uirlisí Casta do Outlook.
Tab Office: Cumasaigh Eagarthóireacht agus Browsing Tabbed in Oifig, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic: Tabhair Seanchláir agus Barraí Uirlisí Ar ais chuig Oifig 2007, 2010, 2013, 2016 agus 2019.

mboilgeog ceart gorm arrow An liosta de na fillteáin Outlook uile agus a bhfillteáin a ríomh i gcló ríomhphoist nua a onnmhairiú agus a phriontáil

Tabharfaidh an modh seo VBA chun liosta na bhfillteán uile agus a gcuid fillteáin a onnmhairiú i gcuntas ríomhphoist sonraithe i r-phost nua in Outlook, agus ansin is féidir leat an liosta fillteáin a phriontáil go héasca.

1. Brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic d'Iarratais a oscailt.

2. cliceáil Ionsáigh > Modúil, agus ansin déan an cód VBA a ghreamú isteach i bhfuinneog nua an Mhodúil.

VBA: Easpórtáil liosta na bhfillteán agus na bhfillteáin i ríomhphost nua in 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. Brúigh F5 eochair chun an VBA seo a reáchtáil.

4. Sa bhosca dialóg Roghnaigh Folder, roghnaigh an cuntas ríomhphoist a bhfuil an liosta fillteáin ar mhaith leat a phriontáil, agus cliceáil ar an OK cnaipe. Féach ar an scáileán:

5. Agus anois tá an liosta fillteán den chuntas ríomhphoist sonraithe a chóipeáil chuig ríomhphost nua mar a thaispeántar an scáileán thíos. Cliceáil cliceáil Comhad > Print an liosta fillteán cóipeáilte a phriontáil.

6. Tar éis a phriontáil, an ríomhphost nua a dhúnadh gan coigilt.


mboilgeog ceart gorm arrow Easpórtáladh an liosta de na fillteáin Outlook go léir atá ann faoi seachfhillteáin i Notepad

Tabharfaidh an modh seo VBA chun liosta na bhfillteán uile agus a bhfillteáin a onnmhairiú i gcuntas ríomhphoist sonraithe ó Outlook go Notepad, agus ansin is féidir leat an liosta fillteáin Outlook a phriontáil sa Notepad go héasca.

1. Brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic d'Iarratais a oscailt.

2. cliceáil Ionsáigh > Modúil, agus ansin déan an cód VBA a ghreamú isteach i bhfuinneog nua an Mhodúil.

VBA: Easpórtáil liosta na fillteáin agus na fillteáin Outlook go léir ó Outlook go 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. Brúigh F5 eochair chun an VBA seo a reáchtáil. Ar aghaidh sa bhosca dialóg Roghnaigh Folder, roghnaigh an cuntas ríomhphoist a bhfuil an liosta fillteán uait a onnmhairiú agus a phriontáil, agus cliceáil ar an OK cnaipe. Féach ar an scáileán:

4. Ansin tá bosca dialóg Chrann Fillteán Aschuir ag teacht. Cliceáil ar an Is ea cnaipe nó Uimh cnaipe mar is gá duit.

Agus anois comhad téacs ainmnithe mar Fillteáin Outlook cruthaítear agus a shábháil ar do dheasc mar a thaispeántar an scáileán thíos.

5. Cliceáil ar dhúbailte chun an comhad téacs nua a oscailt, agus ansin cliceáil Comhad > Print an liosta onnmhairithe d'fhillteáin dearcadh a phriontáil.


mboilgeog ceart gorm arrowAirteagail gaolmhara



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

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.