Вы можете запустить макрос, нажав на кнопку "Отправить", которая затем напрямую изменит содержание письма.
Как стартер на десять:
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 (например, свою подпись), его заменит адрес электронной почты отправителя.