کوکی ها به ما کمک خدمات ما ارائه کرده است. با استفاده از خدمات ما، شما را به استفاده ما از کوکی ها است.
نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چگونه می توان نوع خاصی از پیوست ها را از ایمیل ها در Outlook حذف کرد؟

آیا تا به حال سعی در حذف فایل پیوست در ایمیل های مختلف انتخاب شده توسط نوع فایل در چشم انداز؟ مانند حذف همه فایلهای ضمیمه docx یا png از ایمیل های انتخاب شده. چگونه می توان این کار را در Outlook انجام داد؟

نوع خاصی از پیوست ها را از ایمیل با کد 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. و سپس هنوز در مایکروسافت ویژوال بیسیک برای برنامه پنجره، بر روی ابزار > منابع برای رفتن به منابع-Project1 کادر محاوره ای و چک کردن اجرا مایکروسافت اسکریپت گزینه ای از منابع موجود کادر لیست، عکس را ببینید

doc حذف پیوست به نوع 1

5. سپس روی کلیک کنید OK برای بستن گفتگو، در حال حاضر، مطبوعات F5 کلید اجرای این کد و یک جعبه سریع ظاهر می شود، لطفا نوع ضمیمه را که می خواهید حذف کنید را وارد کنید، به تصویر زیر مراجعه کنید:

doc حذف پیوست به نوع 2

6است. کلیک کنید OK، و تمام پیوست ها با نوع خاصی که تعریف شده اند در یک بار حذف شده اند، به تصویر زیر مراجعه کنید:

doc حذف پیوست به نوع 3



Kutools برای چشم انداز

بیشتر از توابع پیشرفته 100 برای چشم انداز 2010، 2013، 2016، 2019 و 365

kutools روی صفحه نمایش برای چشم انداز کوچک برای بنر 201812

از ویژگی های بیشتر | دانلود رایگان | فقط $ 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.