Apakah Anda sering perlu melampirkan file tertentu saat mengirim email tertentu di Outlook? Jika demikian, Anda mungkin merasa bosan untuk menambahkannya secara manual setiap kali. Artikel ini akan mengajari Anda metode cepat untuk mencapainya dengan Outlook VBA.
Dalam pekerjaan sehari-hari, saya sering diminta untuk melampirkan file tertentu saat mengirim email tertentu. Misalnya, setiap minggu, saya harus mengirim email ke atasan saya untuk melaporkan pekerjaan mingguan saya. Di email ini, saya perlu melampirkan beberapa file tertentu, termasuk log pekerjaan, beberapa laporan statistik data, dan sebagainya. Saya biasanya memperbarui file ini setiap minggu. Di masa lalu, saya biasanya pertama-tama membuat badan pesan dan kemudian menambahkan file-file ini secara manual. Namun, saat ini, saya menemukan trik yang lebih cerdas. Itu menggunakan Outlook VBA untuk mengotomatiskannya. Jika Anda memiliki persyaratan serupa, baca terus untuk mempelajari kode VBA beton dan pengoperasian terperinci.
Lampirkan Otomatis File Tertentu Saat Mengirim Email Tertentu
- Sebagai langkah awal, buka Outlook dan masuk ke tab “Pengembang”.
- Kemudian Anda dapat menemukan dan mengklik tombol "Visual Basic", yang akan segera membuka jendela editor VBA.
- Di jendela berikutnya, Anda harus mengklik dua kali proyek "ThisOutlookSession" di daftar proyek sisi kiri.
- Selanjutnya Anda harus menyalin dan menempelkan kode VBA berikut ke dalamnya.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Setelah itu, Anda akan diminta untuk menetapkan sertifikat digital ke proyek baru.
- Pertama klik tombol "Alat" di toolbar dan pilih "Tanda Tangan Digital".
- Kemudian di kotak dialog "Tanda Tangan Digital" popup, tekan tombol "Pilih",
- Selanjutnya, Anda dapat memilih sertifikat yang ada.
- Terakhir, klik serangkaian "OK" untuk menetapkannya dengan sukses.
- Nanti Anda harus mengubah pengaturan makro untuk mengizinkan makro yang ditandatangani secara digital.
- Akhirnya Anda bisa mencobanya.
- Saat Anda mengklik "Kirim" untuk mengirim email tertentu yang berisi kata-kata tertentu dalam subjek atau dikirim ke kontak tertentu, Anda akan melihat kotak pesan, seperti gambar di bawah.
- Setelah itu, Anda bisa mengecek email yang dikirim. Anda pasti akan menemukan file preset yang dilampirkan di email terkirim.
Jangan Pernah Tunda Memperbaiki Kesalahan Outlook
Terkadang, meskipun Anda menemukan pesan kesalahan di Outlook, setelah Anda menutup pesan tersebut, Anda mungkin masih bisa terus bekerja. Namun sebenarnya itu bukanlah tindakan yang disarankan. Apa yang harus Anda lakukan adalah menghilangkannya sesegera mungkin alih-alih menyisihkannya. Masalah yang menumpuk akan mengakibatkan crash yang serius. Jika Outlook Anda rusak, data Outlook PST Anda akan berisiko. Kamu harus tahu itu data Outlook PST rusak agak rumit. Saat itu, Anda tidak punya pilihan selain menggunakan alat perbaikan yang berpengalaman dan memiliki reputasi, seperti DataNumen Outlook Repair.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan rusak SQL Server fillet dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com