net1.0&2.0发mails

Imports System
Imports System.Web
Imports System.Web.Mail
Imports System.Net
Imports System.Net.Mail


Partial Class sendmailweb
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '2.0发mail的方法

        Dim mymail As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage("[e-mail]", "[e-mail]", "test", "yaya_test")

        Dim client As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("mail.gemtek-ks.com.cn")
        client.Credentials = New NetworkCredential("yaya_xu", "flash_angle")
        client.Send(mymail)
        Response.Write("ok")


        ' string file = "e:inetpubwwwrootTest2005AllTestXML estXML.xml";
        ' System.Net.Mail.MailMessage message = new System.Net.Mail.MailMessage("[e-mail]", "[e-mail]", "text message for you.", "Test Title");
        ' System.Net.Mail.Attachment data = new System.Net.Mail.Attachment(file, System.Net.Mime.MediaTypeNames.Application.Octet);
        ' System.Net.Mime.ContentDisposition disposition = data.ContentDisposition;
        ' disposition.CreationDate = System.IO.File.GetCreationTime(file);
        ' disposition.ModificationDate = System.IO.File.GetLastWriteTime(file);
        ' disposition.ReadDate = System.IO.File.GetLastAccessTime(file);
        ' message.Attachments.Add(data);
        'System.Net.Mail.SmtpClient client = new System.Net.Mail.SmtpClient(server);
        'client.Credentials = new NetworkCredential("用户名", "密码");
        'client.Send(message);
        'data.Dispose();



    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '1.0发mail的方法
        Dim mymail As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage()

        mymail.From = "[e-mail]"
        mymail.To = "[e-mail]"
        mymail.Subject = "test:"
        mymail.BodyFormat = System.Web.Mail.MailFormat.Html
        mymail.Body = "test yaya"
        '  System.Web.Mail.SmtpMail.SmtpServer = "10.4.180.37"



        System.Web.Mail.SmtpMail.Send(mymail)
        '服务器拒绝了一个或多个收件人地址。服务器响应为: 550 5.7.1 Unable to relay for [e-mail]
        Response.Write("send ok")
        '首先说一下SMTP配置。
        '        (1)右键点击“SMTP虚拟服务器”选择“属性”->在“常规”选项卡中设置“IP地址(P)”，我设置的是10.4.180.37。
        '        (2)选择“访问”选项卡，点击“中继”，选上“仅以下列表”(默认是被选上的)，点击“添加”，在“单台计算机”中加入10.4.180.37。
        '         提示，如果没有完成(2),则会出现大家常见的一种错误提示：服务器拒绝了一个或多个收件人地址。服务器响应为: 550 5.7.1 Unable to relay [e-mail](友情提示一下：错误中的邮件地址有所不同) 然后开始核心代码，其实和方法(一)的差不多。与(一)的主要区别在于：1.SMTP的不同，2.objMailMessage.From中本方法可以随便填写，但是(一)中别随便填写那么利用ASP.NET(C#)发送邮件的核心代码如下：


    End Sub
End Class