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

or

آؤٹ لک میں صرف مخصوص (ایکسل) منسلک کیسے بچاؤ؟

آؤٹ لک آپ کو محفوظ کرنے کے لئے سبھی منسلکہ خصوصیت فراہم کرتی ہے تاکہ آپ کو ایک مخصوص فولڈر میں ایک ہی فولڈر کو فوری طور پر ای میل میں تمام منسلکات کو بچانے کے لئے. تاہم، اگر آپ ای میل میں صرف مخصوص قسم کے منسلک کو بچانا چاہتے ہیں، جیسے ایکسل منسلک، ورڈ دستاویز اور اسی طرح، آپ اسے حاصل کرنے کے لئے کیا کرسکتے ہیں؟ یہاں ہم مسئلہ حل کرنے کے لئے ایک VBA طریقہ فراہم کرتے ہیں.

آؤٹ لک میں صرف مخصوص منسلک محفوظ کریں


فولڈر کو ایک سے زیادہ منتخب کردہ ای میلز سے آسانی سے تمام منسلکات کو محفوظ کریں:

کے ساتہ تمام منسلکات کو ہٹا دیں افادیت ایکسل کے لئے Kutoolsآپ آسانی سے ایک سے زیادہ منتخب شدہ ای میلز سے تمام منسلکات کو آؤٹ لک میں دکھایا گیا ہے جس میں ذیل میں اسکرین شاٹ دکھایا گیا ہے.

آؤٹ لک کے لئے Kutools: 40 سے زیادہ آؤٹ لک آؤٹ لک اضافی سے زیادہ کے ساتھ، 45 دنوں میں کوئی حدود کے ساتھ کوشش کرنے کے لئے آزاد. ڈاؤن لوڈ اور مفت آزمائشی اب!

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

آؤٹ لک میں صرف مخصوص منسلک محفوظ کریں

مندرجہ ذیل VBA کوڈ کسی خاص فولڈر میں ای میل یا ایک سے زیادہ ای میلز میں صرف مخصوص منسلک محفوظ کرنے میں مدد کرسکتا ہے. براہ کرم ذیل میں کریں.

1. میل آؤٹ لسٹ میں اپنا Outlook شروع کریں، ای میل یا ایک سے زیادہ ای میل منتخب کریں جن سے آپ مخصوص منسلک کو محفوظ کریں گے.

2. دبائیں آلٹ + F11 کلیدوں کو کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی افتتاحی ونڈو میں کلک کریں داخل > ماڈیول، اور پھر ماڈیول ونڈو میں VBA کوڈ کے نیچے کاپی کریں.

VBA کوڈ: ایک فولڈر میں ای میل یا ایک سے زیادہ ای میلز میں صرف مخصوص منسلک محفوظ کریں

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. کلک کریں آلات > حوالہ جاتمیں حوالہ جات - پروجیکٹ ڈائیلاگ، چیک کریں مائیکروسافٹ اسکرپٹنگ رنٹیم باکس اور کلک کریں OK بٹن.

4. دبائیں F5 کوڈ چلانے کی کلید. پاپ آؤٹ میں فولڈر کے لئے براؤز کریں ڈائیلاگ باکس، منسلکات کو بچانے کے لئے ایک فولڈر کا انتخاب کریں.

5. اور پھر کلک کریں OKمندرجہ ذیل میں آؤٹ لک کے لئے Kutools ڈائیلاگ باکس، آپ کو ٹیکسٹ باکس میں منسلک منسلک فائل کی توسیع درج کریں اور کلک کریں OK.

اس کے بعد صرف مخصوص منسلک محفوظ ہیں.

نوٹس:

1. اگر آپ مختلف قسم کے منسلکات کو بچانے کے لئے چاہتے ہیں، تو براہ کرم فائل کی توسیع متن باکس میں درج کریں اور ان کو الگ کریں.

2. بچانے کے بعد، پیغام کے جسم پر ایک منسلک بچت کا راستہ دکھایا جاتا ہے. آپ کو براہ راست ہائپر لنک پر کلک کرکے منسلک کھول سکتے ہیں.


متعلقہ مضامین:



آؤٹ لک کے لئے 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.

Be the first to comment.