AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_18052016

Browse Source
This commit is contained in:
SchreiberM
2016-05-18 16:50:49 +02:00
parent fc54eae3ab
commit 5841c62393
5 changed files with 469 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb
View File

@@ -33,8 +33,8 @@
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-bosytext.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text, PORTTextBox.Text) = True Then
MsgBox("Testmail was send successfully!", MsgBoxStyle.Information, "Erfolgsmeldung:")
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