S.l.e!ep.¢%

像打了激速一样,以四倍的速度运转,开心的工作
简单、开放、平等的公司文化;尊重个性、自由与个人价值;
posts - 1098, comments - 335, trackbacks - 0, articles - 1
  C++博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

Use CDO Send Mail In DOS

Posted on 2009-08-01 18:11 S.l.e!ep.¢% 阅读(174) 评论(0)  编辑 收藏 引用 所属分类: DOS

Set   objEmail = CreateObject("CDO.Message")
Const CDONameSpace = "http://schemas.microsoft.com/cdo/configuration/"

With objEmail.Configuration.Fields
.Item(CDONameSpace+"sendusing") = 2
.Item(CDONameSpace+"smtpserver") = "smtp.21cn.com"
.Item(CDONameSpace+"smtpserverport") = 25
.Item(CDONameSpace+"smtpauthenticate") = 1
.Item(CDONameSpace+"sendusername") = "sleepwom"
.Item(CDONameSpace+"sendpassword") = "123456"
End With

With objEmail
.From     = "sleepwom@21cn.com"
.To       = "sleepwom@163.com"
.Subject  = "Server down"
.Textbody = "Server1 is no longer accessible over the network."
End With

objEmail.Configuration.Fields.Update
objEmail.Send

Msgbox "success"

Set objEmail = Nothing


只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理