QTP中发送邮件
来源:互联网 发布:潜意识的力量 知乎 编辑:程序博客网 时间:2024/04/28 08:30
Public Function Bug_SendByOutLook(emailAddress,subject,body,attachment)
If (emailAddress="" Or subject="" ) Then
Call LogFile("Function SendMailBySMTP","Error","Enter Argument Error")
Exit Function
Else
body=BugFormat()
Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNameSpace("MAPI")
'objOutlook.Outlook.Application.Visible = True
'Sends an email to sanjay
Dim SendItem
Set SendItem = objOutlook.CreateItem(0)
SendItem.Recipients.Add emailAddress
SendItem.Subject = subject
SendItem.Body = body
If attachment<>"" Then
SendItem.Attachments.Add(attachment)
End If
SendItem.Send
Set myNameSpace=Nothing
Set objOutlook=Nothing
End If
End Function
Public Function Bug_SendBySMTP(strFrom,strTo,subject,body,attachment,attr_name)
If (emailAddress="" Or subject="" ) Then
Call logFile("Function SendMailBySMTP","Error","Enter Argument Error")
Exit Function
Else
Set objSendMail = CreateObject("CDONTS.NewMail")
objSendMail.From = strFrom
objSendMail.To = strTo
objSendMail.Subject = subject
objSendMail.Body = body
If attachment<>"" And attr_name<>"" Then
objSendMail.AttachFile attachment,attr_name
End If
objSendMail.Send
Set objSendMail = Nothing
End If
End Function
- QTP中发送邮件
- QTP发送邮件
- QTP 使用 CDONTS 发送邮件
- QTP实现从outlook客户端自动发送邮件
- .net中发送邮件
- sap中发送邮件
- Spring中发送邮件
- THinkPHP中邮件发送
- vs2005中发送邮件
- Java中发送邮件
- Android中发送邮件
- android中发送邮件
- sap中发送邮件
- django 中发送邮件
- c#中发送邮件
- springMVC中发送邮件
- laravel中发送邮件
- java中发送邮件
- 查找
- C 指针变量 也是 传值 调用
- Android 建立Menu选单&&onOptionsItemSelected
- 常见网站漏洞及解决办法
- 关于《现代密码学》教材与教学改革的几点思考
- QTP中发送邮件
- 面试官问题的回答
- FCKeditor在asp.net中的用法
- 比较SQL Server 2005与SQL Server 2000分页技巧
- linux gdb使用
- 栈 队列
- DataGridView中对各种类型的单元格控件的事件处理(DataGridViewCheckBoxCell、DataGridViewComboBoxCell等的选定、事件触发)
- CSS让容器的溢出部分内容隐藏起来
- dwr