Kako samodejno shraniti vse priloge pošiljateljev v določeni domeni prek programa Outlook VBA

Če želite, da Outlook samodejno shrani vse priloge pošiljateljev, katerih e-poštni naslovi so v določeni domeni, lahko preberete ta članek. Tukaj vam bomo predstavili hitro metodo.

Morda vsi uslužbenci v vašem podjetju uporabljajo e-poštne naslove, ki so v isti domeni. Ker si pogosto pošiljate e-poštna sporočila z različnimi prilogami, boste morda želeli, da Outlook samodejno shrani priloge iz takšnih e-poštnih sporočil. V tem primeru bo Outlook zahteval samodejno preverjanje domene pošiljatelja e-pošte in samodejno shranjevanje prilog. Zdaj bomo v nadaljevanju delili del kode VBA, ki jo bo z lahkoto uresničil.

Samodejno shrani vse priloge pošiljateljev v določeni domeni

1. Najprej zaženite urejevalnik Outlook VBA v skladu z “Kako zagnati kodo VBA v Outlooku".
2. Nato v neuporabljeni modul vstavite naslednjo kodo.

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. Po tem znova zaženite Outlook, da aktivirate ta makro.
4. Od takrat bo Outlook vsakič, ko dohodno e-poštno sporočilo pride v vašo mapo Prejeto, samodejno preveril domeno pošiljatelja. Če je ista kot vnaprej določena domena in vsebuje priloge, bo Outlook samodejno shranil priloge v določeno lokalno mapo.

Nikoli ne odpirajte prilog pošiljateljev v neznanih domenah

Priporočljivo je, da prilogam ne zaupate in jih ne prenašate iz neznanih domen. To je zato, ker so lahko obdarjeni z zlonamerno programsko opremo ali virusi. Ko jih enkrat odprete, lahko datoteko Outlook napadete. Z drugimi besedami, morda ste izpostavljeni korupciji datotek Outlook. Takrat celo scanpst vam ne more pomagati. Vaše edino letovišče je močnejše orodje ali specializirana storitev za obnovitev PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com