用jmail 4.2 发送邮件失败!
各位大侠:
小弟用win2000 advance server ;vs 2002;jmail 4.2测试发送邮件!
没有成功!!!希望高手们给一个答案.谢谢了!
-----------------------------------------------------------------
代码如下:
Private Sub Send_Mail_out(ByVal username As String, ByVal password As String)
Dim jmail As New jmail.Message()
Try
jmail.Charset = "gb2312"
jmail.From = "aaa@163.net" ' 发送者地址
jmail.FromName = "z.h." ' 发送者姓名
jmail.Subject = "您的歌词快递 jmail.MailServerUserName = username.Trim ' 身份验证的用户名
jmail.MailServerPassWord = password.Trim ' 身份验证的密码
jmail.Priority = 3
jmail.AddHeader("Originating-IP", Request.ServerVariables("REMOTE_ADDR"))
jmail.AddRecipient("tjzxh@163.com")
jmail.HTMLBody = "<html>..html部分..</html>"
jmail.Body = "我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持。"
jmail.Send("smtp.163.net")
Catch ex As Exception
Dim message As String
message = "错误信息:" & ex.Message & vbCrLf
message &= "错误源:" & ex.Source & vbCrLf
TextBox1.Text = message
Finally
jmail.Close()
jmail = Nothing
End Try
End Sub
------------------------------------------------
当我调用的时候!网页并没有报错,IE状态栏显示:正在打开网页。。。。
这个过程能持续5-6分钟!此时cpu占用达到了100%。
我只有结束了asp_net的进程才让cpu使用降了下来。
当然邮件没有发送出去!