Adicione a data de hoje ao abrir o modelo de e-mail salvo

Question

Quero adicionar uma mensagem e a data sempre que abrir um modelo de e-mail que salvei.

Eu só consegui chegar ao trecho de código abaixo:

Private Sub adddate()
    .Item.Subject = "Prep Status Report " & Format(Date, "dd/MM/yyyy")
End Sub

Como posso melhorar isso para que funcione conforme o esperado.

A linha de assunto deve ser: Prep Status Report 10/12/2018se executado em 10 de dezembro

Answer 1

Você pode inserir sua linha de código no código do Método 2 em "2 métodos rápidos para criar novos e-mails a partir de um modelo com Outlook VBA" emhttps://www.datanumen.com/blogs/2-quick-methods-create-new-emails-template-outlook-vba/

• Na sua linha de código, mude .Itempara NewMail.
• no código do Datanumen, altere o caminho do arquivo para o caminho do arquivo do seu modelo.

Além disso, você pode adicionar a macro à barra de ferramentas de acesso rápido, se quiser executá-la com um clique.