Ja jums ir jānosūta vairāki attēli kā pielikumi kādam, ja šie attēli ir pārāk lieli, iespējams, vēlēsities saspiest attēlu pielikumus. Tātad, šajā rakstā mēs iemācīsim jums 3 noderīgus līdzekļus, lai to realizētu.
Kā mēs visi zinām, lielo e-pastu izsūtīšana programmā Outlook parasti prasa ilgāku laiku. Piemēram, ja mēģināt nosūtīt e-pastu ar vairākiem lieliem attēlu pielikumiem, jūs atradīsit, ka attēls ir iestrēdzis mapē Izsūtne un programma Outlook ir diezgan gausa. Lai atrisinātu šo problēmu, varat saspiest attēlu pielikumus. Tātad, šeit mēs ieviesīsim 3 pieejas, lai to sasniegtu.
1. metode: Mainiet izmēru, izmantojot “Sūtīt uz pasta adresātu”
Ja vēlaties saspiest attēlus tieši pirms to pievienošanas Outlook e-pastam, varat izmantot šo metodi.
- Par kātart mapē Windows atlasiet pievienojamos attēlus.
- Pēc tam ar peles labo pogu noklikšķiniet uz tiem un konteksta izvēlnē atlasiet opciju Sūtīt uz> Pasta saņēmējs.
- Pēc tam uznirstošajā dialoglodziņā “Pievienot failus” mainiet “Attēla izmērs” pēc saviem ieskatiem.
- Visbeidzot, noklikšķiniet uz pogas Pievienot.
- Uzreiz parādīsies jauns pasts, kurā ir pievienoti saspiestie attēli.
Metode 2: Zip Visi attēlu pielikumi pēc pievienošanas
Ja esat pievienojis attēlus e-pastam un vēlaties tos saspiest tūlīt, varat tos vienkārši saspiest zip failu. Šeit ir detalizētas darbības.
- Pirmkārt, paturiet atvērtu pašreizējo e-pastu.
- Pēc tam nospiediet “Alt + F11”, lai aktivizētu Outlook VBA redaktoru.
- Pēc tam ievietojiet šādu kodu modulī.
Saskaņā ar ZipImageAttachments () Dim objMail As Outlook.MailItem Dim objAttachments As Outlook. Pielikumi Dim objAttachment As Outlook. Pielikums Dim i As Long Dim objFileSystem As Object Dim objShell As Object Dim varTempFolder As Variant Dim varZipFails kā variants Iestatiet objFileSystem = CreateObject ("Scripting.FileSystemObject") varTempFolder = objFileSystem.GetSpecialFolder (2) .Path & "\ Temp" & Format (Now, "dd-mm-yyyy- hh-mm-ss-") MkDir [varTempFolder] varTempFolder = varTempFolder & "\" Set objMail = Outlook.Application.ActiveInspector.currentItem Set objAttachments = objMail.Attachments For i = objAttachments.Count to 1 Step -1 Set objAttachment = objAttachments (i) If IsEmbedded (objAtt Nepatiesa, tad atlasiet Lieta LCase (objFileSystem.GetExtensionName (objAttachment.FileName)) Lieta "jpg", "jpeg", "png", "bmp", "gif" objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName) objAttachment. Beigt Ja Nākamais varZipFile = objFileSystem.GetSpecialFolder (2) .Path & "\ Images.zip"Atvērt variantuZipFails izvadei kā # 1 Drukāt # 1, Chr $ (80) & Chr $ (75) & Chr $ (5) & Chr $ (6) & virkni (18, 0) Aizvērt # 1 Iestatīt objShell = CreateObject ("Shell .Application ") objShell.NameSpace (varZipFails) .Copy Here objShell.NameSpace (varTempFolder). Kļūdā esošie vienumi Atsākt Nākamā darbība līdz ObjShell.NameSpace (varZipFails) .Items.Count = objShell.NameSpace (varTempFolder) .Items.Count Application.Wait (Now + TimeValue ("0:00:01")) Cilpa uz kļūdu GoTo 0 objMail.Attachments.Add varZipFaila beigu apakšfunkcija IsEmbedded (objCurrentAttachment As Outlook.Attachment) kā Boolean Dim objPropertyAccessor kā Outlook.PropertyAccessor Dim strProperty kā virkne Iestatiet objPropertyAccessor = objCurrentAttachment.PropertyAccessor strProperty = objPropertyAccessor.GetProperty (" / 0x3712001E ") Ja InStr (1, strProperty," @ ")> 0, tad IsEmbedded = True Else IsEmbedded = Nepatiesa beigu funkcija, ja beigu funkcija
- Pēc tam nospiediet taustiņu “F5”.
- Kad makro ir pabeigts, atgriezieties e-pasta logā.
- Jūs redzēsiet, ka visi attēlu pielikumi ir pārveidoti par zip failu, kā parādīts nākamajā ekrānuzņēmumā.
3. metode ： Automātiski mainīt izmērus pirms e-pasta sūtīšanas
Ja jūs nevēlaties tos saspiest zip, varat konfigurēt programmu Outlook, lai pirms sūtīšanas automātiski mainītu lielu attēlu lielumu.
- Vispirms pašreizējā vēstulē labajā augšējā stūrī noklikšķiniet uz “Fails”.
- Pēc tam cilnē “Informācija” atlasiet “Mainīt lielu attēlu izmēru, kad es sūtu šo ziņojumu”.
- Galu galā vienkārši atgriezieties pie ziņojuma un turpiniet to rakstīt pēc vēlēšanās.
- Noklikšķinot uz “Sūtīt”, programma Outlook automātiski saspiedīs attēlus.
- Kad tas ir izsūtīts, varat to pārbaudīt mapē “Nosūtītie vienumi”. Attēlu izmēri ir mazāki nekā iepriekš.
Labot bojātu Outlook PST failu
Kā mēs visi zinām, jo lielāks ir jūsu Outlook PST fails, jo vieglāk ir bojāt Outlook failu. Tāpēc ir svarīgi, lai Outlook datu fails vienmēr būtu mazs. To var realizēt, izdzēšot bezjēdzīgus pielikumus, arhivējot nevajadzīgus priekšmetus un tā tālāk. Turklāt, lai nodrošinātu savlaicīgu glābšanu, jums ir jāsaņemas spēcīgs PST labojums rīks, piemēram, DataNumen Outlook Repair. Tas var palīdzēt jums viegli novērst apdraudēto PST failu.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar