Bagaimana cara otomatis mengisi subjek email dengan nama lampiran di Outlook?
Bagi mereka yang terbiasa menggunakan nama lampiran sebagai subjek email di Outlook, mengetikkan nama lampiran secara manual di baris subjek setiap kali akan memakan waktu. Seperti yang ditunjukkan pada gif di bawah ini, jika Anda ingin mengisi baris subjek email dengan nama lampiran secara otomatis saat Anda memasukkan lampiran, metode VBA dalam tutorial ini akan membantu.
Secara otomatis mengisi subjek email dengan nama lampiran dengan kode VBA
Silakan jalankan kode VBA berikut untuk secara otomatis mengisi subjek email dengan nama lampiran yang disisipkan di Outlook.
1. Luncurkan Outlook Anda, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Proyek1 (Proyek Vb.OTM) > Objek Microsoft Outlook > Sesi Pandangan ini untuk membuka ThisOutlookSession (Kode) Editor.
3. Kemudian salin kode VBA berikut ke dalam ThisOutlookSession (Kode) Editor.
Kode VBA: Isi otomatis subjek email dengan nama lampiran
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Sekarang Anda perlu menyimpan kode dan memulai ulang Outlook.
5. Mulai sekarang, ketika Anda memasukkan lampiran di email yang belum diisi subjek, a Kutools untuk Outlook kotak dialog akan muncul menanyakan apakah Anda ingin menggunakan nama lampiran sebagai subjek, klik Yes .
Kemudian baris subjek akan diisi dengan nama lampiran yang disisipkan secara otomatis.
Catatan:
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.