Dacă doriți să lăsați Outlook să salveze automat toate atașamentele de la expeditorii ale căror adrese de e-mail se află într-un anumit domeniu, puteți citi acest articol. Aici vă vom prezenta o metodă rapidă.
Poate că toți angajații din compania dvs. folosesc adresele de e-mail care se află în același domeniu. Deoarece trimiteți frecvent e-mailuri cu diferite atașamente unul altuia, este posibil să doriți ca Outlook să salveze automat atașamentele de la astfel de e-mailuri. În acest caz, Outlook va fi solicitat să verifice automat domeniul expeditorului e-mailului și să salveze automat atașamentele. Acum, în cele ce urmează, vom împărtăși o bucată de cod VBA care este capabil să o realizeze cu ușurință fără efort.
Salvați automat toate atașamentele de la expeditori într-un anumit domeniu
- La început, rulați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
- Apoi, introduceți următorul cod într-un modul neutilizat.
Public WithEvents objInboxItems As Outlook.Items Private Sub Application_Startup() Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub objInboxItems_ItemAdd(ByVal Item As Object) Dim objMail As Outlook.MailItem Dim strSenderAddress As String Dim strSenderDomain Obttachold As String Dim As String Pam Attachment strFileName As String If Item.Class = olMail Then Set objMail = Item "Obține domeniul expeditorului strSenderAddress = objMail.SenderEmailAddress strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@")) "Schimbați la domeniul specific conform dvs. are nevoie dacă strSenderDomain = "datanumen.net" Apoi Dacă objMail.Attachments.Count > 0 Atunci pentru fiecare objAttachment În objMail.Attachments 'Schimbați calea folderului în care doriți să salvați atașamentele strFolderPath = "E:\Attachments\" strFileName = objMail.Subject & " " & Chr (45) & " " & objAttachment.FileName objAttachment.SaveAsFile strFolderPath & strFileName Next End If End If End If End Sub
- După aceea, restart Outlook pentru a activa această macrocomandă.
- De atunci, de fiecare dată când un e-mail primit ajunge în căsuța dvs. de e-mail, Outlook va verifica automat domeniul expeditorului. Dacă este același ca domeniul predefinit și conține atașamente, Outlook va salva automat atașamentele într-un folder local specific.
Nu deschideți niciodată atașamente de la expeditori în domenii necunoscute
Este recomandabil să nu aveți încredere și să descărcați cu ușurință atașamentele de la cele din domenii necunoscute. Se datorează faptului că acestea pot fi dotate cu malware sau viruși. Odată ce le deschideți, fișierul Outlook poate fi atacat. Cu alte cuvinte, este posibil să fiți supus corupției fișierelor Outlook. Pe vremea aceea, chiar Scanpst este incapabil să te ajute. Singura dumneavoastră stațiune este fie un instrument mai puternic, fie un serviciu specializat de recuperare PST.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com