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

 

转载于:https://www.cnblogs.com/Nina-piaoye/archive/2006/11/07/552687.html