现在用QTP，如何发送foxmail,发邮件，加附近等

cloudwindkid

如题，我只有outlook的，现在公司只装foxmail,求助

cloudwindkid

自己顶下

feiyunkai

Public Function Sendmail(mailfrom,mailto,smtp,username,password,mailtitle,mailbody,attachment)
'参数说明：
'发件人：mailfrom 收件人：mailto 邮件发送服务器：smtp 发件人邮箱地址：username 发件人邮箱密码：password 邮件标题：mailtitle 邮件内容：mailbody 附件路径：attachment
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = createObject("CDO.Message")
Email.From =mailfrom
Email.To = mailto
Email.Subject = mailtitle
Email.Textbody = mailbody
Email.AddAttachment attachment
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = smtp
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = username
.Item(NameSpace&"sendpassword") = password
.update
End With
Email.Send
End Function