sendemail.aspx.vb

来自「程序设计:Flyangel 用到了vb.net c# asp.net xml等 」· VB 代码 · 共 86 行

Imports System.Web.Mail
Public Class sendemail
    Inherits System.Web.UI.Page
    Protected WithEvents TextBox_receive_email As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox_content As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox_send_name As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox_receive_name As System.Web.UI.WebControls.TextBox
    Protected WithEvents send_button As System.Web.UI.WebControls.Button
    Protected WithEvents validEmailRequired As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents validEmailRegExp As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents Requiredfieldsend_name As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Requiredfieldreceive_name As System.Web.UI.WebControls.RequiredFieldValidator

    Protected WithEvents Panel_send As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_result As System.Web.UI.WebControls.Panel
    Protected WithEvents Label_result As System.Web.UI.WebControls.Label

    Dim _tempurl As String
    Dim _temptitle As String

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then

            If Application("EmailFlag") = 1 Then
                Panel_send.Visible = True
                Panel_result.Visible = False
            Else
                Panel_result.Visible = True
                Panel_send.Visible = False
                Label_result.Text = "请谅解，目前系统没有开放EMAIL发送功能！"
            End If
        End If
        _tempurl = Request.QueryString("tempurl")
        _temptitle = Request.QueryString("temptitle")
    End Sub

    Private Sub send_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles send_button.Click
        Dim myMessage As New MailMessage()
        Dim myAttachment As MailAttachment
        Dim myMail As SmtpMail


        myMessage.From = Application("webmastermail")

        myMessage.To = TextBox_receive_email.Text

        myMessage.Subject = "你的朋友" & TextBox_send_name.Text & "给你推荐的文章：" & _temptitle

        myMessage.Body = TextBox_receive_name.Text & "你好！" & vbCrLf & vbCrLf & "给你推荐一篇文章，请看看！ " & vbCrLf & _
         "文章题目为：" & _temptitle & vbCrLf & "请从这个地址浏览：" & _tempurl & vbCrLf & _
         vbCrLf & vbCrLf & TextBox_content.Text & vbCrLf & vbCrLf & _
         "这封信来自你的朋友" & TextBox_send_name.Text & "。" & _
         vbCrLf & vbCrLf & Application("WebTitle") & "祝你快乐！"

        myAttachment = New MailAttachment(Server.MapPath("images\dxlog1.gif"))

        myMessage.Attachments.Add(myAttachment)
        myMail.SmtpServer = Application("SMTPServer")
        Try
            myMail.Send(myMessage)
            Label_result.Text = "EMAIL发送成功！"
        Catch
            Label_result.Text = "EMAIL发送过程中出现错误，可能是不能解析邮件地址，请重新发送！"
        End Try

        Panel_result.Visible = True
        Panel_send.Visible = False
    End Sub
End Class