Public Shared Function SmtpFileMail(ByVal FileMailTo As String, ByVal FileMailToBcc As String, ByVal FileMailFrom As String, ByVal FileMailTitle As String, ByVal FileMailBody As String, ByVal FileMailFileValue As String) Dim MailMessage As New Mail.MailMessage 'Dim SmtpToSend As New SmtpMail
'收件人地址 MailMessage.To = FileMailTo '抄送地址 MailMessage.Bcc = FileMailToBcc '发件人地址 MailMessage.From = FileMailFrom '邮件标题 MailMessage.Subject = FileMailTitle '邮件内容 MailMessage.Body = FileMailBody '邮件发送格式Text或Html MailMessage.BodyFormat = MailFormat.Html '邮件优先级 MailMessage.Priority = MailPriority.High '附件 MailMessage.Attachments.Add(New MailAttachment(FileMailFileValue)) '设必须的基本验证 MailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "0") '设验证的服务名(即SMTP地址) MailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "XXX@126.com") '设验证密码 MailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "XXX")
SmtpMail.SmtpServer = "Smtp.126.com" SmtpMail.Send(MailMessage) End Function
调用::
Obj_Comm.SmtpFileMail("111@126.com", "", "", "AAAAAAAA", "fhfhdhrty", "c:\test.text")
报错:
服务器的传输连接失败。 SmtpMail.Send(MailMessage)
|