Cara Mengisi Baris Subjek E-mel secara automatik dengan Nama Lampiran di Outlook

Adakah anda sering menggunakan nama lampiran sebagai subjek e-mel di Outlook? Sekiranya demikian, anda mesti berharap bahawa Outlook dapat menyelesaikannya secara automatik. Artikel ini akan memperkenalkan kaedah yang berguna untuk mewujudkannya dengan Outlook VBA.

Ramai pengguna terbiasa menaip nama lampiran secara manual dalam baris subjek e-mel. Dalam senario sedemikian, jika Outlook boleh melakukannya secara automatik, ia akan menjadi jauh lebih mudah. ​​Selain itu, sesetengah pengguna sering terlupa untuk mengisi baris subjek. Jadi, apabila menekan butang "Hantar", mereka akan menerima mesej amaran "tiada subjek". Dalam kes sedemikian, jika Outlook boleh mengisi subjek secara automatik dengan nama lampiran, mereka akan dapat mengelakkan amaran "tiada subjek" yang menjengkelkan. Secara ringkasnya, dipercayai bahawa ramai pengguna Outlook menginginkan kaedah sedemikian untuk membolehkan Outlook mengisi baris subjek e-mel secara automatik dengan nama lampiran. Mujurlah, dengan bantuan Outlook VBA, kita boleh mencapainya dengan sangat mudah. ​​Berikut adalah kod dan langkah VBA yang terperinci.

Isi Auto E-mel Baris Subjek dengan Nama Lampiran

1. Pertama sekali, anda boleh memulakan Outlook dan beralih ke tab "Pembangun".
2. Kemudian di bawah tab ini, anda harus mengklik butang "Visual Basic", yang akan mengeluarkan editor VBA.
3. Pada tetingkap berikutnya, anda harus terlebih dahulu mencari projek "ThisOutlookSession" dalam senarai projek di sebelah kanan.
4. Klik dua kali seterusnya untuk membuka projek ini. Dan kemudian salin kod 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. Selepas itu, anda perlu terus memberikan sijil digital untuk projek VBA semasa seperti biasa.

• Pertama, gunakan utiliti terbina dalam "Sijil Digital untuk Projek VBA" untuk menghasilkan sijil digital.
• Selepas itu, anda boleh menandatangani makro semasa.

6. Kelak keluar dari editor VBA dan ubah tetapan makro menjadi "Pemberitahuan untuk makro bertanda digital, semua makro lain dilumpuhkan".
7. Akhirnya anda boleh mencuba.

• Buat e-mel baru.
• Sekiranya anda belum mengisi subjek dan bermaksud melampirkan fail, anda akan menerima mesej, seperti gambar berikut:
• Apabila anda memilih "Ya", subjek akan diisi dengan nama lampiran sekaligus.

Mengatasi Masalah Outlook yang Kerap

Dengan syarat anda telah menggunakan Outlook selama beberapa dekad, anda pasti menghadapi banyak masalah Outlook. Lalu, tindakan apa yang biasanya anda lakukan ketika bertemu dengannya? Dianjurkan untuk mencari dan membasmi mereka secepat mungkin. Ini kerana masalah terkumpul dapat merosakkan data Outlook anda setiap saat. Oleh itu, walaupun Outlook dapat berfungsi seperti biasa, anda lebih baik menggunakan alat pembaikan peti masuk atau luaran Utiliti pembaikan ralat PST Outlook, seperti DataNumen Outlook Repair, untuk mengimbas fail PST anda untuk mengesan dan menyelesaikan kesilapan.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan rosak SQL Server pangkalan data dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com