69 lines
3.4 KiB
VB.net
69 lines
3.4 KiB
VB.net
Imports System.Net.Mail
|
|
Public Class ClassDI_Email
|
|
Public Sub Send_EMail(ByVal vBody As String, Optional ByVal Test As Boolean = False)
|
|
'#### E-MAIL NACHRICHT VERSENDEN
|
|
Try
|
|
'######
|
|
Dim empfaenger As String()
|
|
If My.Settings.vDIMailEmpf <> "" Then
|
|
If My.Settings.vDIMailEmpf.Contains(";") Then
|
|
empfaenger = My.Settings.vDIMailEmpf.Split(";")
|
|
Else
|
|
ReDim Preserve empfaenger(0)
|
|
empfaenger(0) = My.Settings.vDIMailEmpf
|
|
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.vDIMailFrom, _mailempfaenger, My.Settings.vDIMailBetreff & " Domain: " & Environment.UserDomainName, _
|
|
"<font face=""Arial"">" & My.Settings.vDIMailBody & 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.vSMTP)
|
|
'Email mit Authentifizierung
|
|
Dim SMTPUserInfo As New System.Net.NetworkCredential(My.Settings.vMailUser.Trim, My.Settings.vMailPW.Trim) ', My.Settings.vDomain)
|
|
emailClient.UseDefaultCredentials = False
|
|
emailClient.Credentials = SMTPUserInfo
|
|
emailClient.Port = My.Settings.vemailPort
|
|
emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
|
|
|
|
'*Send the message */
|
|
emailClient.Send(message)
|
|
ClassLoggerDI.Add("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!", False)
|
|
ClassLoggerDI.Add("==> Text: " & vBody, False)
|
|
If Test = True Then
|
|
MsgBox("Email an " & _mailempfaenger & "erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
|
|
End If
|
|
Next
|
|
End If
|
|
'######
|
|
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
If Test = True Then
|
|
MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand DI:")
|
|
Else
|
|
ClassLoggerDI.Add(">> Achtung: Fehler in Mailversand: " & ex.Message, False)
|
|
End If
|
|
|
|
|
|
End Try
|
|
End Sub
|
|
End Class
|
|
|