Sådan gemmes automatisk alle vedhæftede filer fra afsendere i et bestemt domæne via Outlook VBA

Hvis du vil lade Outlook automatisk gemme alle vedhæftede filer fra afsendere, hvis e-mail-adresser er i et bestemt domæne, kan du læse denne artikel. Her introducerer vi en hurtig metode til dig.

Måske bruger alle stabe i din virksomhed de e-mail-adresser, der er i samme domæne. Da du ofte sender e-mails med forskellige vedhæftede filer til hinanden, kan du muligvis ønske, at Outlook automatisk gemmer vedhæftede filer fra sådanne e-mails. I dette tilfælde vil Outlook blive bedt om automatisk at kontrollere e-mailens afsenderdomæne og automatisk gemme vedhæftede filer. Nu i det følgende vil vi dele et stykke VBA-kode, der er i stand til at realisere det uden besvær.

Gem automatisk alle vedhæftede filer fra afsendere i et specifikt domæne

1. Kør først Outlook VBA-editor i henhold til “Sådan køres VBA-kode i din Outlook".
2. Sæt derefter følgende kode i et ubrugt 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. Genstart derefter Outlook for at aktivere denne makro.
4. Siden da, hver gang når en indgående e-mail kommer ind i din indbakke, vil Outlook automatisk kontrollere afsenderdomænet. Hvis det er det samme som det foruddefinerede domæne, og det indeholder vedhæftede filer, gemmer Outlook vedhæftede filer automatisk i en bestemt lokal mappe.

Åbn aldrig vedhæftede filer fra afsendere i ukendte domæner

Det tilrådes ikke hurtigt at stole på og downloade vedhæftede filer fra dem i ukendte domæner. Det er fordi, at de kan være udstyret med malware eller vira. Når du åbner dem, kan Outlook-filen blive angrebet. Med andre ord kan du blive udsat for korruption i Outlook-filer. På det tidspunkt selv scanpst er ude af stand til at hjælpe dig. Din eneste udvej er enten et mere kraftfuldt værktøj eller en specialiseret PST-genopretningstjeneste.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com