调用outlook生成并发送邮件的代码

代码 说明： 本 代码 可以在安装了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

,

查看更多关于调用outlook生成并发送邮件的代码的详细内容...