Jak automatycznie zapisywać wszystkie załączniki od nadawców w określonej domenie za pośrednictwem programu Outlook VBA

Jeśli chcesz, aby program Outlook automatycznie zapisywał wszystkie załączniki od nadawców, których adresy e-mail znajdują się w określonej domenie, możesz przeczytać ten artykuł. Tutaj przedstawimy ci szybką metodę.

Być może wszyscy pracownicy w Twojej firmie używają adresów e-mail w tej samej domenie. Ponieważ często wysyłasz do siebie wiadomości e-mail z różnymi załącznikami, możesz chcieć, aby Outlook automatycznie zapisywał załączniki z takich wiadomości e-mail. W takim przypadku program Outlook zostanie poproszony o automatyczne sprawdzenie domeny nadawcy wiadomości e-mail i automatyczne zapisywanie załączników. Teraz, w dalszej części, udostępnimy fragment kodu VBA, który jest w stanie zrealizować go z łatwością.

Automatycznie zapisuj wszystkie załączniki od nadawców w określonej domenie

1. Najpierw uruchom edytor VBA programu Outlook zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie umieść następujący kod w nieużywanym module.

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. Następnie uruchom ponownie program Outlook, aby aktywować tę makroinstrukcję.
4. Od tego czasu za każdym razem, gdy przychodząca wiadomość e-mail dotrze do Twojej skrzynki odbiorczej, program Outlook automatycznie sprawdzi domenę nadawcy. Jeśli jest taka sama jak wstępnie zdefiniowana domena i zawiera załączniki, program Outlook automatycznie zapisze załączniki w określonym folderze lokalnym.

Nigdy nie otwieraj załączników od nadawców w nieznanych domenach

Wskazane jest, aby nie ufać łatwo i nie pobierać załączników z tych w nieznanych domenach. Dzieje się tak, ponieważ mogą być wyposażone w złośliwe oprogramowanie lub wirusy. Po ich otwarciu plik programu Outlook może zostać zaatakowany. Innymi słowy, możesz podlegać uszkodzeniu plików programu Outlook. Nawet wtedy skanpst nie jest w stanie Ci pomóc. Jedynym ośrodkiem jest albo potężniejsze narzędzie, albo wyspecjalizowana usługa odzyskiwania plików PST.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com