Вы можете запустить макрос, нажав на кнопку "Отправить", которая затем напрямую изменит содержание письма.
Как стартер на десять:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim email As String
' Don't stop for errors
On Error Resume Next
' Get STMP email address of first recipient of email.
email = Item.Recipients.Item(1).PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39FE001E")
' If that fails, then use blank ("") instead
If Err.Number <> 0 Then email = ""
' Work out what type of email it is and then replace $EMAILADDRESS in
' the body to that of 'email'
Select Case Item.BodyFormat
Case olFormatHTML
Item.HTMLBody = Replace(Item.HTMLBody, "$EMAILADDRESS", email)
Case olFormatRTF
Item.RTFBody = Replace(Item.RTFBody, "$EMAILADDRESS", email)
Case Else
Item.Body = Replace(Item.Body, "$EMAILADDRESS", email)
End Select
On Error Goto 0
End Sub
Если вы указали в своем письме $EMAILADDRESS
(например, свою подпись), его заменит адрес электронной почты отправителя.