当前文件： NetShopForge/Library/Componets/Mail/Mail.vb[4K，2009-6-12 11:49:45]，打开代码结构图

		            
  1
  2Imports System.Web
  3
  4Namespace NetShopForgeNamespace NetShopForge.Services.Mail
  5
  6    Public Enum MailFormatEnum MailFormat
  7        Text
  8        Html
  9    End Enum
 10
 11    Public Enum MailPriorityEnum MailPriority
 12        Normal
 13        Low
 14        High
 15    End Enum
 16
 17
 18    Public Class MailClass Mail
 19
 20        /**/''' -----------------------------------------------------------------------------
 21        ''' <summary>
 22        ''' <summary>Send a simple email.</summary>
 23        ''' </summary>
 24        ''' <param name="MailFrom"></param>
 25        ''' <param name="MailTo"></param>
 26        ''' <param name="Bcc"></param>
 27        ''' <param name="Subject"></param>
 28        ''' <param name="Body"></param>
 29        ''' <param name="Attachment"></param>
 30        ''' <param name="BodyType"></param>
 31        ''' <returns></returns>
 32        ''' <remarks></remarks>
 33        ''' <history>
 34        '''     [cnurse]        09/29/2005  Moved to Mail class
 35        ''' </history>
 36        ''' -----------------------------------------------------------------------------
 37        Public Shared Function SendMail()Function SendMail(ByVal MailFrom As String, ByVal MailTo As String, ByVal Bcc As String, ByVal Subject As String, ByVal Body As String, ByVal Attachment As String, ByVal BodyType As String) As String
 38
 39
 40
 41            ' here we check if we want to format the email as html or plain text.
 42            Dim objBodyFormat As MailFormat
 43            If BodyType <> "" Then
 44                Select Case LCase(BodyType)
 45                    Case "html"
 46                        objBodyFormat = MailFormat.Html
 47                    Case "text"
 48                        objBodyFormat = MailFormat.Text
 49                End Select
 50            End If
 51
 52            Return SendMail(MailFrom, MailTo, "", Bcc, MailPriority.Normal, _
 53                Subject, objBodyFormat, System.Text.Encoding.UTF8, Body, Attachment)
 54
 55        End Function
 56
 57        /**/''' -----------------------------------------------------------------------------
 58        ''' <summary>Send a simple email.</summary>
 59        ''' <param name="MailFrom"></param>
 60        ''' <param name="MailTo"></param>
 61        ''' <param name="Cc"></param>
 62        ''' <param name="Bcc"></param>
 63        ''' <param name="Priority"></param>
 64        ''' <param name="Subject"></param>
 65        ''' <param name="BodyFormat"></param>
 66        ''' <param name="BodyEncoding"></param>
 67        ''' <param name="Body"></param>
 68        ''' <param name="Attachment"></param>
 69        ''' <returns></returns>
 70        ''' <remarks></remarks>
 71        ''' <history>
 72        '''     [Nik Kalyani]    10/15/2004    Replaced brackets in member names
 73        '''     [cnurse]        09/29/2005  Moved to Mail class
 74        ''' </history>
 75        ''' -----------------------------------------------------------------------------
 76        Public Shared Function SendMail()Function SendMail(ByVal MailFrom As String, ByVal MailTo As String, _
 77            ByVal Cc As String, ByVal Bcc As String, ByVal Priority As MailPriority, _
 78            ByVal Subject As String, ByVal BodyFormat As MailFormat, _
 79            ByVal BodyEncoding As System.Text.Encoding, ByVal Body As String, _
 80            ByVal Attachment As String) As String
 81
 82            Dim objMail As New System.Net.Mail.MailMessage(MailFrom, MailTo)
 83            If Cc <> "" Then
 84                objMail.CC.Add(Cc)
 85            End If
 86            If Bcc <> "" Then
 87                objMail.Bcc.Add(Bcc)
 88            End If
 89            objMail.Priority = CType(Priority, Net.Mail.MailPriority)
 90            objMail.IsBodyHtml = CBool(IIf(BodyFormat = MailFormat.Html, True, False))
 91
 92            If Attachment <> "" Then
 93                objMail.Attachments.Add(New Net.Mail.Attachment(Attachment))
 94            End If
 95
 96            ' message
 97            objMail.Subject = Subject
 98            objMail.BodyEncoding = BodyEncoding
 99            objMail.Body = Body
100
101            ' external SMTP server
102            Dim smtpClient As New Net.Mail.SmtpClient()
103
104            Try
105                smtpClient.Send(objMail)
106                SendMail = ""
107            Catch objException As Exception
108                ' mail configuration problem
109                SendMail = objException.Message
110            End Try
111
112        End Function
113
114
115    End Class
116
117End Namespace
118
119