Jak automaticky ukládat všechny přílohy od odesílatelů v konkrétní doméně prostřednictvím aplikace Outlook VBA

Pokud chcete, aby Outlook automaticky ukládal všechny přílohy od odesílatelů, jejichž e-mailové adresy jsou v konkrétní doméně, můžete si přečíst tento článek. Zde vám představíme rychlou metodu.

Možná všichni zaměstnanci ve vaší společnosti používají e-mailové adresy, které jsou ve stejné doméně. Vzhledem k tomu, že si často navzájem posíláte e-maily s různými přílohami, můžete si přát, aby aplikace Outlook automaticky ukládala přílohy z těchto e-mailů. V takovém případě bude aplikace Outlook vyžadována k automatické kontrole domény odesílatele e-mailu a automatickému ukládání příloh. Nyní v následujících částech sdílíme část kódu VBA, která je schopna jej snadno realizovat.

Automatické ukládání všech příloh od odesílatelů v konkrétní doméně

1. Nejprve spusťte editor Outlook VBA podle „Jak spustit kód VBA ve vašem Outlooku".
2. Poté vložte následující 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. Poté restartujte Outlook, abyste toto makro aktivovali.
4. Od té doby Outlook pokaždé, když se do vaší doručené pošty dostane příchozí e-mail, Outlook automaticky zkontroluje doménu odesílatele. Pokud je stejná jako předdefinovaná doména a obsahuje přílohy, Outlook automaticky uloží přílohy do konkrétní místní složky.

Nikdy neotvírejte přílohy od odesílatelů v neznámých doménách

Doporučuje se nevěřit a nestahovat přílohy z neznámých domén. Je to proto, že mohou přijít obdařeni malwarem nebo viry. Jakmile je otevřete, může být soubor aplikace Outlook napaden. Jinými slovy může dojít k poškození souboru aplikace Outlook. V té době dokonce scanpst není schopen vám pomoci. Jedinou možností je buď výkonnější nástroj, nebo specializovaná služba pro obnovení PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkorumpovaný mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com