Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Ինչպես արտահանել եւ տպել Outlook- ի բոլոր թղթապանակների եւ ենթապայմանների ցուցակը:

Ընդհանուր առմամբ, կարող եք սեղմել Ctrl + 6 Outlook- ում նավարկության վահանակի բոլոր թղթապանակների ցուցակը դիտելու համար: Սակայն, Դուք չեք կարող տպել թղթապանակների ցանկը: Այս հոդվածը կներկայացնի երկու VBA սցենարներ `Outlook- ում բոլոր թղթապանակների եւ դրանց ենթապարբերությունների ցուցակը արտահանելու եւ տպելու համար:

Մի հպեք, Outlook- ում Նավիգացիոն վահանակի բոլոր թղթապանակների ընդհանուր թվերի ցուցադրելու համար

Սովորաբար, Outlook- ն ցույց է տալիս Նավարկման շրջանում յուրաքանչյուր թղթապանակում չկարդացված տարրերի համարները: Սակայն, Kutools for Outlook- ի Բոլոր Թղթապանակները ցույց են տալիս ընդհանուր իրերի քանակը հատկությունը կարող է օգնել ձեզ ցույց տալ բոլոր թղթապանակների տարրերը, ընդամենը մեկ սեղմումով: Սեղմեք 60 օրվա անվճար փորձաշրջան առանց սահմանափակումների:
բոլոր թղթապանակները ցույց են տալիս ընդհանուր թիվը kto 9.00

Պահոցներ Outlook- ի համար: 100 + նոր առաջադեմ գործիքներ Outlook- ի համար:
Գրասենյակի էջանշանը: Միացնել գործածված էջանշանը եւ դիտարկումը Office- ում, Just Like Chrome, Firefox, IE 8 / 9 / 10:
Դասական Մենյու: Ներկայացրեք հին մենյուները եւ գործիքակազմերը 2007- ում, 2010- ում, 2013- ում, 2016- ում եւ 2019- ում:

arrow կապույտ աջ փուչիկ Արտահանեք եւ տպեք բոլոր էլփոստի թղթապանակների եւ դրանց ենթահամակարգերի ցուցակը նոր նամակներում

Այս մեթոդը կներկայացնի VBA- ն `բոլոր թղթապանակների ցուցակը եւ դրանց ենթապայծառները ցուցադրվող էլփոստի հաշվում` Outlook- ում նոր էլեկտրոնային փոստով, ապա դուք կարող եք հեշտությամբ տպել թղթապանակների ցանկը:

1. Մամուլ ալտ + F11 բացել ստեղները Microsoft Visual Basic- ի դիմումների պատուհանի համար:

2: սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի ներքեւում տեղադրեք նոր մոդուլի պատուհանում:

VBA- ը Outlook- ում 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. Մամուլ F5 բանալին գործարկել այս VBA- ն:

4. Ընտրեք թղթապանակը ընտրեք երկխոսության դաշտում, խնդրում ենք ընտրել էլփոստի հաշիվը, որի թղթապանակների ցուցակը ցանկանում եք տպել եւ սեղմեք OK կոճակը: Տեսեք,

5. Այժմ նշված էլփոստի հաշվի թղթապանակի ցանկը պատճենվում է նոր էլ.փոստի ներքեւում, ինչպես ցույց է տրված ստորեւ նշված էկրանի նկարը: Խնդրում ենք սեղմել Ֆայլ > տպել տպել թղթապանակների պատճենահանված ցանկը:

6. Տպելուց հետո, խնդրում ենք փակել նոր նամակը `առանց խնայելու:


arrow կապույտ աջ փուչիկ Արտահանեք եւ տպեք բոլոր Outlook թղթապանակների ցանկը `գրառման մեջ գտնվող ենթաֆայլեր

Այս մեթոդը կներկայացնի VBA- ն `բոլոր թղթապանակների ցուցակը եւ նրանց ենթապարբերությունները արտահանելու Outlook- ից Notepad- ից նշված էլփոստի հաշվում, եւ ապա կարող եք հեշտությամբ տպել Outlook- ի թղթապանակների ցուցակը:

1. Մամուլ ալտ + F11 բացել ստեղները Microsoft Visual Basic- ի դիմումների պատուհանի համար:

2: սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի ներքեւում տեղադրեք նոր մոդուլի պատուհանում:

VBA: Արտահանեք Outlook- ի բոլոր թղթապանակների եւ ենթապայմանների ցուցակը `Outlook- ից 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. Մամուլ F5 բանալին գործարկել այս VBA- ն: Հաջորդում ընտրեք Թղթապանակ ընտրեք երկխոսության դաշտը, խնդրում ենք ընտրել էլփոստի հաշիվ, որի թղթապանակի ցանկը ցանկանում եք արտահանել եւ տպել, եւ սեղմեք OK կոճակը: Տեսեք,

4. Այնուհետեւ գալիս է ելքային տողերի տողի երկխոսություն վանդակը: Խնդրում ենք սեղմել այո կոճակը կամ Ոչ կոճակը, ինչպես հարկն է:

Եվ հիմա, որպես տեքստային ֆայլ, որը կոչվում է Outlook- Թղթապանակներ ստեղծվում եւ պահվում է ձեր աշխատասեղանին, ինչպես ցույց է տրված ստորեւ նշված էկրանի նկարը:

5. Կրկնակի սեղմեք նոր տեքստային ֆայլը բացելու համար, այնուհետեւ կտտացրեք Ֆայլ > տպել տպել արտացոլման թղթապանակների արտահանված ցանկը:


arrow կապույտ աջ փուչիկԱռնչվող հոդվածներ



Պահոցներ Outlook- ի համար

Ավելի քան 100- ի առաջադեմ գործառույթները, 2010, 2013, 2016, 2019 եւ 365- ի համար:

Էկրանի ստեղնաշարի համար նախատեսված փոքր տառատեսակ փոքրիկ 201812- ի համար

Լրացուցիչ հնարավորություններ | Անվճար ներբեռնում | Միայն $ 39.00 հարյուրավոր գործառույթների համար

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.