Əgər e-poçt əlavələrini göndərdikdən sonra onları silməyə vərdiş etmisinizsə, onu avtomatik əldə etməyinizə kömək etmək üçün Outlook VBA-dan istifadə edən bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.
Gedən e-poçtların qoşmaları adətən şəxsi kompüterinizdə saxlandığından, siz e-poçtları göndərdikdən sonra qoşmaları silmək üçün istifadə oluna bilərsiniz. Bu, PST faylınızı kiçik ölçüdə saxlayacaq ki, bu da yalnız Outlook-un yaxşı işləməsini təmin etməklə yanaşı, PST-nin pozulması ehtimalını da azalda bilər. Buna görə də, Outlook-a gedən e-poçtların qoşmalarını avtomatik olaraq silməsinə icazə vermək istəyirsinizsə, VBA kodlarını tətbiq edən aşağıdakı üsuldan istifadə edə bilərsiniz.
E-poçtu Göndərdikdən sonra Əlavələri Avtomatik Silin
- Ən başlanğıcda Outlook proqramınızı işə salın.
- Sonra "Alt + F11" qısa yollarını basın.
- Sonra Outlook VBA redaktoruna daxil olacaqsınız.
- Daha sonra “ThisOutlookSession” layihə pəncərəsini açmalısınız.
- Sonra aşağıdakı VBA kodlarını kopyalayıb ona yapışdırın.
Public WithEvents objSentMails As Outlook.Items
Private Sub Application_Startup()
Set objSentMails = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
Dim objSentMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim i As Long
Dim strAttachmentInfo As String
'Only work on emails
If Item.Class = olMail Then
Set objSentMail = Item
End If
Set objAttachments = objSentMail.attachments
While objAttachments.Count > 0
'Get the information of removed attachments
strAttachmentInfo = "<HTML><BODY>Attachment Removed: " & objAttachments.Item(1).DisplayName & "</HTML></BODY>---------------------------------------------------------" & strAttachmentInfo
objAttachments.Item(1).Delete
Wend
'Insert the information of removed attachments to the body
objSentMail.HTMLBody = strAttachmentInfo & objSentMail.HTMLBody
objSentMail.Save
End Sub
- Bundan sonra bu kodu imzalamalısınız.
- Birincisi, sertifikat yaratmaq üçün VBA Layihələri üçün Rəqəmsal Sertifikatlardan istifadə edin.
- Sonra bu sertifikatı yeni makroya təyin edin. “Alətlər” > “İmza” üzərinə klikləyin və ekrandakı təlimatları izləyin.
- Daha sonra əsas Outlook pəncərəsinə qayıda və "Developer" sekmesinde "Makro Təhlükəsizlik" düyməsini vura bilərsiniz.
- Sonra açılan informasiya qutusunda rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərini dəyişdirin.
- Nəhayət, yeni VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başladın.
- Bundan sonra, siz hər dəfə e-poçt göndərdiyiniz zaman onun qoşmaları aşağıdakı ekran görüntüsü kimi avtomatik olaraq silinəcək:
Outlook məsələlərini vaxtında həll edin
Outlook-un səhvlərə meylli olduğu şübhəsiz bir həqiqətdir. Buna görə də, Outlook məlumatlarınızı itkidən və ya korlanmadan qorumaq istəyirsinizsə, müntəzəm məlumatların ehtiyat nüsxəsini çıxarmaq və etibarlı məlumat saxlamaq da daxil olmaqla çox səy göstərməlisiniz. Outlook düzəlişi kimi yaxınlıqdakı alət DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com