首页
资讯
正文

vbs sendmail发邮件带附件方法2

Jack·高峰 • 2013-04-30 08:39 • 3979 阅读

文章摘要

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" 
Set Email = CreateObject("CDO.Message") 
Email.From = "jeannehotr@21cn.com" 
Email.To = "jeannehotz@126.com" 
Email.Subject =...

当前字体大小 15px

12px 50px

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" 
Set Email = CreateObject("CDO.Message") 
Email.From = "jeannehotr@21cn.com" 
Email.To = "jeannehotz@126.com" 
Email.Subject = "Test sendmail.vbs" 
Email.Textbody = "OK!" 
Email.AddAttachment "C:\foo.zip" 
With Email.Configuration.Fields 
.Item(NameSpace&"sendusing") = 2 
.Item(NameSpace&"smtpserver") = "smtp.21cn.com" 
.Item(NameSpace&"smtpserverport") = 25 
.Item(NameSpace&"smtpauthenticate") = 1 
.Item(NameSpace&"sendusername") = "jeannehot" 
.Item(NameSpace&"sendpassword") = "ph4nt0m!" 
.Update 
End With 
Email.Send

分享到：