Hogyan lehet automatikusan menteni az összes mellékletet a feladóktól egy adott tartományban az Outlook VBA-n keresztül

Ha azt szeretné, hogy az Outlook automatikusan mentse az összes mellékletet azoktól a feladóktól, akiknek e-mail címe egy adott tartományban található, akkor elolvashatja ezt a cikket. Itt bemutatunk egy gyors módszert.

Lehetséges, hogy a vállalat minden munkatársa ugyanazt az e-mail-címet használja, amely ugyanabban a domainben található. Mivel Ön gyakran küld egymásnak különféle mellékleteket tartalmazó e-maileket, érdemes lehet, hogy az Outlook automatikusan mentse az ilyen e-mailek mellékleteit. Ebben az esetben az Outlooknak automatikusan ellenőriznie kell az e-mail küldőtartományát, és automatikusan mentenie kell a mellékleteket. A következőkben megosztunk egy VBA-kódot, amely könnyedén megvalósíthatja azt.

Automatikusan mentse a feladók összes mellékletét egy adott tartományban

1. Először futtassa az Outlook VBA szerkesztőt a „A VBA kód futtatása az Outlookban".
2. Ezután helyezze be a következő kódot egy nem használt modulba.

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. Ezt követően restart Outlook a makró aktiválásához.
4. Azóta minden alkalommal, amikor bejövő e-mail érkezik a postaládájába, az Outlook automatikusan ellenőrzi a feladó tartományát. Ha megegyezik az előre meghatározott tartománysal, és mellékleteket tartalmaz, az Outlook automatikusan menti a mellékleteket egy adott helyi mappába.

Soha ne nyissa meg az ismeretlen tartományban lévő feladóktól származó mellékleteket

Javasoljuk, hogy ne bízzon könnyen és ne töltse le a mellékleteket az ismeretlen tartományban lévőkről. Ez azért van, mert rosszindulatú programokkal vagy vírusokkal lehetnek felruházva. Miután megnyitotta őket, az Outlook fájlt megtámadhatják. Más szavakkal, előfordulhat, hogy az Outlook fájljai megsérülnek. Akkoriban még scanpst nem tud segíteni Önnek. Az egyetlen lehetőség egy erősebb eszköz vagy egy speciális PST helyreállítási szolgáltatás.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve korrupt mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com