Function sendEmail() As Boolean
Dim runOK As Boolean = False
Dim strBodyText As String = "尊敬的用户:" & "<br>" & _
"欢迎您注册杭州市房屋安全管理网!" & "<br>" & "<br>" & _
"您的用户名为 " & txtName.Text & "<br>" & _
"您的密码为 " & newPass & "<br>" & "<br>" & _
"登陆地址为 <a href=""http://www.vbsky.org/bbs"">www.vbsky.org/bbs</a>" & "<br>" & _
"可在:控制面板->密码修改,下修改您的密码" & "<br>" & _
"请在7天内完成首次登陆,谢谢!" & "<br>" & "<br>" & _
" 致" & "<br>" & _
" 礼!" & "<br>" & _
" " & Now.ToString strBodyText = ConVertString(strBodyText)
Dim message As New System.Net.Mail.MailMessage("[email protected]", txtEmail.Text, "VB.NET专题网注册信息", strBodyText)
message.SubjectEncoding = Encoding.GetEncoding("gb2312")
message.BodyEncoding = Encoding.GetEncoding("gb2312")
Dim mailClient As New System.Net.Mail.SmtpClient("mail.sohu.com")
mailClient.Credentials = New System.Net.NetworkCredential("[email protected]", "241057113")
mailClient.DeliveryMethod = SmtpDeliveryMethod.Network
message.IsBodyHtml = True
Try
mailClient.Send(message)
lbMsg.Text = "sendok"
runOK = True
Catch ex As System.Net.Mail.SmtpException lbMsg.Text = ex.Message
End Try
Return runOK
End Function他说这个东西没定义,我该怎么定义哈:
strBodyText = ConVertString(strBodyText) 里的ConVertString
Dim runOK As Boolean = False
Dim strBodyText As String = "尊敬的用户:" & "<br>" & _
"欢迎您注册杭州市房屋安全管理网!" & "<br>" & "<br>" & _
"您的用户名为 " & txtName.Text & "<br>" & _
"您的密码为 " & newPass & "<br>" & "<br>" & _
"登陆地址为 <a href=""http://www.vbsky.org/bbs"">www.vbsky.org/bbs</a>" & "<br>" & _
"可在:控制面板->密码修改,下修改您的密码" & "<br>" & _
"请在7天内完成首次登陆,谢谢!" & "<br>" & "<br>" & _
" 致" & "<br>" & _
" 礼!" & "<br>" & _
" " & Now.ToString strBodyText = ConVertString(strBodyText)
Dim message As New System.Net.Mail.MailMessage("[email protected]", txtEmail.Text, "VB.NET专题网注册信息", strBodyText)
message.SubjectEncoding = Encoding.GetEncoding("gb2312")
message.BodyEncoding = Encoding.GetEncoding("gb2312")
Dim mailClient As New System.Net.Mail.SmtpClient("mail.sohu.com")
mailClient.Credentials = New System.Net.NetworkCredential("[email protected]", "241057113")
mailClient.DeliveryMethod = SmtpDeliveryMethod.Network
message.IsBodyHtml = True
Try
mailClient.Send(message)
lbMsg.Text = "sendok"
runOK = True
Catch ex As System.Net.Mail.SmtpException lbMsg.Text = ex.Message
End Try
Return runOK
End Function他说这个东西没定义,我该怎么定义哈:
strBodyText = ConVertString(strBodyText) 里的ConVertString
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货