Konu Olmadan Bir Outlook E-postası Göndermeden Önce Gövdenin İlk Satırını Konu Olarak Otomatik Olarak Alma

Bazı kullanıcılar, Outlook'un konusu olmayan bir e-posta gönderirken otomatik olarak e-posta gövdesinin ilk satırını konu olarak almasını ister. Şimdi bu yazımızda VBA kodu ile gerçekleştirmek için bir yöntem tanıtacağız.

Birden çok kullanıcı, bir e-posta oluştururken ve gönderirken konuyu girmeyi sık sık unutur. Bu nedenle, genellikle, giden e-postanın konusu yoksa, Outlook'un konuyu e-posta gövdesinin ilk satırına göre otomatik olarak doldurabileceğini umarlar. Bundan sonra sizlerle kolay ve kullanışlı bir yöntem paylaşacağız.

Konusuz bir E-posta Göndermeden Önce Gövdenin İlk Satırını Otomatik Olarak Konu Olarak Al

1. En başta, Outlook uygulamasını başlatın.
2. Ardından, “ bölümündeki adımları izleyerekOutlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?“, VBA editörüne girebilirsiniz.
3. Ardından, VBA düzenleyicide "MS Word Object Lib" referansını ekleyin.rary” uyarınca “Nesne Kitaplığı Nasıl Eklenir?rary VBA'da Referans".
4. Daha sonra aşağıdaki kodu “ThisOutlookSession” projesine kopyalayın.

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. Bundan sonra, imleci “Application_Startup” alt programını seçin ve “F5”e basın.
6. Son olarak, bir deneyebilirsiniz.

• İlk başta, yalnızca konusu boş olan bir e-posta oluşturun ve oluşturun.
• Ardından, "Gönder" düğmesini tıklayın.
• Daha sonra, gövdenin ilk satırını konu olarak alıp almayacağınızı soran bir mesaj alacaksınız.
• “Evet” düğmesini seçtiğiniz sürece, e-posta gövdesinin ilk satırı çıkarılacak ve konu olarak kullanılacak ve e-posta gönderilecektir.

Outlook Verilerinizi Güvende Tutun

Kesinlikle, Outlook'unuzda birden çok önemli e-posta ve başka öğe var. Bu nedenle, Outlook veri kaybıyla karşılaşmak istememelisiniz. Ardından, Outlook'unuzun düzenli veri yedeklemelerini yapmak, yerleşik onarım aracını kullanmayı öğrenmek gibi bazı işlemler yapmanız gerekir. Outlook'u düzelt hatalar ve sağlam bir harici kurtarma yardımcı programı hazırlama. DataNumen Outlook Repair yüksek PST kurtarma oranı nedeniyle iyi bir seçimdir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com