Edit From Line Before Sending

Yes, I've been asking for this for years, too. Again, I wrote an applescript which makes an educated guess at the address I want to use, and then assign it a control-key equivalent ("^F" for "From"). I'm using it right now to send this message from "xxx@xxxx.com."

Season to taste!


tell application "Mailsmith 1.5"
  if subject of message window 1 is not "" then
    if contents of message window 1 is not "" then
      if 1st to_recipient of message window 1 is not "" then
        set myAcct to mail account (sending account of message window 1)
        set savedAddress to reply address of myAcct
        set toDomain to address of 1st to_recipient of message window 1
        set toDomain to 3rd word of toDomain
        set result to (display dialog "Enter the address you want to use:" default answer toDomain & "@" & last word of savedAddress)
        if button returned of result = "OK" then
          set reply address of myAcct to text returned of result
          send message window 1
          set reply address of myAcct to savedAddress
        end if
      else
        beep
      end if
    else
      beep
    end if
  else
    beep
  end if
end tell