为svn 打基线后自动发送邮件做准备 windows 发送邮件脚本

nicaiwa

于 2012-02-16 16:13:16 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： svn 文章标签： svn windows 脚本 email user 服务器

本文链接：https://blog.youkuaiyun.com/nicaiwa/article/details/7264915

本文提供了一个Windows脚本示例，用于在为svn创建基线后自动发送邮件通知。脚本利用CDO.Message对象发送邮件，包含了设置发件人、收件人、主题、正文和附件的步骤，并指定了SMTP服务器配置。使用者需要根据自己的邮箱信息修改相应参数。

最近发现打完基线发邮件是一件很烦的事情，作为懒人的我，准备找一个自动发送邮件的脚本，根据基线申请单自动生成邮件

下面是发送邮件的脚步及说明，稍后完成后将把基线申请单模板和邮件脚步共享给大家

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人名称"
Email.To = "user@sc-forward.com"
Email.Subject = "标题"
Email.Textbody = "邮件正文"
Email.AddAttachment "c:\1.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.exmail.qq.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "svn@text.com"
.Item(NameSpace&"sendpassword") = "123456"
.Update
End With
Email.Send