Ja esat pieradis noņemt e-pasta ziņojumu pielikumus pēc to izsūtīšanas, varat izmantot šajā rakstā aprakstīto metodi, kas izmanto Outlook VBA, lai palīdzētu jums tos automātiski iegūt.
Tā kā izejošo e-pasta pielikumi parasti tiek glabāti jūsu personālajā datorā, pēc e-pasta ziņojumu nosūtīšanas, iespējams, esat pieradis dzēst pielikumus. Tādējādi jūsu PST fails saglabāsies mazā izmērā, kas var ne tikai nodrošināt labu jūsu Outlook veiktspēju, bet arī samazināt PST bojāšanas iespējamību. Tāpēc, ja vēlaties ļaut programmai Outlook automātiski dzēst izejošo e-pasta pielikumus, varat izmantot šādu metodi, kurā tiek lietoti VBA kodi.
Automātiski noņemiet e-pasta pielikumus pēc tā nosūtīšanas
- Pašā sākumā palaidiet programmu Outlook.
- Pēc tam nospiediet taustiņu saīsnes “Alt + F11”.
- Tālāk jūs nokļūsit Outlook VBA redaktorā.
- Pēc tam jums vajadzētu atvērt projekta logu “ThisOutlookSession”.
- Tad nokopējiet un ielīmējiet tajā šādus VBA kodus.
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
- Pēc tam jums vajadzētu parakstīt šo kodu.
- Pirmkārt, izmantojiet digitālos sertifikātus VBA projektiem, lai izveidotu sertifikātu.
- Pēc tam piešķiriet šo sertifikātu jaunajam makro. Noklikšķiniet uz “Rīki” > “Paraksts” un pēc tam vienkārši izpildiet ekrānā redzamos norādījumus.
- Vēlāk varat atgriezties galvenajā Outlook logā un cilnē “Izstrādātājs” noklikšķināt uz “Makro drošība”.
- Pēc tam uznirstošajā dialoglodziņā mainiet makro iestatījumus, lai atļautu ciparparakstu makro.
- Visbeidzot, restartējiet programmu Outlook, lai aktivizētu jauno VBA projektu.
- Turpmāk katru reizi, kad nosūtāt e-pasta ziņojumu, tā pielikumi tiks automātiski dzēsti, piemēram, šāds ekrānuzņēmums:
Atrisiniet Outlook problēmas laikā
Tas ir neapšaubāms fakts, ka programma Outlook ir pakļauta kļūdām. Tāpēc, ja vēlaties aizsargāt savus Outlook datus no zudumiem vai sabojāšanas, jums ir jāpieliek daudz pūļu, tostarp regulāri jāveido datu dublējumkopijas un jāuztur stabila Outlook labojums rīks tuvumā, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar