通过右键单击动态将发件人电子邮件添加到Outlook 2007中的邮件标题规则

I would like VBA code for Outlook 2007 to right-click a message in any mail view, choose a rule to add it to, and have the sender email be added to the Message Header contains value for that rule.I would like VBA code for Outlook 2007 to right