using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Web.Mail;
using System.Web.Util;
namespace autoSendEmail
{
    public partial class sendEMail : System.Web.UI.Page
    {
        protected void Page_Load(object sender, EventArgs e)
        {
        }
        protected void btnSend_Click(object sender, EventArgs e)
        {
            try
            {
                jmail.Message Jmail = new jmail.Message();
                Session["subject"] = this.TextBox1.Text.ToString();
                Session["content"] = this.TxtContent.Text.ToString();
                DateTime t = DateTime.Now;
                String Subject = "'" + Session["subject"] + "'";
                String body = "'" + Session["content"] + "'";
                String FromEmail = "[email protected]";
                String ToEmail = "[email protected]";
                //Silent属性:如果设置为true,JMail不会抛出例外错误. JMail. Send( () 会根据操作结果返回true或false
                Jmail.Silent = true;
                //Jmail创建的日志,前提loging属性设置为true
                Jmail.Logging = true;
                //字符集,缺省为"US-ASCII"
                Jmail.Charset = "GB2312";
                Jmail.ContentType = "text/html";
                //添加收件人
                Jmail.AddRecipient(ToEmail, "", "");
                Jmail.From = FromEmail;
                //发件人邮件用户名
                Jmail.MailServerUserName = "username";
                //发件人邮件密码
                Jmail.MailServerPassWord = "****";
                //设置邮件标题
                Jmail.Subject = Subject;
       
                //邮件内容
                Jmail.Body = body + t.ToString();
                //Jmail发送的方法
                Jmail.Send("smtp.sina.com.cn ", false);
                Jmail.Close();
                Response.Write("<script>alert('邮件发送成功')</script>");
            }
            catch (Exception ee)
            {
                Response.Write("<script>alert('邮件发送失败')</script>");
            }
        }
    }
}
   请高手帮忙解决1

解决方案 »

  1.   

    这个是我用Jami发的,没问题的,呵呵
    public void JmailSend(string Priority,string MailFrom,string MailTo,string Attachment,string Subject,string Text)
    {
    jmail.SMTPMailClass smtpserver = new SMTPMailClass();
    smtpserver.Charset="gb2312";
    smtpserver.Encoding="BASE64";
    smtpserver.ISOEncodeHeaders =false;
    smtpserver.ContentType="text/html";
    int Prio=0;
    switch(Priority)
    {
    case "重要性-高":
    Prio =1;
    break;
    case "重要性-低":
    Prio =5;
    break;
    case "一般":
    Prio=3;
    break;
    }
    smtpserver.Priority =Convert.ToByte(Prio);
    smtpserver.Sender=MailFrom;
    smtpserver.SenderName="人事";
    smtpserver.ServerAddress ="smtp.intex-opto.com";
    smtpserver.AddRecipient(MailTo);
    if(Attachment!="")
    {
    smtpserver.AddAttachment(Attachment,"text/html");
    }
    smtpserver.Subject=Subject;
    smtpserver.Body=Text;
    try
    {
    smtpserver.Execute();
    }
    catch
    {
    }
    smtpserver.Close();
    }
      

  2.   

    jmail.pop3class jm=new...
    jm.connnect(uid,pwd,server,110)
    就可以了
      

  3.   

    163先申請的郵箱已經不支持POP了!!2005以前的可以!你換個其它的郵箱吧。QQ郵箱就可以!
      

  4.   

    還有樓主你的不是JMAIL吧!引用的還是03版本的system.web.mail
    05的應該引用system.net.mail
    我這裏有個成功的。你看看:
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
     
            Dim mg As MailMessage = New MailMessage()
            mg.From = New MailAddress("[email protected]")       '发件人邮箱
            mg.To.Add("[email protected]")                              '收件人邮箱
            mg.Subject = "邮件测试"                                                   '邮件主题
            mg.Body = "测试邮件,,内容为空"                                       '邮件内容
            mg.BodyEncoding = System.Text.Encoding.UTF8                '内容编码
            mg.IsBodyHtml = True                                                       '是否支持HTML格式
            mg.Priority = MailPriority.High                                             '优先级别
            mg.Attachments.Add(New Attachment("c:\ps.txt"))                '添加附件
            Dim smtp As SmtpClient = New SmtpClient()
            smtp.DeliveryMethod = SmtpDeliveryMethod.Network             '邮件发送方式.这里通过网络
            smtp.Host = "smtp.qq.com"                                                  '邮件发送服务器
            smtp.Credentials = New NetworkCredential("113620916", "******")    '用户名跟密码
            Try
                smtp.Send(mg)
                Label2.Text = "OK"
            Catch ex As Exception
                Label2.Text = ex.ToString
            End Try
        End Sub