Cara Mengisi Baris Subjek Email Secara Otomatis dengan Nama Lampiran di Outlook

Apakah Anda sering menggunakan nama lampiran sebagai subjek email di Outlook? Jika demikian, Anda pasti berharap Outlook dapat menyelesaikannya secara otomatis. Artikel ini akan memperkenalkan metode praktis untuk mewujudkannya dengan Outlook VBA.

Banyak pengguna terbiasa mengetik nama lampiran secara manual di baris subjek email. Dalam skenario seperti itu, jika Outlook dapat melakukannya secara otomatis, akan jauh lebih nyaman. Selain itu, beberapa pengguna sering lupa mengisi baris subjek. Jadi, saat menekan tombol "Kirim", mereka akan menerima pesan peringatan "tidak ada subjek". Dalam kasus seperti itu, jika Outlook dapat secara otomatis mengisi subjek dengan nama lampiran, mereka akan dapat menghindari peringatan "tidak ada subjek" yang menjengkelkan. Singkatnya, diyakini bahwa banyak pengguna Outlook mendambakan metode seperti itu untuk memungkinkan Outlook mengisi baris subjek email secara otomatis dengan nama lampiran. Untungnya, dengan bantuan Outlook VBA, kita dapat mencapainya dengan sangat mudah. ​​Berikut adalah kode dan langkah-langkah VBA yang lebih rinci.

Isi Otomatis Baris Subjek Email dengan Nama Lampiran

1. Pertama-tama, Anda dapat membuka Outlook dan beralih ke tab "Pengembang".
2. Kemudian di bawah tab ini, Anda harus mengklik tombol "Visual Basic", yang akan menampilkan editor VBA.
3. Di jendela berikutnya, Anda harus terlebih dahulu menemukan proyek "ThisOutlookSession" dalam daftar proyek di sisi kanan.
4. Klik dua kali berikutnya untuk membuka proyek ini. Dan kemudian salin kode berikut ke dalamnya.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Setelah itu, Anda perlu terus menetapkan sertifikat digital ke proyek VBA saat ini seperti biasa.

• Pertama, gunakan utilitas bawaan "Sertifikat Digital untuk Proyek VBA" untuk menghasilkan sertifikat digital.
• Selanjutnya, Anda dapat menandatangani makro saat ini.

6. Kemudian keluar dari editor VBA dan ubah pengaturan makro ke "Pemberitahuan untuk makro yang ditandatangani secara digital, semua makro lainnya dinonaktifkan".
7. Akhirnya Anda bisa mencobanya.

• Buat email baru.
• Jika Anda belum mengisi subjek dan berniat melampirkan file, Anda akan menerima pesan, seperti gambar berikut:
• Jika Anda memilih "Ya", subjek akan langsung diisi dengan nama lampiran.

Atasi Masalah Outlook yang Sering Terjadi

Asalkan Anda telah menggunakan Outlook selama beberapa dekade, Anda pasti mengalami banyak masalah Outlook. Lalu, tindakan apa yang biasanya Anda lakukan saat bertemu dengan mereka? Disarankan untuk mencari tahu dan memberantasnya secepat mungkin. Itu karena masalah yang terakumulasi dapat merusak data Outlook Anda kapan saja. Oleh karena itu, meskipun Outlook dapat berfungsi seperti biasa, Anda sebaiknya menerapkan alat perbaikan kotak masuk atau eksternal Utilitas perbaikan kesalahan Outlook PSTseperti DataNumen Outlook Repair, untuk memindai file PST Anda guna mendeteksi dan mengatasi kesalahan.

Pengantar Penulis:

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