41 lines
2.1 KiB
VB.net
41 lines
2.1 KiB
VB.net
Public Class frmDD_EMAIL_ACCOUNT
|
|
|
|
Private Sub TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_EMAIL_ACCOUNTBindingNavigatorSaveItem.Click
|
|
Save_EmailProfile()
|
|
End Sub
|
|
Sub Save_EmailProfile()
|
|
Try
|
|
Me.TBDD_EMAIL_ACCOUNTBindingSource.EndEdit()
|
|
If DD_DMSDataSet.TBDD_EMAIL_ACCOUNT.GetChanges Is Nothing = False Then
|
|
Me.CHANGED_WHOTextBox.Text = USER_USERNAME
|
|
Me.TBDD_EMAIL_ACCOUNTBindingSource.EndEdit()
|
|
TBDD_EMAIL_ACCOUNTTableAdapter.Update(Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT)
|
|
lblSave.Visible = True
|
|
Else
|
|
lblSave.Visible = False
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler bei Save_EmailProfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Private Sub frmDD_EMAIL_ACCOUNT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Try
|
|
TBDD_EMAIL_ACCOUNTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
|
|
Me.TBDD_EMAIL_ACCOUNTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT)
|
|
Catch ex As Exception
|
|
MsgBox("Error in Load-Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew
|
|
Me.DD_DMSDataSet.TBDD_EMAIL_ACCOUNT.ADDED_WHOColumn.DefaultValue = USER_USERNAME
|
|
End Sub
|
|
|
|
Private Sub btnEmailTest_Click(sender As Object, e As EventArgs) Handles btnEmailTest.Click
|
|
If txttestReceipiant.Text <> "" Then
|
|
If ClassEmail.Send_EMail(txttestReceipiant.Text, "Test Email Reminder", "Default-Bodytext: will be replaced with profile-bodytext.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text, PORTTextBox.Text) = True Then
|
|
MsgBox("Testmail was send successfully!", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class |