1NameSpace="http://schemas.microsoft.com/cdo/configuration/"
2 SetEmail=CreateObject("CDO.Message")
3Email.From="chen@gmail.com"'发件邮件地址
4 Email.To="kekec@qq.com"'收件邮件地址
5Email.Subject="Test_"+cstr(now())'邮件主题
6Email.Textbody="OK! It is only a test."'邮件内容
7Email.AddAttachment"D:\My Documents\My Pictures\809041233006998.jpg"'所带附件
8WithEmail.Configuration.Fields
9.Item(NameSpace&"sendusing")=2'CDO发送端口号
10.Item(NameSpace&"smtpserver")="smtp.gmail.com"'SMTP服务器
11.Item(NameSpace&"smtpserverport")=465'SMTP服务器端口号
12.Item(NameSpace&"smtpusessl")=true'SMTP服务器是否使用了SSL
13.Item(NameSpace&"smtpauthenticate")=1'认证方式是BASIC
14.Item(NameSpace&"sendusername")="chen@gmail.com"'发件人邮箱账号
15.Item(NameSpace&"sendpassword")="************"'发件人邮箱密码
16.Update
17EndWith
18Email.Send