Adicionando uma macro ao Outlook

Question

Houve uma pergunta sobre a adição de uma macro no Outlook 2010, mas a resposta não ficou clara para mim. Eu quero que uma linha específica de texto apareça em um e-mail que é enviado para um grupo específico de pessoas (exemplo: editores de agendas). É "Estas são as alterações atuais para 23 de julho de 2012 (a data é atualizada automaticamente)." Onde eu configuro isso ou coloco o texto para isso?

    

Answer 1

Tente isso

Sub Boilerplate_Agenda_Editors()

    Dim objMail As MailItem
    Dim allRecipients As Recipients

    Set objMail = Application.CreateItem(olMailItem)
    Set allRecipients = objMail.Recipients

    allRecipients.Add "Your distribution list name inside the quotes"
    allRecipients.ResolveAll

    objMail.Subject = "Attention Agenda Editors"
    objMail.Body = "These are the current changes for " & Format(Now, "mmmm dd, yyyy") & "."

    SendKeys "^{END}"

    objMail.Display

    Set objMail = Nothing
    Set allRecipients = Nothing

End Sub

Editor e ajuda do botão - link

A segurança de macros deve ser definida como média.

Ajuda do botão - link