Ինչպե՞ս արտահանել և տպել Outlook- ի բոլոր պանակների և ենթապանակների ցուցակը:
Ընդհանուր առմամբ, կարող եք սեղմել Ctrl + 6 ստեղները ՝ Outlook- ում Navigation Pane- ի բոլոր պանակների ցուցակը դիտելու համար: Այնուամենայնիվ, դուք չեք կարող տպել պանակների ցուցակը: Այս հոդվածը կներկայացնի երկու VBA սցենարներ ՝ Outlook- ում բոլոր պանակների և դրանց ենթապանակների ցուցակը արտահանելու և տպելու համար:
- Արտահանեք և տպեք Outlook- ի բոլոր պանակների և դրանց ենթապանակների ցուցակը նոր էլ. Փոստով
- Արտահանեք և տպեք Գրառման գրքում առկա բոլոր ենթապանակների 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- ի համար Բոլոր պանակները ցույց են տալիս իրերի ընդհանուր քանակը առանձնահատկությունը կարող է օգնել միայն մեկ սեղմումով ցույց տալ բոլոր պանակների տարրերի ընդհանուր քանակը:
Առնչվող հոդվածներ
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: