get contacts / past mailed list vbs

I have been trying to make a script that displays all the people I have ever emailed before and/or my contacts list.

I know how to send an email in vbs, but the code that I have for this task is for vb.net, and it does not work.

What I am looking for is the equivalent code in vbs.

        objEmail.From = "mailfrom"
        objEmail.To = "mailto"
        objEmail.Subject = "thisisasubject" 
        objEmail.Textbody = "Here is the message"
        objEmail.send