Kaip automatiškai išsaugoti visus siuntėjų priedus konkrečiame domene naudojant „Outlook VBA“.

Jei norite leisti „Outlook“ automatiškai išsaugoti visus priedus iš siuntėjų, kurių el. pašto adresai yra konkrečiame domene, galite perskaityti šį straipsnį. Čia mes jums pristatysime greitą metodą.

Galbūt visi jūsų įmonės darbuotojai naudoja el. pašto adresus, esančius tame pačiame domene. Kadangi dažnai siunčiate el. laiškus su įvairiais priedais vienas kitam, galbūt norėsite, kad „Outlook“ automatiškai išsaugotų tokių el. laiškų priedus. Tokiu atveju „Outlook“ bus pareikalauta automatiškai patikrinti el. laiško siuntėjo domeną ir automatiškai išsaugoti priedus. Toliau mes pasidalinsime VBA kodo dalimi, kuri gali lengvai jį realizuoti.

Automatiškai išsaugokite visus siuntėjų priedus konkrečiame domene

1. Iš pradžių paleiskite „Outlook VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
2. Tada įdėkite šį kodą į nenaudojamą 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. Po to paleiskite „Outlook“ iš naujo, kad suaktyvintumėte šią makrokomandą.
4. Nuo tada kiekvieną kartą, kai gaunamas el. laiškas patenka į gautuosius, „Outlook“ automatiškai patikrins siuntėjo domeną. Jei jis yra toks pat kaip iš anksto nustatytas domenas ir jame yra priedų, „Outlook“ automatiškai išsaugos priedus konkrečiame vietiniame aplanke.

Niekada neatidarykite priedų iš siuntėjų nežinomuose domenuose

Patartina nepasitikėti ir neatsisiųsti priedų iš nežinomų domenų. Taip yra todėl, kad jie gali turėti kenkėjiškų programų ar virusų. Kai juos atidarysite, „Outlook“ failas gali būti užpultas. Kitaip tariant, „Outlook“ failai gali būti sugadinti. Tuo metu net scanpst negali jums padėti. Vienintelis jūsų pasirinkimas yra galingesnis įrankis arba specializuota PST atkūrimo paslauga.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com