Kako automatski spremiti sve privitke pošiljatelja u određenoj domeni putem programa Outlook VBA

Ako želite dopustiti Outlooku da automatski sprema sve privitke pošiljatelja čije su adrese e-pošte u određenoj domeni, možete pročitati ovaj članak. Ovdje ćemo vam predstaviti brzu metodu.

Možda svi zaposlenici u vašoj tvrtki koriste adrese e-pošte koje su u istoj domeni. Budući da često jedni drugima šaljete e-poruke s raznim privicima, možda biste željeli da Outlook automatski sprema privitke iz takvih e-poruka. U tom slučaju, Outlook će morati automatski provjeriti domenu pošiljatelja e-pošte i automatski spremiti privitke. Sada, u nastavku, podijelit ćemo dio VBA koda koji ga može realizirati s lakoćom bez napora.

Automatsko spremanje svih privitaka pošiljatelja u određenoj domeni

1. Najprije pokrenite Outlook VBA uređivač 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 ponovno pokrenite Outlook da biste aktivirali 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šiljatelja. Ako je ista kao unaprijed definirana domena i sadrži privitke, Outlook će automatski spremiti privitke u određenu lokalnu mapu.

Nikada ne otvarajte privitke pošiljatelja s nepoznatih domena

Preporučljivo je da ne vjerujete lako i preuzimate privitke od onih u nepoznatim domenama. To je zato što mogu doći obdareni zlonamjernim softverom ili virusima. Nakon što ih otvorite, Outlook datoteka može biti napadnuta. Drugim riječima, mogli biste biti izloženi oštećenju Outlook datoteke. U to vrijeme čak scanpst nije u stanju pomoći vam. Vaše jedino rješenje je ili moćniji alat ili specijalizirana usluga za oporavak PST-a.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com