在书上看了一个例子,但是发不出去。书上也没有写发送邮箱用户名和密码,我把书上抄下来,大家看一下还少什么。 Dim client As New SmtpClient("mail.163.com")
Dim from As String = "[email protected]"
Dim recipients As String = "[email protected]"
Dim subjet As String = "开会通知"
Dim body As String = "我是中国人民中国中中国中"
client.Send(from, recipients, subjet, body)
Response.Write("发送成功")
大家看一下还少什么,最好写成vb的,我学vb .还有个问题,为什么网上全是c#的,我找答案也看不懂.为什么全是c#
Dim from As String = "[email protected]"
Dim recipients As String = "[email protected]"
Dim subjet As String = "开会通知"
Dim body As String = "我是中国人民中国中中国中"
client.Send(from, recipients, subjet, body)
Response.Write("发送成功")
大家看一下还少什么,最好写成vb的,我学vb .还有个问题,为什么网上全是c#的,我找答案也看不懂.为什么全是c#
http://blog.csdn.net/lifuyun/archive/2007/07/18/1696664.aspx
Imports System.Net
Partial Class Order
Inherits System.Web.UI.Page
Public strConn As New WebClass Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lblMsg.Text = ""
Dim mailMessage As New MailMessage()
Dim strBody As String
mailMessage.From = New MailAddress("<[email protected]>") '改掉这里的参数
mailMessage.To.Add("[email protected]") '收信人
mailMessage.Subject = "邮件标题"
mailMessage.IsBodyHtml = True
Dim strSystem, strStyle As String
strBody = "邮件内容........." mailMessage.Body = strBody
sendMail(mailMessage)
End Sub
Private Sub sendMail(ByVal mail As MailMessage)
Dim smtpClient As New SmtpClient()
smtpClient.EnableSsl = False
smtpClient.Host = "smtp.126.com" '这里是你使用的smtp服务器
smtpClient.Port = 25
smtpClient.Credentials = New NetworkCredential("用户名", "用户密码")
Try
smtpClient.Send(mail)
OP.Visible = True
emailPanel.Visible = False
Catch
lblMsg.Text = "<script>alert('发送失败,原因如下:\r" & Err.Description & "')</script>"
End Try
End Sub 'sendMail
End Class
<system.net>
<mailSettings>
<smtp from="[email protected]">
<network host="smtp.263xmail.com" password="*******" port="25" userName="[email protected]" defaultCredentials="false"/>
</smtp>
</mailSettings>
</system.net>
</configuration>//注意放在这一级下