Kako automatski sačuvati sve priloge pošiljalaca u određenoj domeni putem Outlook VBA

Ako želite da dozvolite da Outlook automatski sprema sve priloge pošiljalaca čije su adrese e-pošte na određenoj domeni, možete pročitati ovaj članak. Ovdje ćemo vam predstaviti brzu metodu.

Možda svi zaposleni u vašoj kompaniji koriste adrese e-pošte koje su na istom domenu. Budući da često šaljete e-poruke s različitim prilozima jedni drugima, možda biste željeli da Outlook automatski sprema priloge iz takvih e-poruka. U ovom slučaju, Outlook će biti zatražen da automatski provjeri domenu pošiljaoca e-pošte i automatski sačuva priloge. Sada ćemo u nastavku podijeliti dio VBA koda koji je u stanju da ga realizuje sa lakoćom.

Automatski sačuvaj sve priloge pošiljalaca u određenoj domeni

1. Prvo, pokrenite Outlook VBA editor prema “Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim stavite sljedeći kod u neiskorišteni modul.

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. Nakon toga, reztart Outlook da aktivirate ovaj makro.
4. Od tada, svaki put kada dolazna e-pošta stigne u vašu pristiglu poštu, Outlook će automatski provjeriti domenu pošiljaoca. Ako je isti kao unaprijed definirana domena i sadrži priloge, Outlook će automatski spremiti priloge u određenu lokalnu mapu.

Nikada ne otvarajte priloge pošiljalaca na nepoznatim domenima

Preporučljivo je da ne vjerujete i preuzimate priloge s onih na nepoznatim domenima. To je zato što mogu doći sa zlonamjernim softverom ili virusima. Kada ih otvorite, Outlook datoteka može biti napadnuta. Drugim riječima, možda ćete biti podložni oštećenju Outlook datoteke. U to vreme čak scanpst nije u stanju da vam pomogne. Vaše jedino mjesto je ili moćniji alat ili specijalizirana usluga oporavka PST-a.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući corrupt mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com