Outlook VBA vasitəsilə xüsusi bir domendəki göndəricilərdən bütün əlavələri avtomatik olaraq necə saxlamaq olar

Outlook-a e-poçt ünvanları müəyyən bir domendə olan göndərənlərin bütün qoşmalarını avtomatik saxlamağa icazə vermək istəyirsinizsə, bu məqaləni oxuya bilərsiniz. Burada sizə sürətli bir üsul təqdim edəcəyik.

Yəqin ki, şirkətinizdəki bütün işçilər eyni domendə olan e-poçt ünvanlarından istifadə edirlər. Siz tez-tez bir-birinizə müxtəlif qoşmalarla e-poçt göndərdiyiniz üçün, Outlook-un bu cür e-poçtlardan əlavələri avtomatik saxlamasını istəyə bilərsiniz. Bu halda, Outlook-dan e-poçtun göndərici domenini avtomatik yoxlamaq və əlavələri avtomatik saxlamaq tələb olunacaq. İndi, aşağıdakılarda, onu asanlıqla həyata keçirə bilən VBA kodunun bir hissəsini paylaşacağıq.

Xüsusi Domendəki Göndərənlərdən Bütün Əlavələri Avtomatik Saxla

1. Əvvəlcə “Outlook VBA redaktorunu işə salın”Outlook-da VBA kodunu necə işlətmək olar".
2. Sonra aşağıdakı kodu istifadə olunmamış modula qoyun.

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. Bundan sonra, bu makronu aktivləşdirmək üçün Outlook-u yenidən başladın.
4. O vaxtdan bəri, hər dəfə gələn e-poçt gələnlər qutunuza daxil olduqda, Outlook avtomatik olaraq göndərən domenini yoxlayacaq. Əgər o, əvvəlcədən təyin edilmiş domenlə eynidirsə və onda qoşmalar varsa, Outlook əlavələri avtomatik olaraq xüsusi yerli qovluğa saxlayacaq.

Naməlum Domenlərdə Göndərənlərdən gələn qoşmaları heç vaxt açmayın

Naməlum domenlərdə olan qoşmalara asanlıqla etibar etməmək və yükləməmək məsləhətdir. Çünki onlar zərərli proqram və ya viruslarla təchiz oluna bilər. Onları açdıqdan sonra Outlook faylı hücuma məruz qala bilər. Başqa sözlə, Outlook faylının korlanmasına məruz qala bilərsiniz. O vaxt hətta scanpst sizə kömək etmək iqtidarında deyil. Yeganə kurortunuz ya daha güclü alət, ya da ixtisaslaşmış PST bərpa xidmətidir.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com