TA的每日心情 | 郁闷 2018-11-15 14:58 |
---|
签到天数: 2 天 连续签到: 2 天 [LV.1]测试小兵
|
Function SendMail(sSendTo,sSendCC,sSubject,sBody,Attachment)
sSendTo = "123123@qq.com"
'sSendCC = "123123@tset.com"
sSubject = "测试报告"
sBody = "测试通过"
Attachment = "D:\2009总结.doc\"
Set ol = CreateObject(Outlook.Application)
Set Mail = ol.CreateItem(0)
Mail.display
Mail.To = sSendTo
Mail.cc = sSendCC
Mail.Subject = sSubject
Mail.Body = sBody
If(Attachment) Then
Mail.Attachment.Add(Attachment)
End If
Mail.Send
ol.Quit
Set Mail = Nothing
Set ol = Nothing
End Function |
|