2005 send mail function

發送郵件：

Function send_mail() Function send_mail(ByVal s_from As String, ByVal pwd As String, ByVal s_to As String, ByVal m_title As String, ByVal m_body As String, ByVal m_file As String) As String
        's_from 發件箱地址
        'pwd 發件箱密碼
        ' s_to 收件箱地主之誼
        'm_title 郵件主題
        'm_body 郵件內容
        'm_file 附件

        Dim i As Int16 = 0
        i = s_from.IndexOf("@")
        Dim username As String = s_from.Substring(0, i)

        '构建MailMessage对象
        Dim from As System.Net.Mail.MailAddress = New System.Net.Mail.MailAddress(s_from) '發件箱地址
        Dim mto As System.Net.Mail.MailAddress = New System.Net.Mail.MailAddress(s_to) '收件箱地址
        Dim mailobj As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage(from, mto)

        '完善MailMessage对象
        mailobj.Subject = m_title '主題
        mailobj.Body = m_body '郵件內容
        mailobj.IsBodyHtml = True
        mailobj.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8")
        mailobj.Priority = System.Net.Mail.MailPriority.Normal

        If m_file.Trim <> "" Then '附件
            mailobj.Attachments.Add(New System.Net.Mail.Attachment(m_file))
        End If

        '构建SmtpClient对象
        Dim smtp As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("10.128.2.110")
        smtp.UseDefaultCredentials = False
        '如果加上下面的驗證，密碼一定不能為空
        '如果是利用126，163等smtp，mail下面一定要加上
        '  smtp.Credentials = New System.Net.NetworkCredential(username, pwd)
        smtp.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

        Try

            smtp.Send(mailobj)
            Return "A"
        Catch ex As System.Net.Mail.SmtpException

            Return ex.Message
        End Try

    End Function

調用：

  Dim  s_from  As   String   =  TextBox2.Text.Trim().ToString()
         Dim  pwd  As   String   =  TextBox3.Text.Trim().ToString()
         Dim  s_to  As   String   =  TextBox4.Text.Trim().ToString()
         Dim  s_body  As   String   =  TextBox6.Text.Trim().ToString()
        s_body  =  Server.HtmlEncode(s_body)

         Dim  m_file  As   String   =   ""
         If  File1.PostedFile.ContentLength  >   0   Then
            m_file  =  File1.PostedFile.FileName
         End   If

         Dim  msg  As   String   =   format .send_mail(s_from.Trim, pwd.Trim, s_to.Trim,  Me .TextBox5.Text.Trim, s_body.Trim, m_file.Trim)
         If  msg.Trim  =   " A "   Then
             Me .Label2.Text  =   " 成功發送!! "
         Else
             Me .Label2.Text  =   " 發送失敗： "   +  msg.Trim
         End   If