Kuinka tallentaa kaikki liitteet lähettäjiltä tietylle toimialueelle Outlook VBA: n kautta

Jos haluat antaa Outlookin tallentaa kaikki liitteet lähettäjiltä, ​​joiden sähköpostiosoitteet ovat tietyllä toimialueella, voit lukea tämän artikkelin. Tässä esitellään sinulle nopea menetelmä.

Ehkä kaikki yrityksesi henkilökunnat käyttävät sähköpostiosoitteita, jotka ovat samassa verkkotunnuksessa. Koska lähetät usein erilaisia ​​liitteitä sisältäviä sähköposteja toisilleen, saatat haluta Outlookin tallentavan liitteet automaattisesti tällaisista sähköposteista. Tällöin Outlookia vaaditaan tarkistamaan sähköpostin lähettäjän toimialue ja tallentamaan liitteet automaattisesti. Seuraavaksi jaamme osan VBA-koodista, joka pystyy toteuttamaan sen vaivattomasti.

Tallenna kaikki tietyn verkkotunnuksen lähettäjien liitteet automaattisesti

1. Suorita aluksi Outlook VBA -editori kohdan ”Kuinka suorittaa VBA-koodi Outlookissa".
2. Laita sitten seuraava koodi käyttämättömään moduuliin.

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. Käynnistä sen jälkeen Outlook uudelleen aktivoidaksesi tämän makron.
4. Siitä lähtien, aina kun saapuva sähköposti saapuu postilaatikkoosi, Outlook tarkistaa lähettäjän toimialueen automaattisesti. Jos se on sama kuin ennalta määritetty toimialue ja se sisältää liitteitä, Outlook tallentaa liitteet automaattisesti tiettyyn paikalliseen kansioon.

Älä koskaan avaa liitteitä lähettäjiltä tuntemattomissa verkkotunnuksissa

On suositeltavaa olla luottamatta ja lataamatta liitteitä tuntemattomilla verkkotunnuksilla olevilta. Se johtuu siitä, että heillä voi olla haittaohjelmia tai viruksia. Kun avaat ne, Outlook-tiedostoon voidaan hyökätä. Toisin sanoen saatat joutua Outlook-tiedostojen vioittumisen kohteeksi. Tuolloin jopa scanpst ei kykene auttamaan sinua. Ainoa lomakohteesi on joko tehokkaampi työkalu tai erikoistunut PST-palautuspalvelu.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korruptoitunut mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com