Email 获取联系人/过去邮件列表vbs

我一直在尝试制作一个脚本，其中显示我以前发过电子邮件的所有人和/或我的联系人列表

我知道如何在vbs中发送电子邮件，但是我为这个任务编写的代码是针对vb.net的，它不起作用

我要找的是vbs中的等效代码

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

---

该代码没有显示任何通过联系人或发送电子邮件进行循环的尝试。您正在尝试使用Outlook执行此操作吗？请看以下内容：对于问题的第二部分（关于vbs），请尝试将这一行添加到代码的开头示例：

Dim objEmail:Set objEmail=CreateObject（“CDO.Message”）