用CDO对象发邮件

By wiston Li

今天，开始和大家分享一下，基于windows scrīpting tips,

此类小知识，可能在大家准备自动化脚本时碰到，有些windows开放的com对象，应用到自动化测试中

特别时调用com对象内置的方法与属性，能起到事半功倍的作用。

在这里整理一下：

Function sendmailbysmtp(Mailto, FilePath)
Dim objEmail
Set ōbjEmail = CreateObject("CDO.Message")
objEmail.From = "B2bTA@b2btest.com"
objEmail.To = Mailto
objEmail.Subject = "This is an email sent by TA"
objEmail.Textbody = "Pls see the enclosed for the TA execution log"

objEmail.AddAttachment (FilePath)
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "10.0.32.124"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

 
End Function

这个函数，也是我们现在自动化框架用到的发邮件，

另外，也除了发送txt文本格式的邮件，也可以发送基于html格式的，详见：

Set ōbjMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "wiston.lifb@alibaba-inc.com"
objMessage.To = "wiston.lifb@alibaba-inc.com" objMessage.CreateMHTMLBody "file://d|/temp/test.htm" ' 把d:/temp/test.htm作为邮件内容发送。
objMessage.Bcc = "wiston.lifb@alibaba-inc.com"
objMessage.Cc = "wiston.lifb@alibaba-inc.com"
objMessage.Send