MS

app/DD_PM_Server/ClassEmail.vb

@@ -0,0 +1,94 @@
+Imports System.Net.Mail
+Public Class ClassEmail
+    Public Sub Send_Error_Mail(ByVal vBody As String)
+        '#### E-MAIL NACHRICHT VERSENDEN
+        Try
+            Dim empfaenger As String()
+            If My.Settings.Email_Empfaenger <> "" Then
+                If My.Settings.Email_Empfaenger.Contains(";") Then
+                    empfaenger = My.Settings.Email_Empfaenger.Split(";")
+                Else
+                    ReDim Preserve empfaenger(0)
+                    empfaenger(0) = My.Settings.Email_Empfaenger
+                End If
+                'Für jeden Empfänger eine Neue Mail erzeugen
+                For Each _mailempfaenger As String In empfaenger
+                    ' Neue Nachricht erzeugen: 
+                    Dim message As New MailMessage(My.Settings.Email_From, _mailempfaenger, My.Settings.Email_Betreff & " Domain: " & Environment.UserDomainName, _
+                                                   "<font face=""Arial"">" & My.Settings.Email_Body & vBody & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _
+                                                   "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
+                                                   My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
+                    ' create and add the attachment(s) */
+                    'Dim logfile As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+                    'If logfile.Contains("\\") Then
+                    '    logfile = logfile.Replace("\\", "\")
+                    'End If
+                    'Dim Attachment As Attachment = New Attachment(logfile)
+                    'message.Attachments.Add(Attachment)
+
+                    With message
+                        .IsBodyHtml = True
+                    End With
+
+                    'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
+                    Dim emailClient As New SmtpClient(My.Settings.Email_SMTP)
+                    'Email mit Authentifizierung
+                    Dim SMTPUserInfo As New System.Net.NetworkCredential(My.Settings.Email_User, My.Settings.Email_PW) ', My.Settings.vDomain)
+                    emailClient.UseDefaultCredentials = False
+                    emailClient.Credentials = SMTPUserInfo
+                    emailClient.Port = 25
+
+                    '*Send the message */
+                    emailClient.Send(message)
+                    ClassLogger.Add("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+                    ClassLogger.Add("==> Text: " & vBody, False)
+                Next
+            End If
+           
+        Catch ex As Exception
+            ClassLogger.Add("### Fehler im Mailversand: " & ex.Message)
+        End Try
+    End Sub
+    Public Shared Function Send_Reminder_Mail(ByVal vBody As String, ByVal emailfrom As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailpw As String, ByVal email_empf As String, ByVal ReminderHeader As String, ByVal ReminderFooter As String)
+        '#### E-MAIL NACHRICHT VERSENDEN
+        Try
+            Dim empfaenger As String()
+            If email_empf.Contains(";") Then
+                empfaenger = email_empf.Split(";")
+            Else
+                ReDim Preserve empfaenger(0)
+                empfaenger(0) = email_empf
+            End If
+            'Für jeden Empfänger eine Neue Mail erzeugen
+            For Each _mailempfaenger As String In empfaenger
+                ' Neue Nachricht erzeugen: 
+                Dim message As New MailMessage(My.Settings.Email_From, _mailempfaenger, My.Settings.Email_ReminderBetreff, _
+                                               "<font face=""Arial"">" & ReminderHeader & vBody & ReminderFooter & "<p>" & _
+                                                "Starten Sie den Process-Manager " & "<a href=" & My.Settings.Email_ReminderStartup & ">hier</a><br>" & _
+                                               "<p>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
+                                               My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
+
+                With message
+                    .IsBodyHtml = True
+                End With
+
+                'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
+                Dim emailClient As New SmtpClient(emailsmtp)
+                'Email mit Authentifizierung
+                Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
+                emailClient.UseDefaultCredentials = False
+                emailClient.Credentials = SMTPUserInfo
+                emailClient.Port = 25
+
+                '*Send the message */
+                emailClient.Send(message)
+                ClassLogger.Add("==> Reminder Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+            Next
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("### Fehler im Reminder-Mailversand: " & ex.Message)
+            Return False
+        End Try
+    End Function
+End Class
+