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 11:21:23 +02:00
parent 1530b63838
commit 41f2760a88
19 changed files with 4026 additions and 3465 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/ClassEmail.vb
View File

@@ -1,7 +1,7 @@
Imports System.Net.Mail
Public Class ClassEmail
Private Shared MailSSL As Boolean = False
Public Shared Function Send_EMail(MailEmpfaenger As String, MailBetreff As String, vBody As String, MAIL_SMTP As String, MAIL_USER As String, MAIL_PW As String, MAIL_FROM As String)
Public Shared Function Send_EMail(MailEmpfaenger As String, MailBetreff As String, vBody As String, MAIL_SMTP As String, MAIL_USER As String, MAIL_PW As String, MAIL_FROM As String, port As Integer)
'#### E-MAIL NACHRICHT VERSENDEN
Try
If MAIL_SMTP <> "" And MAIL_USER <> "" Then
@@ -17,7 +17,7 @@ Public Class ClassEmail
'Neue Nachricht erzeugen:
Dim message As New MailMessage(MAIL_FROM, Trim(_mailempfaenger), MailBetreff, _
"<font face=""Tahoma"">" & vBody & "<br>" & _
"<br>Creation TimeStamp: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
"<br>Time: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
' create and add the attachment(s) */
' Dim Attachment As Attachment = New Attachment("E:\test\Frachkostenreport.txt")
@@ -33,7 +33,7 @@ Public Class ClassEmail
Dim SMTPUserInfo As New System.Net.NetworkCredential(MAIL_USER, MAIL_PW) ', My.Settings.vDomain)
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
emailClient.Port = 25
emailClient.Port = port
'*Send the message */
emailClient.Send(message)
Next