ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

آؤٹ لک میں تمام فولڈر اور سب فولڈرز کی فہرست کیسے برآمد اور پرنٹ کریں؟

عام طور پر، آپ پریس کر سکتے ہیں کے لئے Ctrl + 6 آؤٹ لک میں نیویگیشن پین پر تمام فولڈروں کی فہرست دیکھنے کے لئے کی چابیاں. تاہم، آپ فولڈر کی فہرست پرنٹ نہیں کر سکتے ہیں. یہ آرٹیکل آؤٹ لک میں تمام فولڈر اور ان کے ذیلی فولڈروں کی فہرست کو برآمد اور پرنٹ کرنے کے لئے دو VBA سکرپٹ متعارف کرایا جائے گا.

آؤٹ لک میں نیویگیشن پین پر تمام فولڈروں میں اشیاء کی کل تعداد دکھانے کے لئے ایک کلک

عام طور پر، آؤٹ لک نیویگیشن پین پر ہر فولڈر میں بے ترتیب اشیاء کی تعداد دکھاتا ہے. لیکن، آؤٹ لک کے لئے Kutools تمام فولڈر اشارے کی کل تعداد دکھائیں خصوصیت آپ کو صرف ایک کلک کے ساتھ تمام فولڈروں میں اشیاء کی کل تعداد کو دکھانے میں مدد مل سکتی ہے. بغیر کسی حد تک 60 دن مفت آزمائشی کے لئے کلک کریں!
تمام فولڈر کل نمبر دکھاتا ہے Kto 9.00

آؤٹ لک کے لئے Kutools: 100 + نئے اعلی درجے کے اوزار آؤٹ لک کے لئے.
آفس ٹیب: آفس میں ٹیبڈ ترمیم اور براؤزنگ کو فعال کریںجیسے جیسے کروم، فائر فاکس، IE 8 / 9 / 10.
کلاسیکی مینو: پرانا مینو اور ٹول بار واپس لو آفس 2007، 2010، 2013، 2016 اور 2019.

تیر نیلے رنگ بلبلا نئے ای میل میں آؤٹ لک فولڈرز اور ان کے ذیلی فولڈرز کی فہرست برآمد اور پرنٹ کریں

یہ طریقہ ایک مخصوص ای میل اکاؤنٹ میں آؤٹ لک میں ایک نیا ای میل میں تمام فولڈروں اور ان کے ذیلی فولڈروں کی فہرست برآمد کرنے کیلئے ایک VBA متعارف کرے گا، اور پھر آپ آسانی سے فولڈر کی فہرست کو پرنٹ کرسکتے ہیں.

1. دبائیں آلٹ + F11 مائیکروسافٹ بصری بنیادی ونڈوز کے لئے ونڈو کے لئے کلیدیں

2. کلک کریں داخل > ماڈیول، اور پھر VBA کوڈ کے نیچے نئے ماڈیول ونڈو میں پیسٹ کریں.

VBA: آؤٹ لک میں نئے ای میل میں فولڈرز اور ذیلی فولڈرز کی فہرست برآمد کریں

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. پرنٹ کرنے کے بعد، بچانے کے بغیر براہ مہربانی نئے ای میل بند کریں.


تیر نیلے رنگ بلبلا نو نوٹ پیڈ میں سب فولڈرز کے تمام آؤٹ لک فولڈر اینٹی کی فہرست برآمد اور پرنٹ کریں

یہ طریقہ ایک آؤٹ لک ایک نوٹ ایڈی اکاؤنٹ میں آؤٹ لک سے نوٹ پیڈ میں سبھی فولڈر اور ان کے ذیلی فولڈر کی فہرست برآمد کرنے کے لئے ایک VBA متعارف کرے گا، اور پھر آپ آسانی سے Notepad میں آؤٹ لک فولڈر کی فہرست کو پرنٹ کرسکتے ہیں.

1. دبائیں آلٹ + F11 مائیکروسافٹ بصری بنیادی ونڈوز کے لئے ونڈو کے لئے کلیدیں

2. کلک کریں داخل > ماڈیول، اور پھر VBA کوڈ کے نیچے نئے ماڈیول ونڈو میں پیسٹ کریں.

VBA: آؤٹ لک سے نوٹ آؤٹ پر تمام آؤٹ لک فولڈرز اور ذیلی فولڈرز کی فہرست برآمد کریں

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. پھر آؤٹ پٹ فولڈر ٹری ڈائیلاگ باکس آ رہا ہے. براہ مہربانی کلک کریں جی ہاں بٹن یا نہیں آپ کی ضرورت کے بٹن پر.

اور اب ایک ٹیکسٹ فائل جس کا نام ہے آؤٹ لک فولڈر اسکرین شاٹ دکھایا گیا ہے جیسا کہ دکھایا گیا ہے اور اپنے ڈیسک ٹاپ پر محفوظ کیا جاتا ہے.

5. نیا ٹیکسٹ فائل کھولنے کے لئے ڈبل کلک کریں، اور پھر کلک کریں فائل > پرنٹ آؤٹ لک فولڈر کی برآمد کردہ فہرست پرنٹ کرنے کے لئے.


تیر نیلے رنگ بلبلامتعلقہ مضامین



آؤٹ لک کے لئے Kutools

Outlook 100، 2010، 2013، 2016 اور 2019 کے لئے 365 اعلی درجے کی افعال سے زیادہ

بینر 201812 کے لئے آؤٹ لک چھوٹے کے لئے سکرین شاٹ kutools

زیادہ خصوصیات | مفت ڈاؤنلوڈ | سینکڑوں افعال کیلئے صرف $ 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.