כיצד להסיר באופן אוטומטי את הקבצים המצורפים לאחר שליחת הודעות דואר אלקטרוני מתיקיית הפריטים שנשלחו?

Author: Xiaoyang Last Modified: 2025-05-30

כאשר שולחים דואר אלקטרוני עם קבצים מצורפים, הקבצים המצורפים ישמרו יחד עם הודעות הדואר בתקיית הפריטים שנשלחו כברירת מחדל. כדי להקטין את גודל קובץ ה-PST שלך, ייתכן ותרצו להסיר את הקבצים המצורפים מהתיקייה הזו באופן אוטומטי לאחר השליחה. במאמר זה, אדון בנושא זה עבור Outlook.

הסרה אוטומטית של קבצים מצורפים לאחר שליחת הודעות דואר אלקטרוני מתיקיית הפריטים שנשלחו.

הסרה אוטומטית של קבצים מצורפים לאחר שליחת הודעות דואר אלקטרוני מתיקיית הפריטים שנשלחו.

הקוד VBA הבא יכול לעזור לכם למחוק אוטומטית את הקבצים המצורפים לאחר שליחת הודעות דואר אלקטרוני מתוך Outlook שלכם, אנא עשו כך:

1. החזיקו את המקשים "ALT" + "F11" כדי לפתוח את חלון "Microsoft Visual Basic for Applications".

2. בחלון "Microsoft Visual Basic for Applications", לחץ פעמיים על "ThisOutlookSession" מהחלונית "Project1(VbaProject.OTM)" כדי לפתוח את המצב, ולאחר מכן העתיקו והדביקו את הקוד הבא לתוך המודול הריק.

קוד VBA: הסרה אוטומטית של קבצים מצורפים לאחר שליחת הודעות דואר אלקטרוני מתיקיית הפריטים שנשלחו:

Public WithEvents SentMailItems As Outlook.Items
    Private Sub Application_Startup()
    Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
    End Sub
    Sub SentMailItems_ItemAdd(ByVal Item As Object)
    Dim xSentMail As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim xAttachmentInfo As String
    On Error Resume Next
    If Item.Class = olMail Then
       Set xSentMail = Item
    End If
    Set xAttachments = xSentMail.Attachments
    For i = xAttachments.Count To 1 Step -1
        Set xAttachment = xAttachments.Item(i)
        xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
                          "</BODY></HTML>" & vbCrLf & xAttachmentInfo
        xAttachment.Delete
    Next
    xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
                         xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
    xSentMail.Save
End Sub

the screenshot of step about using vba to automatically remove the attachments after emails sending from the sent items 1

3. לאחר הכנסת הקוד לעיל, אנא הפעילו מחדש את ה-Outlook שלכם כדי שהקוד יכנס לתוקף.

4. מעתה, כאשר תשלחו הודעות דואר אלקטרוני עם קבצים מצורפים, הקבצים המצורפים יוסרו אוטומטית מהתיקייה כפי שמוצג בסcreenshot הבא:

the screenshot of step about using vba to automatically remove the attachments after emails sending from the sent items 2

הערה: קוד זה זמין רק עבור חשבון הנתונים ברירת המחדל.

כלי הפרודוקטיביות הטובים ביותר ל-Office

חדשות חמות: Kutools עבור Outlook משיק גרסה חינמית!

התנסו בגרסה החינמית החדשה של Kutools עבור Outlook עם יותר מ-70 תכונות מדהימות, לשימושכם לתמיד! לחצו להורדה עכשיו!

🤖 Kutools AI : עושה שימוש בטכנולוגיית AI מתקדמת לניהול דואר אלקטרוני בקלות, כולל השבה, סיכום, אופטימיזציה, הרחבה, תרגום וכתיבת הודעות.

📧 אוטומציה של כתובת דואר אלקטרוני: תגובה אוטומטית (זמין עבור POP ו-IMAP) / תזמון שליחת כתובת דואר אלקטרוני / העתקה אוטומטית/עותק מוסתר לפי כלל בעת שליחת משלח אימייל / העברה אוטומטית (כלל מתקדם) / הוספת ברכה אוטומטית / פיצול אוטומטי של דואר אלקטרוני עם מספר נמענים להודעות נפרדות...

📨 ניהול כתובת דואר אלקטרוני: שלח מייל מחדש / חסום דואר אלקטרוני מזויף לפי נושא ואחרים / מחיקת דואר כפול / חיפוש מתקדם / ארגון תיקיות...

📁 קבצים מצורפים Pro: שמירה אצווה / פרידה אצווה / דחיסה אצווה / שמירה אוטומטית / נתק אוטומטית / דחיסה אוטומטית...

🌟 קסם הממשק: 😊עוד אימוגי יפים ומגניבים / קבלת תזכורת כאשר מגיע דואר אלקטרוני חשוב / מזעור Outlook במקום סגירה...

👍 פעולות בלחיצה אחת: השב לכולם עם קבצים מצורפים / דואר אלקטרוני נגד פישינג / 🕘הצגת אזור הזמן של השולח...

👩🏼‍🤝‍👩🏻 אנשי קשר ויומן: הוספת אנשי קשר מאצווה מתוך כתובת דואר אלקטרוני נבחרת / פיצול קבוצת אנשי קשר לקבוצות נפרדות / הסר תזכורת יומולדת...

פתחו מיד את Kutools עבור Outlook בלחיצה אחת. אל תחכו – הורידו עכשיו והגבירו את היעילות שלכם!

רשימת תכונות של Kutools עבור Outlook הורד גרסה חינמית שדרג לגרסה מקצועית