代码 说明： 本 代码 可以在安装了outlook（2000以上版本的）的机器上运行。不过outlook xp 以上 的版本由于出于防止 邮件 病毒的目的，对 发送 邮件 进行监控，运用本程序每 发送 一封 email都需要用户确认，会有点麻烦，但是还是出于安全的角度考虑。 可以
代码说明：
本代码可以在安装了outlook（2000以上版本的）的机器上运行。不过outlook xp 以上
的版本由于出于防止邮件病毒的目的，对发送邮件进行监控，运用本程序每发送一封
email都需要用户确认，会有点麻烦，但是还是出于安全的角度考虑。
可以将这段代码嵌入access的模块、excel的宏中运行。
程序要求：
需要引用microsoft outlook x.x library
代码：
sub email_send()
dim olkapp as outlook.application
dim newmail as mailitem
dim emailadd,para as string
set olkapp = createobject(outlook.application)
set newmail = olkapp.createitem(olmailitem)
'邮件正文内容
para = para+祝新春快乐，并友情提醒注意新的邮件病毒。
'收件人的email地址，这里没有输入内容。
emailadd =
with newmail
.to = emailadd
.subject = 新春快乐 ' 邮件的主题
.importance = olimportancehigh '邮件的为重要等级
.body = para '将邮件正文内容指定para变量内容
.send '发送
end with
end sub
,