Cum să salvați automat toate atașamentele de la expeditori într-un anumit domeniu prin Outlook VBA

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

1. La început, rulați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
2. 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 As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

3. După aceea, reporniți Outlook pentru a activa această macrocomandă.
4. 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