The email preferences form provides this functionality, but only for newsletters sent through Email > Newsletters. When sending through Email > Messages, the only option is to opt-out completely of email communications.