Como inserir automaticamente a data ou hora atual no assunto ou corpo do e-mail com o Outlook VBA

Muitos usuários estão acostumados a inserir a data ou hora atual no assunto ou no corpo do e-mail ao redigir um novo e-mail. Este artigo ensinará como alcançá-lo rapidamente.

no p anteriorost - "Como adicionar automaticamente a data atual aos assuntos de seus e-mails do Outlook”, você pode aprender como adicionar automaticamente a data ou hora atual ao assunto. Mas o método naquele post é simplesmente criar uma forma personalizada de mensagem. Dessa forma, toda vez que você quiser criar um novo e-mail com a data ou hora atual no assunto, deverá escolher o formulário personalizado em vez de criar um novo e-mail como de costume. Obviamente, será bastante complicado.

Na verdade, o Outlook já nos ofereceu um campo nativo para inserir data ou hora. Além disso, você pode aplicar o Outlook VBA para inserir automaticamente a data ou hora atual no corpo ou assunto do novo e-mail. Quanto ao método que você seleciona, depende de quantas vezes você precisa inserir a data ou a hora.

Inserir manualmente pelo campo "Data e hora"

1. Para% start com, inicie o Outlook.
2. Em seguida, crie uma nova mensagem clicando no botão “Novo e-mail” no grupo “Novo” na guia “Página inicial”.
3. Posteriormente, na janela Nova mensagem, você pode clicar no corpo do e-mail e ir para a guia “Inserir”.
4. Em seguida, você pode encontrar e clicar no campo "Data e hora" no grupo "Texto".
5. Depois disso, uma nova caixa de diálogo aparecerá. Você pode escolher um formato disponível e clicar no botão “OK”.
6. Após retornar à janela da mensagem, você poderá ver a data ou hora atual no corpo do e-mail. Por padrão, o Outlook não permite que você aplique o campo “Data e hora” ao assunto.
7. Portanto, finalmente, se você deseja inserir a data ou hora no assunto, deve copiá-los do corpo e colá-los no assunto manualmente.

Este método é mais recomendado se você raramente precisar inserir a data ou hora atual. Mas, desde que você precise inserir com frequência ou sempre, é melhor usar os seguintes códigos VBA para obtê-lo automaticamente.

Inserção Automática com Outlook VBA

1. Em primeiro lugar, pressione as teclas “Alt + F11” para acessar o editor VBA.
2. Em seguida, clique duas vezes no projeto “ThisOutlookSession” no lado esquerdo para abri-lo.
3. Em seguida, copie os seguintes códigos para ele.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Nota: Os códigos acima funcionarão para inserir automaticamente a hora atual no assunto e no corpo. Se você deseja inserir a data atual, substitua o “objMail_Open” sub com o seguinte:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Posteriormente, assine este código como de costume.
5. Mais tarde, restart Outlook para ativar a macro.
6. Finalmente você pode tentar.

• Clique diretamente no botão “Novo e-mail” para abrir um novo e-mail.
• Você descobrirá que o novo e-mail automático contém a data ou hora atual no assunto e no corpo, como na imagem abaixo:

Não confie facilmente em e-mails desconhecidos

Você já deve ter recebido e-mails indesejados. Como você costuma lidar com eles? É desaconselhável baixar anexos ou abrir links neste tipo de e-mail, pois podem conter vírus. Depois que os dados do Outlook forem infectados, a ferramenta de reparo da caixa de entrada, Scanpst.exe, não fará efeitos. Neste caso, você não tem escolha a não ser recorrer a um profissional mais experiente correção PST ferramenta, como DataNumen Outlook Repair.

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 corrompido SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com