Como assumir automaticamente a primeira linha do corpo como assunto antes de enviar um e-mail do Outlook sem assunto

Alguns usuários desejam que o Outlook assuma automaticamente a primeira linha do corpo do e-mail como assunto ao enviar um e-mail sem assunto. Agora, neste artigo, apresentaremos um método para realizá-lo via código VBA.

Vários usuários frequentemente se esquecem de inserir o assunto ao redigir e enviar um e-mail. Assim, geralmente, eles esperam que o Outlook possa preencher automaticamente o assunto na primeira linha do corpo do e-mail se o e-mail enviado não tiver assunto. A seguir, compartilharemos um método fácil e prático com você.

Assuma automaticamente a primeira linha do corpo como assunto antes de enviar um e-mail sem assunto

1. No início, inicie o aplicativo Outlook.
2. Em seguida, seguindo as etapas em “Como executar o código VBA no seu Outlook“, você pode entrar no editor VBA.
3. Em seguida, no editor VBA, adicione a referência a “MS Word Object Library” de acordo com “Como adicionar uma biblioteca de objetosrary Referência em VBA".
4. Posteriormente, copie o código abaixo para o projeto “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. Depois disso, coloque o cursor em “Application_Starsub-rotina tup” e pressione “F5”.
6. Finalmente, você pode tentar.

• Primeiro, crie e escreva um e-mail apenas com o assunto em branco.
• Em seguida, clique no botão “Enviar”.
• Mais tarde, você receberá uma mensagem perguntando se deseja usar a primeira linha do corpo como assunto.
• Contanto que você selecione o botão “Sim”, a primeira linha do corpo do e-mail será extraída e usada como assunto e o e-mail será enviado.

Mantenha seus dados do Outlook seguros

Com certeza, existem vários e-mails importantes e outros itens em seu Outlook. Portanto, você não deve estar disposto a se deparar com a perda de dados do Outlook. Em seguida, você deve realizar algumas ações, como fazer backups regulares dos dados do Outlook, aprender a usar a ferramenta de reparo embutida para corrigir Outlook erros e preparando um utilitário de recuperação externo robusto. DataNumen Outlook Repair é uma boa escolha devido à sua alta taxa de recuperação PST.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperação sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com