Berikut cara untuk mencopy file yang ada di dalam email outlook ke folder tertentu secara otomatis dengan menggunakan script VBA :

1. Tekan Tombol Alt+F11, akan muncul jendela Microsoft Visual Basic of Applications
2. Buatlah sebuah module baru, dan copy script di bawah ini ke dalam module

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Note*: sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\" adalah lokasi folder yang dituju, silahkan ubah sesuai folder yang diinginkan

3. Pergi ke Mail dan klik Home > Rules > Manage Rules & Alerts, seperti berikut :

4. Klik New Rule di tab E-mail Rules, seperti berikut :

5. lalu pilih Apply rule on messages I receive dan Next

6. lalu Pilih kondisi yang diinginkan, kalau disini admin Next saja, dengan default kondisi semua email yang masuk di komputer admin akan tercopy.

7. lalu Pilih (1) Check run a script, (2) klik text a script dan (3) pilih script yang dibuat dan Next

8. Next kembali sampai Wizard terakhir

9. Pada Wizard Finish, (1) Masukan Nama Rule,(2) Pilih option lain jika diperlukan dan terakhir (3) Finish

Selamat mencoba, Terima kasih.