Gönderilen öğelerden e-postalar gönderildikten sonra ekler otomatik olarak nasıl kaldırılır?

Bazı eklerle e-posta gönderirken, ekler varsayılan olarak e-postalarla birlikte gönderilen öğeler klasöründe saklanacaktır. PST dosyanızın boyutunu küçültmek için, e-postalar gönderildikten sonra ekleri gönderilen öğelerden otomatik olarak kaldırmak isteyebilirsiniz. Bu yazıda Outlook'ta bu görevden bahsedeceğim.

Gönderilen öğelerden e-postalar gönderildikten sonra ekleri otomatik olarak kaldırın

Gönderilen öğelerden e-postalar gönderildikten sonra ekleri otomatik olarak kaldırın

Aşağıdaki VBA kodu, Outlook'tan e-postalar gönderdikten sonra ekleri otomatik olarak silmenize yardımcı olabilir, lütfen şu şekilde yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA kodu: Gönderilen öğelerden e-postalar gönderildikten sonra ekleri otomatik olarak kaldırın:

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