Imports Microsoft . VisualBasic

Imports System . Net . Mail

Public Class clEmail

Private clXML As New clXML

Public strPath As String = IO . Path . GetDirectoryName ( Reflection . Assembly . GetExecutingAssembly . Location ) & "\"

Private strAbsenderAdresse As String = clXML . ReadXMLValue ( strPath & "cnf.xml" , "EmailSender" )

Private strMailServer As String = clXML . ReadXMLValue ( strPath & "cnf.xml" , "EmailServer" )

Private strMailPort As String = clXML . ReadXMLValue ( strPath & "cnf.xml" , "EmailPort" )

Private strMailBenutzer As String = clXML . ReadXMLValue ( strPath & "cnf.xml" , "EmailUser" )

Private strMailPasswort As String = clXML . ReadXMLValue ( strPath & "cnf.xml" , "EmailPass" )

'Mailversand

Public Function Mail ( ByVal strEmpfaenger As String , ByVal strBetreff As String , ByVal strNachricht As String , ByVal strCC As String , ByVal strBCC As String , ByVal intPriority As Integer , ByVal strAbsenderAnzeige As String ) As Boolean

Try

Dim scSMTPClient As New SmtpClient ( strMailServer, strMailPort )

Dim ncNetWorkCredential As New Net . NetworkCredential ( strMailBenutzer, strMailPasswort )

scSMTPClient . Credentials = ncNetWorkCredential

Dim mmMail As New MailMessage

Dim mmAdressFrom As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

Dim mmAdressReplyTo As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

mmMail . From = mmAdressFrom

mmMail . To . Add ( strEmpfaenger )

If strCC <> "" Then mmMail . CC . Add ( strCC . Replace ( ";" , "," ) )

If strBCC <> "" Then mmMail . Bcc . Add ( strBCC . Replace ( ";" , "," ) )

mmMail . Subject = strBetreff

mmMail . Body = strNachricht

mmMail . Priority = intPriority

mmMail . ReplyTo = mmAdressReplyTo

mmMail . IsBodyHtml = True

scSMTPClient . Send ( mmMail )

Return True

Catch ex As Exception

Return False

End Try

End Function

'Mailversand + 1 Att

Public Function Mail ( ByVal strEmpfaenger As String , ByVal strBetreff As String , ByVal strNachricht As String , ByVal strCC As String , ByVal strBCC As String , ByVal intPriority As Integer , ByVal strAbsenderAnzeige As String , ByVal strAtt1Path As String ) As Boolean

Try

Dim scSMTPClient As New SmtpClient ( strMailServer, strMailPort )

Dim ncNetWorkCredential As New Net . NetworkCredential ( strMailBenutzer, strMailPasswort )

scSMTPClient . Credentials = ncNetWorkCredential

Dim mmMail As New MailMessage

Dim mmAdressFrom As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

Dim mmAdressReplyTo As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

mmMail . From = mmAdressFrom

mmMail . To . Add ( strEmpfaenger )

If strCC <> "" Then mmMail . CC . Add ( strCC . Replace ( ";" , "," ) )

If strBCC <> "" Then mmMail . Bcc . Add ( strBCC . Replace ( ";" , "," ) )

mmMail . Subject = strBetreff

mmMail . Body = strNachricht

If Not strAtt1Path = "" Then

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt1Path ) )

End If

mmMail . Priority = intPriority

mmMail . ReplyTo = mmAdressReplyTo

mmMail . IsBodyHtml = True

scSMTPClient . EnableSsl = True

scSMTPClient . Send ( mmMail )

Return True

Catch ex As Exception

MsgBox ( ex . Message )

Return False

End Try

End Function

'Mailversand + 2 Att

Public Function Mail ( ByVal strEmpfaenger As String , ByVal strBetreff As String , ByVal strNachricht As String , ByVal strCC As String , ByVal strBCC As String , ByVal intPriority As Integer , ByVal strAbsenderAnzeige As String , ByVal strAtt1Path As String , ByVal strAtt2Path As String ) As Boolean

Try

Dim scSMTPClient As New SmtpClient ( strMailServer, strMailPort )

Dim ncNetWorkCredential As New Net . NetworkCredential ( strMailBenutzer, strMailPasswort )

scSMTPClient . Credentials = ncNetWorkCredential

Dim mmMail As New MailMessage

Dim mmAdressFrom As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

Dim mmAdressReplyTo As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

mmMail . From = mmAdressFrom

mmMail . To . Add ( strEmpfaenger )

If strCC <> "" Then mmMail . CC . Add ( strCC . Replace ( ";" , "," ) )

If strBCC <> "" Then mmMail . Bcc . Add ( strBCC . Replace ( ";" , "," ) )

mmMail . Subject = strBetreff

mmMail . Body = strNachricht

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt1Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt2Path ) )

mmMail . Priority = intPriority

mmMail . ReplyTo = mmAdressReplyTo

mmMail . IsBodyHtml = True

scSMTPClient . Send ( mmMail )

Return True

Catch ex As Exception

Return False

End Try

End Function

'Mailversand + 3 Att

Public Function Mail ( ByVal strEmpfaenger As String , ByVal strBetreff As String , ByVal strNachricht As String , ByVal strCC As String , ByVal strBCC As String , ByVal intPriority As Integer , ByVal strAbsenderAnzeige As String , ByVal strAtt1Path As String , ByVal strAtt2Path As String , ByVal strAtt3Path As String ) As Boolean

Try

Dim scSMTPClient As New SmtpClient ( strMailServer, strMailPort )

Dim ncNetWorkCredential As New Net . NetworkCredential ( strMailBenutzer, strMailPasswort )

scSMTPClient . Credentials = ncNetWorkCredential

Dim mmMail As New MailMessage

Dim mmAdressFrom As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

Dim mmAdressReplyTo As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

mmMail . From = mmAdressFrom

mmMail . To . Add ( strEmpfaenger )

If strCC <> "" Then mmMail . CC . Add ( strCC . Replace ( ";" , "," ) )

If strBCC <> "" Then mmMail . Bcc . Add ( strBCC . Replace ( ";" , "," ) )

mmMail . Subject = strBetreff

mmMail . Body = strNachricht

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt1Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt2Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt3Path ) )

mmMail . Priority = intPriority

mmMail . ReplyTo = mmAdressReplyTo

mmMail . IsBodyHtml = True

scSMTPClient . Send ( mmMail )

Return True

Catch ex As Exception

Return False

End Try

End Function

'Mailversand + 4 Att

Public Function Mail ( ByVal strEmpfaenger As String , ByVal strBetreff As String , ByVal strNachricht As String , ByVal strCC As String , ByVal strBCC As String , ByVal intPriority As Integer , ByVal strAbsenderAnzeige As String , ByVal strAtt1Path As String , ByVal strAtt2Path As String , ByVal strAtt3Path As String , ByVal strAtt4Path As String ) As Boolean

Try

Dim scSMTPClient As New SmtpClient ( strMailServer, strMailPort )

Dim ncNetWorkCredential As New Net . NetworkCredential ( strMailBenutzer, strMailPasswort )

scSMTPClient . Credentials = ncNetWorkCredential

Dim mmMail As New MailMessage

Dim mmAdressFrom As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

Dim mmAdressReplyTo As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

mmMail . From = mmAdressFrom

mmMail . To . Add ( strEmpfaenger )

If strCC <> "" Then mmMail . CC . Add ( strCC . Replace ( ";" , "," ) )

If strBCC <> "" Then mmMail . Bcc . Add ( strBCC . Replace ( ";" , "," ) )

mmMail . Subject = strBetreff

mmMail . Body = strNachricht

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt1Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt2Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt3Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt4Path ) )

mmMail . Priority = intPriority

mmMail . ReplyTo = mmAdressReplyTo

mmMail . IsBodyHtml = True

scSMTPClient . Send ( mmMail )

Return True

Catch ex As Exception

Return False

End Try

End Function

'Mailversand + 5 Att

Public Function Mail ( ByVal strEmpfaenger As String , ByVal strBetreff As String , ByVal strNachricht As String , ByVal strCC As String , ByVal strBCC As String , ByVal intPriority As Integer , ByVal strAbsenderAnzeige As String , ByVal strAtt1Path As String , ByVal strAtt2Path As String , ByVal strAtt3Path As String , ByVal strAtt4Path As String , ByVal strAtt5Path As String ) As Boolean

Try

Dim scSMTPClient As New SmtpClient ( strMailServer, strMailPort )

Dim ncNetWorkCredential As New Net . NetworkCredential ( strMailBenutzer, strMailPasswort )

scSMTPClient . Credentials = ncNetWorkCredential

Dim mmMail As New MailMessage

Dim mmAdressFrom As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

Dim mmAdressReplyTo As New MailAddress ( strAbsenderAdresse, strAbsenderAnzeige )

mmMail . From = mmAdressFrom

mmMail . To . Add ( strEmpfaenger )

If strCC <> "" Then mmMail . CC . Add ( strCC . Replace ( ";" , "," ) )

If strBCC <> "" Then mmMail . Bcc . Add ( strBCC . Replace ( ";" , "," ) )

mmMail . Subject = strBetreff

mmMail . Body = strNachricht

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt1Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt2Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt3Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt4Path ) )

mmMail . Attachments . Add ( New System . Net . Mail . Attachment ( strAtt5Path ) )

mmMail . Priority = intPriority

mmMail . ReplyTo = mmAdressReplyTo

mmMail . IsBodyHtml = True

scSMTPClient . Send ( mmMail )

Return True

Catch ex As Exception

Return False

End Try

End Function