Жіберушілерден барлық тіркемелерді нақты доменде Outlook VBA арқылы қалай автоматты түрде сақтау керек

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Егер сіз Outlook бағдарламасына электрондық пошта мекен-жайы белгілі бір доменде болатын жіберушілерден барлық тіркемелерді автоматты түрде сақтауға мүмкіндік бергіңіз келсе, сіз осы мақаланы оқи аласыз. Мұнда біз сізге жылдам әдісті ұсынамыз.

Мүмкін сіздің компанияңыздағы барлық қызметкерлер бір домендегі электрондық пошта мекен-жайларын пайдаланады. Бір-біріне әртүрлі тіркемелері бар электрондық хаттарды жиі жіберетіндіктен, Outlook бағдарламасына тіркемелерді осындай хаттардан автоматты түрде сақтауын қалауыңыз мүмкін. Бұл жағдайда Outlook-тан электрондық пошта жіберуші доменін автоматты түрде тексеру және тіркемелерді автоматты түрде сақтау талап етіледі. Енді келесіде біз VBA кодының бір бөлігімен бөлісеміз, ол оны қиындықсыз жүзеге асыра алады.

Жіберушілерден барлық тіркемелерді нақты доменде автоматты түрде сақтау

  1. Алдымен Outlook VBA редакторын «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
  2. Содан кейін, келесі кодты пайдаланылмаған модульге салыңыз.
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

VBA коды - Жіберушілерден барлық тіркемелерді нақты доменде автоматты түрде сақтау

  1. Осыдан кейін, осы макросты белсендіру үшін Outlook бағдарламасын қайта іске қосыңыз.
  2. Содан бері, кіріс поштаңызға кіріс поштасы келген сайын, Outlook жіберуші доменін автоматты түрде тексеріп отырады. Егер ол алдын ала анықталған доменмен бірдей болса және онда тіркемелер болса, Outlook тіркемелерді белгілі бір жергілікті қалтаға автоматты түрде сақтайды.Автоматты түрде сақталған тіркеме

Белгісіз домендерде жіберушілерден ешқашан қосымшаларды ашпаңыз

Белгілі емес домендердегі тіркемелерге тез сеніп, жүктемеген жөн. Себебі олар зиянды бағдарламалармен немесе вирустармен қамтамасыз етілуі мүмкін. Оларды ашқаннан кейін Outlook файлына шабуыл жасалуы мүмкін. Басқаша айтқанда, сіз Outlook файлының бұзылуына ұшырауыңыз мүмкін. Сол кезде, тіпті Сканерлеу сізге көмектесе алмайды. Сіздің жалғыз курорт - неғұрлым қуатты құрал немесе мамандандырылған PST қалпына келтіру қызметі.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайлас MDF және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.