能否在Outlook2007实现用宏发送新邮件？

NodeB

各位老师好，

因对Outlook中如何用宏是一点都不知道，特寻求大家的支持。因工作中需要频繁发送邮件到不同的人，目的就是提醒一下收件人接受一下某个工作。邮件主体基本没有，只是在主题用固定的格式标明一下。如“你的设计请在 XXXXX-XX-XX前完成”。收件人在公司自己的联系人名单中选择。请问能否用宏发送一个这样的邮件？万分感谢！

Note：上面邮件主题的内容只是表示格式，我知道完成这样的功能可再日历、任务等中实现，我需要的就是一个自动发送邮件的宏。谢谢！

NodeB

在咱们论坛中找了一个帖子，比较接近。

http://club.excelhome.net/forum. ... 0564&page=1#1342997

如果能在邮件的 To 中添加收信人和主题中把XXXX-XX-XX加进去就最好了。（比如给两个对话框，分别把收件人和时间Copy进去）就好了。谢谢！

NodeB

找到一段代码，但不知道定义变量的Dim。。。。应该填成什么，请大侠支持一下！我感觉都这个问题就要解决了，大家帮我推一把，谢谢！

dim ..........
MoOutlook = GetNamespace("MAPI")
oFolder =GetDefaultFolder(olFolderOutbox)
oItem = oFolder.Items.Add(olMailItem)
with oItem
.To = "name@adress.com"
   .Subject = "主题"
   .Body = "内容"   
   .CC = "抄送name@adress.com"
   .Importance = olImportanceHigh
   .Send
end with