E-postalar gönderildikten sonra Gönderilen Öğeler klasöründen ekleri otomatik olarak nasıl kaldırabilirim?

Bazı eklerle e-posta gönderdiğinizde, bu ekler varsayılan olarak e-postalarla birlikte Gönderilen Öğeler klasörüne kaydedilir. PST dosyanızın boyutunu küçültmek için e-postalar gönderildikten sonra ekleri Gönderilen Öğeler klasöründen otomatik olarak kaldırmak isteyebilirsiniz. Bu makalede, Outlook’ta bu işlemi nasıl gerçekleştirebileceğinizi adım adım anlatacağım.

E-postalar gönderildikten sonra Gönderilen Öğeler'den ekleri otomatik olarak kaldırma

---

E-postalar gönderildikten sonra Gönderilen Öğeler'dan ekleri otomatik olarak kaldırma

Aşağıdaki VBA kodu, Outlook’tan e-posta gönderdikten sonra ekleri otomatik olarak silmenize yardımcı olur. Lütfen aşağıdaki adımları uygulayın:

1 "ALT" tuşunu basılı tutun ve "F11" tuşuna basın; böylece "Microsoft Visual Basic for Applications" penceresi açılacak.

2. "Microsoft Visual Basic for Applications" penceresinde, "Project1 (VbaProject.OTM)" bölmesindeki "ThisOutlookSession" öğesine çift tıklayarak modülü açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: E-postalar gönderildikten sonra Gönderilen Öğeler'den ekleri otomatik olarak kaldırma:

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

3. Yukarıdaki kodu ekledikten sonra, etkinleşmesi için lütfen Outlook’u yeniden başlatın.

4. Bundan sonra, ekli e-posta gönderdiğinizde ekler, aşağıdaki ekran görüntüsünde gösterildiği gibi Gönderilen Öğeler'den otomatik olarak silinir:

Not: Bu kod yalnızca varsayılan veri hesabınızda kullanılabilir.