Добавление макроса в Outlook

Question

Был вопрос о добавлении макроса в Outlook 2010, но ответ был немного неясен для меня. Я хочу, чтобы в электронном письме была указана конкретная строка текста (например, редакторы повестки дня). Это «Это текущие изменения на 23 июля 2012 года (дата автоматически обновляется)». Где я могу настроить это или поместить текст для этого?

Answer 1

Попробуй это

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

Справка для редактора и кнопки - http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/

Безопасность макросов должна быть установлена на средний уровень.

Справка по кнопкам - http://www.howto-outlook.com/howto/macrobutton.htm