Как автоматично да вземете първия ред на тялото като тема, преди да изпратите имейл в Outlook без тема

Някои потребители искат Outlook автоматично да приема първия ред на тялото на имейла като тема, когато изпраща имейл, който няма тема. Сега в тази статия ще представим метод за реализирането му чрез VBA код.

Множество потребители често забравят да въведат тема, когато съставят и изпращат имейл. По този начин обикновено те се надяват, че Outlook може автоматично да запълни темата от първия ред на тялото на имейла, ако изходящият имейл няма тема. По-нататък ще споделим лесен и удобен метод с вас.

Автоматично вземете първия ред на тялото като тема, преди да изпратите имейл без тема

1. В самото начало стартирайте приложението Outlook.
2. След това, като следвате стъпките в „Как да стартирате VBA код във вашия Outlook“, Можете да влезете в редактора на VBA.
3. След това, в редактора на VBA, добавете препратката към „MS Word Object Library “в съответствие с„Как да добавите Lib на обектrary Справка във VBA".
4. По-късно копирайте кода по-долу в проекта “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. След това поставете курсора в „Application_Startup “и натиснете„ F5 “.
6. И накрая, можете да опитате.

• Отначало създайте и съставете имейл с празна само тема.
• След това щракнете върху бутона „Изпрати“.
• По-късно ще получите съобщение с въпрос дали да вземете първия ред на тялото като тема.
• Докато изберете бутона „Да“, първият ред от тялото на имейла ще бъде извлечен и използван като тема и имейлът ще бъде изпратен.

Пазете данните си в Outlook в безопасност

Абсолютно, има много важни имейли и други елементи във вашия Outlook. По този начин трябва да не желаете да попаднете на загуба на данни в Outlook. След това трябва да предприемете някои действия, като например да правите редовни архиви на данни на вашия Outlook, да се научите да използвате вградения инструмент за ремонт, за да поправете Outlook грешки и подготвяне на стабилна външна помощна програма за възстановяване. DataNumen Outlook Repair е добър избор поради високата си степен на възстановяване на PST.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com