Note: The other languages of the website are Google-translated. Back to English

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:

1) Jika Anda telah mengisi subjek, memasukkan lampiran tidak akan memunculkan kotak dialog.
2) Jika Anda menghapus subjek yang ada dari email saat ini tetapi kursor masih ditampilkan di baris subjek, memasukkan lampiran juga tidak akan memunculkan kotak dialog. Setelah menghapus subjek, Anda perlu mengklik dari baris subjek untuk menyegarkan kotak pesan agar kode berfungsi.
3) Jika Anda memasukkan beberapa lampiran sekaligus, hanya nama lampiran pertama yang dapat digunakan sebagai subjek email.

Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Добрый день. Apa yang harus dilakukan untuk mengetahui apakah Anda memiliki 2 ponsel dan apakah Anda ingin melakukannya? Apa yang ingin Anda lakukan atau apa yang harus dilakukan? Заранее спасибо
Komentar ini diminimalkan oleh moderator di situs
Hai Александр,

Apakah maksud Anda menambahkan beberapa lampiran sekaligus menambahkan nama lampiran tersebut pada saat yang sama ke subjek dan kemudian menautkannya dengan DAN?
Komentar ini diminimalkan oleh moderator di situs
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Komentar ini diminimalkan oleh moderator di situs
Ya, tentu saja. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Komentar ini diminimalkan oleh moderator di situs
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Komentar ini diminimalkan oleh moderator di situs
Hai Александр,

Kode VBA berikut dapat membantu menyelesaikan masalah Anda. Ayo cobalah.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL