Outlook开发编程
调用outlook生成并发送邮件的代码
2005-05-10 18:22:40
代码说明：本代码可以在安装了outlook（2000以上版本的）的机器上运行。不过outlook xp 以上的版本由于出于防止邮件病毒的目的，对发送邮件进行监控，运用本程序每发送一封email都需要用户确认，会有点麻烦，但是还是出于安全的角度考虑。
可以将这段代码嵌入access的模块、excel的宏中运行。
程序要求：
需要引用"microsoft outlook x.x library"
代码：
sub email_send()
Dim olkapp As Outlook.ApplicationDim newmail As MailItemDim 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