Как да запазите автоматично всички прикачени файлове от податели в определен домейн чрез Outlook VBA

Ако искате да позволите на Outlook автоматично да запазва всички прикачени файлове от подателите, чиито имейл адреси са в определен домейн, можете да прочетете тази статия. Тук ще ви представим бърз метод.

Може би всички служители във вашата компания използват имейл адресите, които са в същия домейн. Тъй като често си изпращате имейли с различни прикачени файлове, може да пожелаете на Outlook автоматично да запазва прикачените файлове от такива имейли. В този случай от Outlook ще се изисква автоматично да проверява домейна на подателя на имейла и автоматично да запазва прикачените файлове. Сега, по-долу, ще споделим част от кода на VBA, която е в състояние да го реализира с лекота.

Автоматично запазване на всички прикачени файлове от податели в определен домейн

1. Отначало стартирайте редактора на Outlook VBA според „Как да стартирате VBA код във вашия Outlook".
2. След това поставете следния код в неизползван модул.

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. След това, резtart Outlook, за да активирате този макрос.
4. Оттогава всеки път, когато входящ имейл попадне във входящата ви поща, Outlook ще проверява автоматично домейна на подателя. Ако е същият като предварително дефинирания домейн и съдържа прикачени файлове, Outlook автоматично ще запази прикачените файлове в конкретна локална папка.

Никога не отваряйте прикачени файлове от податели в непознати домейни

Препоръчително е да не се доверявате лесно и да не изтегляте прикачените файлове от тези в неизвестни домейни. Това е така, защото те могат да бъдат надарени със злонамерен софтуер или вируси. След като ги отворите, файлът на Outlook може да бъде атакуван. С други думи, може да сте обект на повреда на файлове на Outlook. По това време дори scanpst не е в състояние да ви помогне. Единственият ви курорт е или по-мощен инструмент, или специализирана услуга за възстановяване на PST.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително корумпиран mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com