Så här sparar du automatiskt alla bilagor från avsändare i en viss domän via Outlook VBA

Om du vill låta Outlook spara alla bilagor automatiskt från avsändarna vars e-postadresser finns i en viss domän kan du läsa den här artikeln. Här introducerar vi en snabb metod för dig.

Kanske alla staber i ditt företag använder e-postadresserna inom samma domän. Eftersom du ofta skickar e-postmeddelanden med olika bilagor till varandra kanske du vill att Outlook automatiskt sparar bilagorna från sådana e-postmeddelanden. I detta fall kommer Outlook att kräva att automatiskt kontrollera e-postens avsändardomän och spara bilagor automatiskt. Nu, i det följande, kommer vi att dela en bit VBA-kod som kan förverkliga den utan problem.

Spara alla bilagor automatiskt från avsändare på en specifik domän

1. Kör först Outlook VBA-redigeraren enligt “Hur du kör VBA-kod i din Outlook".
2. Lägg sedan följande kod i en oanvänd 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. Starta sedan om Outlook för att aktivera makrot.
4. Sedan dess kontrollerar Outlook automatiskt avsändardomän varje gång när ett inkommande e-postmeddelande kommer in i din inkorg. Om den är densamma som den fördefinierade domänen och den innehåller bilagor, sparar Outlook bilagorna automatiskt i en specifik lokal mapp.

Öppna aldrig bilagor från avsändare i okända domäner

Det är tillrådligt att inte lita på och ladda ner bifogade filer enkelt från okända domäner. Det beror på att de kan vara utrustade med skadlig kod eller virus. När du har öppnat dem kan Outlook-filen attackeras. Med andra ord kan du utsättas för korruption i Outlook-filer. Vid den tiden, till och med Scanpst är oförmögen att hjälpa dig. Din enda utväg är antingen ett kraftfullare verktyg eller en specialiserad PST-återställningstjänst.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupt mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com