Cum să dezactivațizip .Zip Atașamente Direct în Outlook prin VBA

Când primiți un atașament în „.zip”, dacă doriți să anulațizip ei, în general, ar trebui să le salvați și să anulațizip le în unitate locală. Dar mulți speră să nuzip direct în Outlook. Acest articol vă va învăța cum să îl obțineți prin VBA.

Trebuie să fi primit vreodată atașamentele care sunt în „.zip” extensie de fișier. Pentru a accesa fișierele interne într-unul singur zip fișier, trebuie mai întâi să anulațizip aceasta. În acest caz, ca de obicei, mai întâi trebuie să salvați zip fișierul pe unitatea locală, apoi faceți clic dreapta pe el și selectați „Extract All” din meniul contextual. În realitate, mulți utilizatori preferă să anulezezip fișierul direct în Outlook. Cu toate acestea, Outlook nu oferă o astfel de caracteristică nativă. Din fericire, puteți urma pașii de mai jos pentru a utiliza VBA pentru a realiza acest lucru ca o briză.

Unzip .Zip Atașamente Direct în Outlook prin VBA

Unzip .Zip Atașamente direct în Outlook

  1. În primul rând, lansați aplicația Outlook.
  2. Apoi apăsați comanda rapidă a tastei „Alt + F11” în fereastra Outlook pentru a accesa editorul VBA.
  3. Apoi, în fereastra „Microsoft Visual Basic for Applications”, deschideți un modul care nu este utilizat.
  4. Ulterior, copiați și lipiți următoarele coduri VBA în acest modul.
Public Sub UnzipFileInOutlook() Dim objMail As Outlook.MailItem Dim objAttachments As Outlook.attachments Dim objAttachment As Outlook.Attachment Dim objShell As Object Dim objFileSystem As Object Dim strTempFolder As String Dim strFilePath As String Dim str =FileNameOutlook.ActiveMail Inspect. CurrentItem Set objAttachments = objMail.attachments „Salvare și dezactivarezip il zip fișier în unitatea locală Set objShell = CreateObject("Shell.Application") Set objFileSystem = CreateObject("Scripting.FileSystemObject") strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Acum, "yy-mm" -dd-hh-mm-ss") MkDir (strTempFolder) Pentru fiecare objAttachment în objAttachments If Right(objAttachment.FileName, 3) = "zip" Apoi, strFilePath = strTempFolder & "\" & objAttachment.FileName objAttachment.SaveAsFile (strFilePath) objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath the Next the extras from the Next file)). zip fișier strFileName = Dir(strTempFolder & "\") În timp ce Len(strFileName) > 0 objMail.attachments.Add (strTempFolder & "\" & strFileName) strFileName = Dir objMail.Save Wend 'Șterge atașamentele în „.zip” Extensie de fișier Set objAttachments = objMail.attachments Pentru fiecare objAttachment În objAttachments If Right(objAttachment.FileName, 3) = "zip" Apoi objAttachment.Delete objMail.Save End If Next 'Șterge folderul temporar și fișierele objFileSystem.DeleteFolder (strTempFolder) End Sub

Cod VBA - Unzip .Zip Atașamente direct în Outlook

  1. După aceea, puteți adăuga noul proiect VBA la bara de instrumente Acces rapid a ferestrei de mesaje, ca de obicei.
  2. În sfârșit, puteți încerca.
  • Mai întâi, deschideți un mesaj cu zip fișier în propria fereastră.
  • Apoi faceți clic pe „Acțiuni” > „Editați mesajul”.
  • Apoi faceți clic pe butonul macro nou din Bara de instrumente Acces rapid.
  • Deodată, cel zip fișierul va fi anulatzipped, cum ar fi următoarea captură de ecran:Unzip Fișier

Scăpați de problemele PST enervante

Deși fișierul PST în noul format Unicode acceptă dimensiunea fișierului de 20 GB, este totuși înțelept să păstrați fișierul cât mai mic posibil. Se datorează faptului că un fișier PST mare este mult mai predispus la corupție. Odată ce fișierul dvs. PST este compromis, va trebui să faceți eforturi recuperați PST date. În acest scenariu, nu aveți de ales decât să recurgeți la un instrument bine dovedit și de renume, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparație sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

2 răspunsuri la „Cum să unzip .Zip Atașamente direct în Outlook prin VBA”

  1. Bună, Vă mulțumim că faceți aceste instrucțiuni atât de ușor de înțeles! Totuși, primesc un mesaj de eroare când încerc să finalizez acțiunea prin bara de acces rapid. Se va atașa o secundă.zip folderul către e-mail (nu unul cu documente extrase) și apare o fereastră care spune „Eroare de rulare „-2147221239 (80040109) Funcția nu poate fi efectuată deoarece mesajul s-a schimbat”. Când dau clic pe „Depanare”, evidențiază „objMail.Save” sub „Reatașați fișierele extrase din zip secțiunea fișier”. Vă rog să-mi spuneți dacă pot face ceva pentru a remedia acest lucru. Mulțumesc!

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *