LPWeb/LPWeb20/Administration/MailClient.aspx.vb

Imports System.Web.Configuration
Imports System.Web.UI.WebControls

Imports Telerik.Web.UI
Imports System.Data.SqlClient
Imports System.Configuration
Imports Telerik.Web.UI.RadWebControl
Public Class MailClient
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            If Request.QueryString("firmen") = "all" Then
                Me.RadListBox1.Visible = True
                Me.RadListBox1.SelectedIndex = 0
            Else
                Me.RadListBox1.Visible = False
            End If
            If Request.QueryString("Firmanr") <> "" Then
                Prepare_Mail(4)
            Else
                Prepare_Mail(-1)
            End If
        End If
    End Sub

    Private Sub Prepare_Mail(ByVal mailnr As Integer)
        If mailnr = -1 Then Exit Sub
        Dim dm As New DataSet

        Dim dh As New clsDatahandling
        Dim t As New DataTable
        t = dh.Get_Firma(Request.QueryString("Firmanr"))
        Me.RadTextBox1.Text = t.Rows(0).Item("Email")


        Dim inhalt As String
        Select Case mailnr
            Case 4
                dm = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=" + mailnr.ToString, False, True)
                Me.RadTextBox2.Text = dm.Tables(0).Rows(0).Item("Betreff")
                inhalt = dm.Tables(0).Rows(0).Item("Inhalt")

                dm.Tables.Clear()
                dm = dh.Get_Tabledata("Select * from firmenadressen where firmanr=" + Request.QueryString("Firmanr"), False, True)
                inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
                Try
                    inhalt = inhalt.Replace("[Anrede]", dm.Tables(0).Rows(0).Item("Briefanrede"))
                Catch
                    inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
                End Try
                dm.Tables.Clear()
                dm = dh.Get_Tabledata("Select * from web_user where aktiv=1 and usertype=2 and firmanr=" + Request.QueryString("Firmanr"), False, True)
                Try
                    inhalt = inhalt.Replace("[Userid]", dm.Tables(0).Rows(0).Item("username"))
                Catch
                    inhalt = inhalt.Replace("[Userid]", "")
                End Try

                Me.Editor1.Text = inhalt
            Case Else
                inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
                inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
        End Select

    End Sub

    Private Sub Prepare_Mail_1(ByVal mailnr As Integer, firmanr As Integer)
        If mailnr = -1 Then Exit Sub
        Dim dm As New DataSet

        Dim dh As New clsDatahandling
        Dim t As New DataTable
        t = dh.Get_Firma(firmanr)
        Me.RadTextBox1.Text = t.Rows(0).Item("Email")


        Dim inhalt As String
        Select Case mailnr
            Case 4
                dm = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=" + mailnr.ToString, False, True)
                Me.RadTextBox2.Text = dm.Tables(0).Rows(0).Item("Betreff")
                inhalt = dm.Tables(0).Rows(0).Item("Inhalt")

                dm.Tables.Clear()
                dm = dh.Get_Tabledata("Select * from firmenadressen where firmanr=" + firmanr.ToString, False, True)
                inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
                Try
                    inhalt = inhalt.Replace("[Anrede]", dm.Tables(0).Rows(0).Item("Briefanrede"))
                Catch
                    inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
                End Try
                dm.Tables.Clear()
                dm = dh.Get_Tabledata("Select * from web_user where aktiv=1 and usertype=2 and firmanr=" + firmanr.ToString, False, True)
                Try
                    inhalt = inhalt.Replace("[Userid]", dm.Tables(0).Rows(0).Item("username"))
                Catch
                    inhalt = inhalt.Replace("[Userid]", "")
                End Try

                Me.Editor1.Text = inhalt
            Case Else
                inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
                inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
        End Select

    End Sub
    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        If RadListBox1.Visible = True Then
            Dim mailer As New clsSendMail
            Try
                mailer.SendMailMessage("", Me.RadTextBox1.Text, "", "", Me.RadTextBox2.Text, Me.Editor1.Text)
                Me.lblMessage.Text = "E-Mail wurde zugestellt"
                Me.RadListBox1.SelectedIndex = Me.RadListBox1.SelectedIndex + 1
                Me.Prepare_Mail_1(4, Me.RadListBox1.SelectedValue)
            Catch
            End Try
        Else
            Dim mailer As New clsSendMail
            Try
                mailer.SendMailMessage("", Me.RadTextBox1.Text, "", "", Me.RadTextBox2.Text, Me.Editor1.Text)
                Me.lblMessage.Text = "E-Mail wurde zugestellt"
            Catch ex As Exception
                Me.lblMessage.Text = ex.Message
            End Try

        End If
    End Sub

    Private Sub RadListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RadListBox1.SelectedIndexChanged
        Me.Prepare_Mail_1(4, Me.RadListBox1.SelectedValue)
    End Sub
End Class