Si të ruani automatikisht të gjitha bashkëngjitjet nga dërguesit në një domen specifik përmes Outlook VBA

Nëse dëshironi të lejoni që Outlook të ruajë automatikisht të gjitha bashkëngjitjet nga dërguesit, adresat e emailit të të cilëve janë në një domen të caktuar, mund ta lexoni këtë artikull. Këtu do t'ju prezantojmë një metodë të shpejtë.

Ndoshta të gjithë stafi në kompaninë tuaj përdorin adresat e emailit që janë në të njëjtin domen. Meqenëse i dërgoni shpesh email-e me bashkëngjitje të ndryshme njëri-tjetrit, mund të dëshironi që Outlook t'i ruajë automatikisht bashkëngjitjet nga email-e të tilla. Në këtë rast, Outlook do t'i kërkohet të kontrollojë automatikisht domenin e dërguesit të emailit dhe të ruajë automatikisht bashkëngjitjet. Tani, në vijim, ne do të ndajmë një pjesë të kodit VBA që është në gjendje ta realizojë atë me lehtësi.

Ruaj automatikisht të gjitha bashkëngjitjet nga dërguesit në një domen specifik

1. Në fillim, ekzekutoni redaktorin VBA të Outlook sipas "Si të ekzekutoni kodin VBA në Outlook tuaj".
2. Pastaj vendosni kodin e mëposhtëm në një modul të papërdorur.

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. Pas kësaj, rinisni Outlook-un për të aktivizuar këtë makro.
4. Që atëherë, çdo herë kur një email në hyrje futet në kutinë tuaj hyrëse, Outlook do të kontrollojë automatikisht domenin e dërguesit. Nëse është i njëjtë me domenin e paracaktuar dhe përmban bashkëngjitje, Outlook do t'i ruajë automatikisht bashkëngjitjet në dosje specifike lokale.

Asnjëherë mos hapni bashkëngjitjet nga dërguesit në domene të panjohura

Këshillohet që të mos besoni dhe të shkarkoni bashkëngjitjet nga ato në domene të panjohura. Kjo është për shkak se ata mund të jenë të pajisur me malware ose viruse. Pasi t'i hapni ato, skedari Outlook mund të sulmohet. Me fjalë të tjera, ju mund të jeni subjekt i korruptimit të skedarit të Outlook. Madje në atë kohë scanpst nuk është në gjendje t'ju ndihmojë. Vendpushimi juaj i vetëm është ose një mjet më i fuqishëm ose një shërbim i specializuar për rikuperimin e PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë mdf i korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com