Cara Auto Mengambil Baris Pertama sebagai Subjek sebelum Menghantar E-mel Outlook tanpa Subjek

Sebilangan pengguna ingin Outlook secara automatik mengambil baris pertama badan e-mel sebagai subjek ketika menghantar e-mel yang tidak mempunyai subjek. Sekarang, dalam artikel ini, kami akan memperkenalkan kaedah untuk mewujudkannya melalui kod VBA.

Beberapa pengguna sering lupa memasukkan subjek semasa membuat dan menghantar e-mel. Oleh itu, biasanya, mereka berharap Outlook dapat mengisi subjek secara automatik dengan baris pertama badan e-mel jika e-mel yang keluar tidak mempunyai subjek. Selepas itu, kami akan berkongsi kaedah yang mudah dan berguna dengan anda.

Auto Ambil Baris Pertama sebagai Subjek sebelum Menghantar E-mel tanpa Subjek

1. Pada awalnya, lancarkan aplikasi Outlook.
2. Kemudian, dengan mengikuti langkah-langkah di “Cara Menjalankan Kod VBA di Outlook Anda", Anda boleh masuk ke editor VBA.
3. Seterusnya, dalam editor VBA, tambahkan rujukan ke "MS Word Object Library "sesuai dengan"Bagaimana Menambah Objek Library Rujukan dalam VBA".
4. Kemudian, salin kod di bawah ke dalam projek "ThisOutlookSession".

Private WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
       Inspector.CurrentItem.Subject = " "
    End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objMailSelection As Word.Selection
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       If Len(Trim(objMail.Subject)) = 0 Then
          If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
             Set objMailDocument = objMail.GetInspector.WordEditor
             Set objMailSelection = objMailDocument.Application.Selection
 
             objMailDocument.Range(0, 0).Select
             objMailSelection.MoveEnd wdLine
 
             'Take first line of body as subject
             objMail.Subject = objMailSelection.Text
          End If
       End If
     End If
End Sub

5. Selepas itu, masukkan kursor ke dalam "Application_Starsubrutin tup "dan tekan" F5 ".
6. Akhirnya, anda boleh mencuba.

• Pada mulanya, buat dan tulis e-mel dengan hanya subjek kosong.
• Kemudian, klik butang "Hantar".
• Kemudian, anda akan mendapat mesej yang bertanya sama ada mengambil bahagian pertama badan sebagai subjek.
• Selagi anda memilih butang "Ya", baris pertama badan e-mel akan diekstrak dan digunakan sebagai subjek dan e-mel akan dihantar.

Pastikan Data Outlook Anda Selamat

Sudah tentu, terdapat banyak e-mel penting dan item lain dalam Outlook anda. Oleh itu, anda pasti tidak mahu menemui kehilangan data Outlook. Kemudian, anda harus melakukan beberapa tindakan, seperti membuat sandaran data biasa dari Outlook anda, belajar menggunakan alat pembaikan bawaan untuk betulkan Outlook kesilapan dan menyediakan utiliti pemulihan luaran yang mantap. DataNumen Outlook Repair adalah pilihan yang baik kerana kadar pemulihan PSTnya yang tinggi.

Pengenalan Pengarang:

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