Hoe u automatisch alle bijlagen van afzenders in een specifiek domein kunt opslaan via Outlook VBA

Als u wilt dat Outlook automatisch alle bijlagen opslaat van de afzenders wiens e-mailadressen zich in een specifiek domein bevinden, kunt u dit artikel lezen. Hier zullen we een snelle methode aan u introduceren.

Misschien gebruiken alle personeelsleden in uw bedrijf de e-mailadressen die zich in hetzelfde domein bevinden. Aangezien u regelmatig e-mails met verschillende bijlagen naar elkaar verzendt, wilt u misschien dat Outlook de bijlagen van dergelijke e-mails automatisch opslaat. In dit geval wordt Outlook gevraagd om automatisch het afzenderdomein van de e-mail te controleren en bijlagen automatisch op te slaan. Nu, in het volgende, zullen we een stuk VBA-code delen waarmee we dit moeiteloos kunnen realiseren.

Bewaar automatisch alle bijlagen van afzenders in een specifiek domein

1. Voer eerst de Outlook VBA-editor uit volgens “Hoe u VBA-code in uw Outlook uitvoert'.
2. Plaats vervolgens de volgende code in een ongebruikte 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. Start Outlook daarna opnieuw op om deze macro te activeren.
4. Sindsdien controleert Outlook automatisch het afzenderdomein wanneer er een inkomende e-mail in uw inbox komt. Als het hetzelfde is als het vooraf gedefinieerde domein en het bevat bijlagen, slaat Outlook de bijlagen automatisch op in een specifieke lokale map.

Open nooit bijlagen van afzenders in onbekende domeinen

Het is raadzaam om de bijlagen niet gemakkelijk te vertrouwen en te downloaden van degenen in onbekende domeinen. Het is omdat ze kunnen worden bedeeld met malware of virussen. Zodra u ze opent, kan het Outlook-bestand worden aangevallen. Met andere woorden, u kunt mogelijk beschadigd raken door Outlook-bestanden. Op dat moment zelfs scanpst is niet in staat u te helpen. Uw enige toevlucht is een krachtiger hulpmiddel of een gespecialiseerde PST-herstelservice.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com