Belirli Bir Etki Alanındaki Göndericilerden Gelen Tüm Ekleri Outlook VBA Aracılığıyla Otomatik Olarak Kaydetme

Outlook'un, e-posta adresleri belirli bir etki alanında bulunan gönderenlerden gelen tüm ekleri otomatik olarak kaydetmesine izin vermek istiyorsanız, bu makaleyi okuyabilirsiniz. Burada size hızlı bir yöntem tanıtacağız.

Belki de şirketinizdeki tüm personel aynı etki alanındaki e-posta adreslerini kullanıyor. Birbirinize sık sık çeşitli ekleri olan e-postalar gönderdiğiniz için, Outlook'un bu tür e-postalardaki ekleri otomatik olarak kaydetmesini isteyebilirsiniz. Bu durumda, Outlook'tan e-postanın gönderici etki alanını otomatik olarak kontrol etmesi ve ekleri otomatik olarak kaydetmesi istenecektir. Şimdi, aşağıda, onu zahmetsizce gerçekleştirebilen bir VBA kodu parçası paylaşacağız.

Belirli Bir Etki Alanındaki Göndericilerden Gelen Tüm Ekleri Otomatik Olarak Kaydet

1. İlk başta, Outlook VBA düzenleyicisini “ göre çalıştırın.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, aşağıdaki kodu kullanılmayan bir modüle yerleştirin.

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. Ardından, bu makroyu etkinleştirmek için Outlook'u yeniden başlatın.
4. O zamandan beri, gelen kutunuza her e-posta geldiğinde, Outlook gönderen etki alanını otomatik olarak kontrol edecektir. Önceden tanımlanmış etki alanıyla aynıysa ve ekler içeriyorsa, Outlook ekleri otomatik olarak belirli yerel klasöre kaydeder.

Bilinmeyen Etki Alanlarındaki Gönderenlerden Gelen Ekleri Asla Açmayın

Bilinmeyen etki alanlarındaki eklere kolayca güvenmemeniz ve indirmemeniz önerilir. Bunun nedeni, kötü amaçlı yazılım veya virüslerle donatılmış olarak gelmeleridir. Bunları açtığınızda, Outlook dosyası saldırıya uğrayabilir. Başka bir deyişle, Outlook dosya bozulmasına maruz kalabilirsiniz. Hatta o zamanlar Tarama size yardım etmekten acizdir. Tek çareniz ya daha güçlü bir araç ya da özel bir PST kurtarma hizmetidir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com