Ako automaticky ukladať všetky prílohy od odosielateľov v konkrétnej doméne prostredníctvom programu Outlook VBA

Ak chcete aplikácii Outlook umožniť automatické ukladanie všetkých príloh od odosielateľov, ktorých e-mailové adresy sú v konkrétnej doméne, môžete si prečítať tento článok. Tu vám predstavíme rýchlu metódu.

Možno všetci zamestnanci vo vašej spoločnosti používajú e-mailové adresy, ktoré sú v rovnakej doméne. Pretože si navzájom často posielate e-maily s rôznymi prílohami, môžete si v Outlooku priať automatické ukladanie príloh z týchto e-mailov. V takom prípade bude program Outlook požiadaný o automatickú kontrolu domény odosielateľa e-mailu a automatické ukladanie príloh. Teraz, v nasledujúcich častiach, budeme zdieľať časť kódu VBA, ktorá je schopná ho ľahko realizovať.

Automatické ukladanie všetkých príloh od odosielateľov v konkrétnej doméne

1. Najskôr spustite editor Outlook VBA podľa „Ako spustiť kód VBA v programe Outlook".
2. Potom vložte nasledujúci kód do nepoužívaného modulu.

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. Potom reštartujte Outlook, aby ste toto makro aktivovali.
4. Odvtedy Outlook vždy, keď sa do vašej doručenej pošty dostane prichádzajúci e-mail, Outlook automaticky skontroluje doménu odosielateľa. Ak je rovnaká ako preddefinovaná doména a obsahuje prílohy, program Outlook automaticky uloží prílohy do konkrétneho lokálneho priečinka.

Nikdy neotvárajte prílohy od odosielateľov v neznámych doménach

Odporúča sa, aby ste ľahko nedôverovali a nestiahli prílohy z tých, ktoré sú v neznámych doménach. Je to tak preto, lebo môžu prísť obdarení malvérom alebo vírusmi. Po ich otvorení môže byť súbor programu Outlook napadnutý. Inými slovami, môže dôjsť k poškodeniu súborov programu Outlook. V tom čase dokonca Scanpst nie je schopný vám pomôcť. Vaše jediné riešenie je buď silnejší nástroj, alebo špecializovaná služba obnovy PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S