Kuidas automaatselt salvestada kõik saatjate manused konkreetses domeenis Outlook VBA kaudu

Kui soovite lasta Outlookil automaatselt salvestada kõik manused saatjatelt, kelle meiliaadressid on kindlas domeenis, lugege seda artiklit. Siin tutvustame teile kiiret meetodit.

Võib-olla kasutavad kõik teie ettevõtte töötajad e-posti aadresse, mis asuvad samas domeenis. Kuna saadate üksteisele sageli erinevate manustega meile, võite soovida, et Outlook salvestaks selliste meilide manused automaatselt. Sel juhul nõutakse Outlookilt meili saatja domeeni automaatset kontrollimist ja manuste automaatset salvestamist. Järgnevalt jagame osa VBA-koodist, mis suudab selle hõlpsalt realiseerida.

Salvestage automaatselt kõik saatjate manused kindlas domeenis

1. Esmalt käivitage Outlook VBA redaktor vastavalt juhistele "Kuidas Outlookis VBA-koodi käivitada".
2. Seejärel sisestage järgmine kood kasutamata moodulisse.

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. Pärast seda restart Outlook selle makro aktiveerimiseks.
4. Sellest ajast alates kontrollib Outlook automaatselt saatja domeeni iga kord, kui sissetulev e-kiri teie postkasti jõuab. Kui see on sama mis eelmääratletud domeen ja sisaldab manuseid, salvestab Outlook manused automaatselt konkreetsesse kohalikku kausta.

Ärge kunagi avage tundmatute domeenide saatjate manuseid

Soovitatav on mitte kergesti usaldada ja tundmatute domeenide manuseid alla laadida. Põhjus on selles, et need võivad olla varustatud pahavara või viirustega. Pärast nende avamist võidakse Outlooki faili rünnata. Teisisõnu, teid võib Outlooki fail rikkuda. Tol ajal isegi scanpst ei saa teid aidata. Teie ainus abinõu on kas võimsam tööriist või spetsiaalne PST-taasteteenus.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom