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

or

آؤٹ لک میں ای میلز سے مخصوص قسم کے منسلکات کو کیسے ہٹا دیں؟

کیا آپ نے آؤٹ لک میں فائل کی نوعیت کے ذریعے کبھی بھی منتخب کردہ ای میلز میں منسلکات کو دور کرنے کی کوشش کی ہے؟ اس طرح کے طور پر، منتخب کردہ ای میلز سے تمام دستاویزات یا PNG منسلک فائلوں کو ہٹا دیں. آپ کیسے آؤٹ لک میں یہ کام حل کرسکتے ہیں؟

VBA کوڈ کے ساتھ ای میلز سے مخصوص قسم کے منسلک کو ہٹا دیں


VBA کوڈ کے ساتھ ای میلز سے مخصوص قسم کے منسلک کو ہٹا دیں

منتخب کردہ ای میلز کے مخصوص قسم کے منسلکات کو دور کرنے کے لئے، مندرجہ ذیل VBA کوڈ آپ کو ایک احسان کر سکتا ہے، برائے مہربانی ایسا کریں:

1. ای میلز منتخب کریں جو آپ اپنی مخصوص قسم کے منسلک میلنگ لسٹ میں ہٹانا چاہتے ہیں.

2. نیچے رکھو ALT + F11 کلیدوں کو کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی.

3. پھر کلک کریں داخل > ماڈیول، کھلی خالی ماڈیول میں کوڈ کو کاپی اور پیسٹ کریں، اسکرین شاٹ دیکھیں:

VBA کوڈ: ای میلز سے مخصوص قسم کے منسلک کو ہٹا دیں:

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4. اور پھر پھر بھی مائیکروسافٹ بصری بنیادی کے لئے درخواستیں ونڈو کی، مظاہرہ آلات > حوالہ جات پر جانے کے لئے حوالہ جات - پروجیکٹ ایکس این ایم ایکس ایکس ڈائیلاگ باکس، اور چیک کریں مائیکروسافٹ اسکرپٹنگ رنٹیم سے اختیار دستیاب حوالہ جات فہرست باکس، اسکرین شاٹ دیکھیں:

ڈاٹ 1 قسم کی طرف سے منسلک ڈیک کو ہٹا دیں

5. پھر کلک کریں OK اب ڈائیلاگ کو بند کرنے کے لئے، دبائیں F5 اس کوڈ کو چلانے کے لئے کلید، اور فوری طور پر باکس کو باہر نکال دیا گیا ہے، براہ کرم اس منسلک کی قسم درج کریں جسے آپ ہٹانا چاہتے ہیں، اسکرین شاٹ دیکھیں:

ڈاٹ 2 قسم کی طرف سے منسلک ڈیک کو ہٹا دیں

6. کلک کریں OK، اور مخصوص قسم کے ساتھ منسلک تمام منسلک آپ کو ایک بار میں خارج کر دیا گیا ہے، اسکرین شاٹ دیکھیں:

ڈاٹ 3 قسم کی طرف سے منسلک ڈیک کو ہٹا دیں



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