I wrote a template that will do this with Email Templates for Outlook
(
www.emailtemplates.com). Basically you create the template in your
templates folder with the following content:
Title: Add Email To Contacts (FollowUp)
<vbscript>
olFolderContacts = 10
Dim info
Set info = CreateObject("Scripting.Dictionary")
Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
Set oFolder = oNS.GetDefaultFolder(olFolderContacts)
Set oCCFolder = oFolder.Folders("FollowUp")
Set oContact = oCCFolder.Items.Add()
oContact.Email1Address = ET.Message("email")
oContact.Email1AddressType = "SMTP"
oContact.Save
ET.Stop
</vbscript>
Then you simply apply this template to any email that you want to add
to the 'FollowUp' folder you create in your contacts. If you want it to
work with every message that you receive you can attach the template to
the rules wizard.
If you need help, let me know and I'll send you the template that I
have.
-Eric
-----