asp.net实现发送邮件
发布网友
发布时间：2022-04-21 19:26
共6个回答
热心网友
时间：2022-04-27 09:55
可以联系我～～
我以前做过这个
private void Page_Load(object sender, System.EventArgs e)
{
string sReturn = string.Empty;
MailMessage mailMsg = new MailMessage();
mailMsg.BodyFormat = MailFormat.Html;
mailMsg.To = "****@163.com";
mailMsg.From = "***@163.com";
mailMsg.Subject = "email.Subject";
mailMsg.Body = "email.Body";
// mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1");
// mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sensername", "用户名");
// mailMsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "密码");
//
SmtpMail.SmtpServer ="smtp.126.com";//smpt服务器
try
{
SmtpMail.Send(mailMsg);
this.Label1.Text = "发送成功";
}
catch (Exception err)
{
this.Label2.Text = "<font color=red>发送失败" + err.Message.ToString() + "</font>";
}
}
热心网友
时间：2022-04-27 11:13
'参数title是标题，Boby内容，TOWHO要发送给的邮件地址,发送成功返回空，发送失败返回错误消息
VB.NET做法
Public Function SendMail(ByVal title As String, ByVal Body As String, ByVal ToWho As String) As String
Dim Msg As New MailMessage
Msg.From = "你的邮件地址"
Msg.To = ToWho
Msg.Subject = title
Msg.BodyFormat = MailFormat.Html
Msg.BodyEncoding = System.Text.Encoding.Default
Msg.Priority = MailPriority.High
Msg.Body = Body
Msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
Msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sensername", "你的邮箱登录名称")
Msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "你的邮箱登录地址")
Try
System.Web.Mail.SmtpMail.SmtpServer = "邮件服务器地址，如smtp.126.com"
System.Web.Mail.SmtpMail.Send(Msg)
SendMail = ""
Catch ex As Exception
SendMail = ex.Message
End Try
End Function
c#做法
public string SendMail(string title,string body,string towho)
{
MailMessage msg=new MailMessage();
Msg.From = "你的邮件地址";
Msg.To = ToWho;
Msg.Subject = title;
Msg.BodyFormat = MailFormat.Html;
Msg.BodyEncoding = System.Text.Encoding.Default;
Msg.Priority = MailPriority.High;
Msg.Body = Body;
Msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1");
Msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sensername", "你的邮箱登录名称");
Msg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "你的邮箱登录地址");
try
{
System.Web.Mail.SmtpMail.SmtpServer = "邮件服务器地址，如smtp.126.com"
System.Web.Mail.SmtpMail.Send(Msg)
return "";
}
catch(Exception exp)
{
return ex.Message;
}
}
热心网友
时间：2022-04-27 12:48
是用Jmail
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
If SendMail() Then
Label1.Text = "邮件发送成功！"
Label1.CssClass = "red"
End If
End Sub
Function SendMail() As Boolean
Dim smtpServer As String = ConfigurationSettings.AppSettings("smtpServer")
Dim smtpUser As String = ConfigurationSettings.AppSettings("smtpUser")
Dim smtpPass As String = ConfigurationSettings.AppSettings("smtpPass")
Dim result As Boolean
Dim oJmail As New jmail.MessageClass
oJmail.Charset = "gb2312"
oJmail.Encoding = "base"
oJmail.ContentTransferEncoding = "base"
'oJmail.ContentType = "text/html"
oJmail.ISOEncodeHeaders = False
oJmail.Priority = Convert.ToByte(3)
oJmail.From = myEmail.Text
oJmail.FromName = Request.Cookies("myCookies")("myName")
oJmail.Subject = Regex.Replace(Title.Text, "<[^>]+>", "")
oJmail.AddRecipient(Email.Text)
oJmail.MailServerUserName = smtpUser
oJmail.MailServerPassWord = smtpPass
'oJmail.Body = Request("Content")
oJmail.AppendHTML(Request("Content").ToString)
'遍历File表单元素
Dim files As System.web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
Dim iFile As Int32
Try
For iFile = 0 To files.Count - 1
'检查文件扩展名字
Dim postedFile As System.Web.HttpPostedFile = files(iFile)
Dim filename As String = postedFile.FileName.ToString
Dim ftype As String = postedFile.ContentType.ToString
Dim filesize As Integer = postedFile.ContentLength
Dim sOriginalFileName = System.IO.Path.GetFileName(filename)
Dim sFileExt As String = System.IO.Path.GetExtension(sOriginalFileName)
If filename <> "" Then
oJmail.AddAttachment(filename, False, filename.Substring(filename.LastIndexOf(".") + 1, 3))
End If
Next
Catch Ex As System.Exception
Label1.CssClass = "red"
Label1.Text = Ex.Message
Return False
End Try
If oJmail.Send(smtpServer, False) Then
result = True
Else
result = False
End If
oJmail.Close()
oJmail = Nothing
Return result
End Function
热心网友
时间：2022-04-27 14:39
再试试，应该可以的。
热心网友
时间：2022-04-27 16:47
么..........
热心网友
时间：2022-04-27 19:12
路过
