LPWeb/LPWeb20/Klassen/clsSendMail.vb

Imports System.Net.Mail
Imports System.Web.Configuration
Imports System.Net
Public Class clsSendMail


    Public Shared Function SendMailMessage(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, ByVal subject As String, ByVal body As String) As Boolean

        If WebConfigurationManager.AppSettings("smtpserver") = "msscript1.webland.ch" Then
            Dim mailer As Object
            mailer = CreateObject("SMTPsvg.Mailer")
            mailer.FromName = WebConfigurationManager.AppSettings("NameAbsender")
            mailer.FromAddress = WebConfigurationManager.AppSettings("MailAbsender")
            mailer.RemoteHost = WebConfigurationManager.AppSettings("smtpserver")
            mailer.AddRecipient("", recepient)
            mailer.ContentType = "text/html"
            mailer.Subject = subject
            mailer.BodyText = body
            If mailer.SendMail Then
                Return True
            Else
                Return False
            End If
            Exit Function
        End If


        Dim ConfigFrom As String
        ConfigFrom = WebConfigurationManager.AppSettings("MailAbsender")
        ' Instantiate a new instance of MailMessage
        Dim mMailMessage As New MailMessage()

        ' Set the sender address of the mail message
        If from = "" Then
            mMailMessage.From = New MailAddress(ConfigFrom)
        Else
            mMailMessage.From = New MailAddress(from)
        End If
        ' Set the recepient address of the mail message
        mMailMessage.To.Add(New MailAddress(recepient))

        ' Check if the bcc value is nothing or an empty string
        If Not bcc Is Nothing And bcc <> String.Empty Then
            ' Set the Bcc address of the mail message
            mMailMessage.Bcc.Add(New MailAddress(bcc))
        End If

        ' Check if the cc value is nothing or an empty value
        If Not cc Is Nothing And cc <> String.Empty Then
            ' Set the CC address of the mail message
            mMailMessage.CC.Add(New MailAddress(cc))
        End If

        ' Set the subject of the mail message
        mMailMessage.Subject = subject
        ' Set the body of the mail message
        mMailMessage.Body = body

        ' Set the format of the mail message body as HTML
        mMailMessage.IsBodyHtml = True
        ' Set the priority of the mail message to normal
        mMailMessage.Priority = MailPriority.Normal

        ' Instantiate a new instance of SmtpClient
        Dim mSmtpClient As New SmtpClient()
        ' Send the mail message
        Try
            mSmtpClient.Send(mMailMessage)
            Return True
        Catch ex As Exception
            Return False
        End Try

    End Function

    Public Shared Sub Send()


        Const ToAddress As String = "info@shub.ch"

        '(1) Create the MailMessage instance
        Dim mm As New MailMessage("stefan.hutter@stefan-hutter.ch", "info@shub.ch")

        '(2) Assign the MailMessage's properties
        mm.Subject = "Hallo"
        mm.Body = "Ich bin ein Test"
        mm.IsBodyHtml = False

        '(3) Create the SmtpClient object
        Dim smtp As New SmtpClient

        '(4) Send the MailMessage (will use the Web.config settings)
        smtp.Send(mm)
        Exit Sub


    End Sub

End Class

'Imports System.Net.Mail
'Imports System.Web.Configuration
'Imports System.Net
'Public Class clsSendMail


'    Public Shared Sub SendMailMessage(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, ByVal subject As String, ByVal body As String)
'        Dim ConfigFrom As String
'        ConfigFrom = WebConfigurationManager.AppSettings("MailAbsender")

'        ' Instantiate a new instance of MailMessage
'        Dim mMailMessage As New MailMessage()



'        ' Set the sender address of the mail message
'        If from = "" Then
'            mMailMessage.From = New MailAddress(ConfigFrom)
'        Else
'            mMailMessage.From = New MailAddress(from)
'        End If
'        ' Set the recepient address of the mail message
'        mMailMessage.To.Add(New MailAddress(recepient))

'        ' Check if the bcc value is nothing or an empty string
'        If Not bcc Is Nothing And bcc <> String.Empty Then
'            ' Set the Bcc address of the mail message
'            mMailMessage.Bcc.Add(New MailAddress(bcc))
'        End If

'        ' Check if the cc value is nothing or an empty value
'        If Not cc Is Nothing And cc <> String.Empty Then
'            ' Set the CC address of the mail message
'            mMailMessage.CC.Add(New MailAddress(cc))
'        End If

'        ' Set the subject of the mail message
'        mMailMessage.Subject = subject
'        ' Set the body of the mail message
'        mMailMessage.Body = body

'        ' Set the format of the mail message body as HTML
'        mMailMessage.IsBodyHtml = True
'        ' Set the priority of the mail message to normal
'        mMailMessage.Priority = MailPriority.Normal

'        ' Instantiate a new instance of SmtpClient
'        mMailMessage.From = New MailAddress("hutter@shub.ch")
'        Dim mSmtpClient As New SmtpClient()
'        ' Send the mail message
'        mSmtpClient.Send(mMailMessage)
'        Exit Sub

'        ' Instantiate a new instance of SmtpClient
'        'Dim mSmtpClient As New SmtpClient()
'        'mMailMessage.From = New MailAddress("info@shub.ch")
'        'SendSmtp(mMailMessage)
'        'Exit Sub
'        'Dim mSmtpClient As New SmtpClient
'        'mSmtpClient.Host = "smtp.shub.ch"

'        'mSmtpClient.Port = 557
'        'mSmtpClient.EnableSsl = True
'        'mSmtpClient.DeliveryMethod = SmtpDeliveryMethod.Network
'        'mSmtpClient.UseDefaultCredentials = False
'        'mSmtpClient.Credentials = New NetworkCredential("hutter@shub.ch", "shu*webland30")
'        '' Send the mail message
'        'mSmtpClient.Send(mMailMessage)
'    End Sub


'    Public Shared Sub Send()


'    Const ToAddress As String = "info@shub.ch"

'    '(1) Create the MailMessage instance
'    Dim mm As New MailMessage("stefan.hutter@stefan-hutter.ch", "info@shub.ch")

'    '(2) Assign the MailMessage's properties
'        mm.Subject = "Hallo"
'        mm.Body = "Ich bin ein Test"
'        mm.IsBodyHtml = False

'    '(3) Create the SmtpClient object
'    Dim smtp As New SmtpClient

'    '(4) Send the MailMessage (will use the Web.config settings)
'        smtp.Send(mm)
'        Exit Sub
'    End Sub

'    Public Shared Sub SendSmtp(ByVal m As MailMessage)

'        Dim smtp As New SmtpClient
'        smtp.Host = "smtp.p-hutter.ch"
'        smtp.Port = 557
'        smtp.EnableSsl = True
'        smtp.DeliveryMethod = SmtpDeliveryMethod.Network
'        smtp.UseDefaultCredentials = False
'        smtp.Credentials = New NetworkCredential("drhutter@p-hutter.ch", "phu*phut29")
'        smtp.Send(m)

'    End Sub

'End Class