代码说明: 本代码可以在安装了outlook(2000以上版本的)的机器上运行。不过outlook xp 以上 的版本由于出于防止邮件病毒的目的,对发送邮件进行监控,运用本程序每发送一封 email都需要用户确认,会有点麻烦,但是还是出于安全的角度考虑。 可以将这段代码嵌入access的模块、excel的宏中运行。
需要引用"microsoft outlook x.x library"
sub email_send() Dim olkapp As Outlook.Application Set olkapp = CreateObject("outlook.application")
.To = emailadd .Send '发送 End With end sub |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-4-29 02:55 , Processed in 0.062787 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.