Como criar uma macro no Outlook 2010 para adicionar a data à linha de assunto

Question

Eu sou novo no formato VBA de escrever código e tenho pesquisado como obter a data atual para entrada AUTO na linha Assunto de um email quando comandado. Eu preciso saber como completar a seguinte tarefa.

A linha do assunto deve ser "stuff stuff stuff TODAYS DATE " O corpo deve ler, "Pessoa, (retorno; guia) Material das coisas TODAYS DATE "

Além disso, se for possível, eu gostaria de anexar automaticamente um arquivo de um local específico que terá o nome de " TODAYS DATE .xlsx"

A data de hoje deve estar no formato DDMMMYY.

No momento, estou usando uma macro muito básica para criar o e-mail e adicionar o texto onde eu precisar.

Sub STUFF()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.To = "EMAILS"
msg.CC = "EMAILS"
msg.Subject = "STUFF STUFF STUFF *DATE*"
msg.Body = "PERSON, STUFF STUFF STUFF *DATE*"
msg.Display
Set msg = Nothing
End Sub

Obrigado pela ajuda.

edit - para clarrificação Eu tentei o seguinte: Data de hoje no Assunto do Mail do Outlook (2010 / Etapas Rápidas) link link E a maioria dos outros resultados do Google para qualquer variação das palavras-chave "macro outlook 2010 data atual"

editar 2 - Razão Meu objetivo final é ter um comando Macro, que, quando selecionado, cria um novo e-mail com os campos Para, CC, Assunto, Corpo e Anexo preenchidos para que eu possa editar algumas linhas de informações que mudam diariamente e enviá-las . Isso só será usado quando necessário e não toda vez que eu precisar enviar um novo e-mail.

    

Answer 1

Para obter o título do seu post, você está procurando Now com alguma manipulação de data.

Sub STUFF()
    Dim msg As Outlook.MailItem
    Set msg = Application.CreateItem(olMailItem)
    msg.To = "[email protected]"
    msg.CC = "[email protected]"
    msg.Subject = "STUFF STUFF STUFF" & Now
    msg.Body = "PERSON, STUFF STUFF STUFF" & Now
    msg.Display
    msg.Attachments.Add ("e:\temp\" & Format(Now, "dd.mm.2014") & ".xlsx")
    Set msg = Nothing
End Sub

Now apenas retornaria a data que, no nosso caso, é apenas anexada às sequências de assunto e corpo. Se você estiver tentando formatar a data, use algo como Format(Now, "dd.mm.2014") que você vê no exemplo Attachment.Add . Mais formatação de data exemplos

Quanto ao anexo, é bastante simples. Eu não fiz nenhuma validação de dados para os caminhos que você deve fazer, mas acabei com o seguinte no meu teste. Isso também depende inteiramente das convenções de nomenclatura de arquivos.

Então tudo o que você precisa fazer é algo como atribuir um botão da barra de ferramentas de acesso rápido à sua macro.