קאָאָקיעס העלפֿן אונדז צושטעלן אונדזער באַדינונגס. דורך ניצן אונדזער באַדינונגס, איר שטימען צו אונדזער נוצן פון קיכלעך.
שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו באַזייַטיקן ספּעציעלע טיפּ פון אַטאַטשמאַנץ פון ימיילז אין אַוטלוק?

האָבן איר אלץ געפרוווט צו באַזייַטיקן אַטאַטשמאַנץ אין קייפל אויסגעקליבן ימיילז דורך טעקע טיפּ אין אַוטלוק? אַזאַ ווי, רימוווינג אַלע דאָקקס אָדער פּנג אַטאַטשמאַנט טעקעס פון אויסגעקליבן ימיילז. ווי קען איר סאָלווע דעם אַרבעט אין אַוטלוק?

אַראָפּנעמען ספּעציפיש טיפּ פון אַטאַטשמאַנץ פון ימיילז מיט וובאַ קאָד


אַראָפּנעמען ספּעציפיש טיפּ פון אַטאַטשמאַנץ פון ימיילז מיט וובאַ קאָד

צו באַזייַטיקן ספּעציפיש טיפּ פון אַטאַטשמאַנץ פון אויסגעקליבן ימיילז, די ווייַטערדיק וובאַ קאָד קענען טאָן איר אַ פאַוואָר, ביטע טאָן ווי דאָס:

1. אויסקלייַבן די ימיילז אַז איר ווילן צו באַזייַטיקן זייער ספּעציפיש טיפּ פון אַטאַטשמאַנץ אין די מיילינג רשימה.

2. האַלטן אַראָפּ די ALT + F11 שליסלען צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער.

3. דעמאָלט גיט אַרייַנלייגן > מאָדולעס, נאָכמאַכן און פּאַפּ די קאָד אין די געעפנט פּוסט מאָדולע, זען סקרעענשאָט:

וובאַ קאָד: אַראָפּנעמען ספּעציפיש טיפּ פון אַטאַטשמאַנץ פון ימיילז:

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. און דעמאָלט נאָך אין די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער, גיט מכשירים > רעפֿערענצן צו גיין צו די References-Project1 דיאַלאָג קאַסטן, און טשעק מיקראָסאָפט סקריפּטינג רונטימע אָפּציע פון ​​די Available References רשימה קאַסטן, זען סקרעענשאָט:

דאָק באַזייַטיקונג צוטשעפּען דורך טיפּ קסנומקס

5. דעמאָלט גיט OK צו פאַרמאַכן די Dialog, איצט, דריקן F5 שליסל צו לויפן דעם קאָד, און אַ פּינטלעך קעסטל איז אויסגעשטרעקט אויס, ביטע אַרייַן די אַטאַטשמאַנט טיפּ אַז איר ווילן צו באַזייַטיקן, זען סקרעענשאָט:

דאָק באַזייַטיקונג צוטשעפּען דורך טיפּ קסנומקס

6. דריקט OK, און אַלע אַטאַטשמאַנץ מיט די ספּעציפיש טיפּ איר זענען דיפיינד האָבן שוין אויסגעמעקט, זען סקרעענשאָט:

דאָק באַזייַטיקונג צוטשעפּען דורך טיפּ קסנומקס



קוטאָאָלס פֿאַר אַוטלוק

מער ווי קסנומקס אַוואַנסירטע פאַנגקשאַנז פֿאַר אַוטלוק קסנומקס, קסנומקס, קסנומקס, קסנומקס און קסנומקס

פאַרשטעלן שיסל קוטאָאָלס פֿאַר אַוטלוק קליינטשיק פֿאַר פאָן קסנומקס

מער פֿעיִקייטן | פֿרייַ אראפקאפיע | בלויז $ 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.