Cara Otomatis Menyimpan Semua Lampiran dari Pengirim di Domain Tertentu melalui Outlook VBA

Jika Anda ingin mengizinkan Outlook menyimpan semua lampiran secara otomatis dari pengirim yang alamat emailnya berada di domain tertentu, Anda dapat membaca artikel ini. Di sini kami akan memperkenalkan metode cepat kepada Anda.

Mungkin semua staf di perusahaan Anda menggunakan alamat email yang ada di domain yang sama. Karena Anda sering mengirim email dengan berbagai lampiran satu sama lain, Anda mungkin ingin Outlook menyimpan lampiran secara otomatis dari email tersebut. Dalam kasus ini, Outlook akan diminta untuk memeriksa domain pengirim email secara otomatis dan menyimpan lampiran secara otomatis. Sekarang, berikut ini, kami akan membagikan sepotong kode VBA yang dapat mewujudkannya dengan mudah.

Simpan Otomatis Semua Lampiran dari Pengirim di Domain Tertentu

1. Pertama-tama, jalankan editor Outlook VBA menurut "Cara Menjalankan Kode VBA di Outlook Anda".
2. Kemudian, masukkan kode berikut ke dalam modul yang tidak digunakan.

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. Setelah itu restart Outlook untuk mengaktifkan makro ini.
4. Sejak itu, setiap kali email masuk masuk ke kotak masuk Anda, Outlook akan otomatis memeriksa domain pengirim. Jika sama dengan domain standar dan berisi lampiran, Outlook akan menyimpan lampiran secara otomatis ke folder lokal tertentu.

Jangan Pernah Buka Lampiran dari Pengirim di Domain Tidak Dikenal

Dianjurkan untuk tidak begitu saja mempercayai dan mengunduh lampiran dari domain yang tidak dikenal. Itu karena mereka mungkin diberkahi dengan malware atau virus. Setelah Anda membukanya, file Outlook mungkin diserang. Dengan kata lain, Anda mungkin mengalami kerusakan file Outlook. Bahkan pada saat itu scanpst tidak mampu membantu Anda. Satu-satunya pilihan Anda adalah alat yang lebih kuat atau layanan pemulihan PST khusus.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf korup dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com