Sut i gael gwared ar yr atodiadau yn awtomatig ar ôl e-byst yn anfon o'r eitemau a anfonwyd?

Wrth anfon e-bost gyda rhai atodiadau, bydd yr atodiadau yn cael eu storio gyda'r e-byst i'r ffolder eitemau a anfonir yn ddiofyn. Er mwyn lleihau maint eich ffeil PST, efallai yr hoffech chi dynnu'r atodiadau o'r eitemau a anfonwyd yn awtomatig ar ôl anfon e-byst. Yr erthygl hon, byddaf yn siarad am y dasg hon yn Outlook.

Tynnwch yr atodiadau yn awtomatig ar ôl anfon e-byst o'r eitemau a anfonwyd

Tynnwch yr atodiadau yn awtomatig ar ôl anfon e-byst o'r eitemau a anfonwyd

Gall y cod VBA canlynol eich helpu chi i ddileu'r atodiadau yn awtomatig ar ôl e-byst sy'n anfon o'ch Outlook, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Tynnwch atodiadau yn awtomatig ar ôl anfon e-byst o'r eitemau a anfonwyd:

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. Ar ôl mewnosod y cod uchod, ailgychwynwch eich Camre i sicrhau bod y cod yn dod i rym.

4. O hyn ymlaen, pan fyddwch yn anfon e-byst gydag atodiadau, bydd yr atodiadau'n cael eu dileu'n awtomatig o'r eitemau a anfonwyd fel y dangosir y llun a ganlyn: