Note: The other languages of the website are Google-translated. Back to English

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

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


Արտահանեք և տպեք Outlook- ի բոլոր պանակների և դրանց ենթապանակների ցուցակը նոր էլ. Փոստով

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

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

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

VBA. Արտահանեք 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. Տպելուց հետո, առանց խնայելու, փակեք նոր էլ.


Արտահանեք և տպեք Գրառման գրքում առկա բոլոր ենթապանակների Outlook թղթապանակների ցուցակը

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

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. Կրկնակի կտտացրեք ՝ նոր տեքստային ֆայլը բացելու համար, ապա կտտացրեք Ֆայլ > տպել Outlook պանակների արտահանված ցուցակը տպելու համար:

Մեկ կտտոցով ՝ Outlook- ի Նավիգացիոն վահանակի բոլոր պանակներում տարրերի ընդհանուր քանակը ցույց տալու համար

Սովորաբար, Outlook- ը ցույց է տալիս Նավիգացիոն վահանակի յուրաքանչյուր թղթապանակում չկարդացված իրերի քանակը: Բայց, Kutools- ը Outlook- ի համար Բոլոր պանակները ցույց են տալիս իրերի ընդհանուր քանակը առանձնահատկությունը կարող է օգնել միայն մեկ սեղմումով ցույց տալ բոլոր պանակների տարրերի ընդհանուր քանակը:


բոլոր պանակները ցույց են տալիս ընդհանուր թիվը kto 9.00

Առնչվող հոդվածներ


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (2)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առավել հիանալի հուշում: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնայեց մեզ տոննա ժամանակ: Շնորհակալություն մանրամասն հրահանգների համար: Աշխատել է հմայքի պես: :)
Գնահատված 5- ը 5- ից դուրս է
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից