كيف يمكنني حذف المرفقات تلقائيًا بعد إرسال البريد الإلكتروني من العناصر المرسلة؟

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