Automatically create a task when sending a message

How to automatically create tasks for message you send using a VBA macro.