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

MS

Browse Source
This commit is contained in:
SchreiberM
2021-11-25 15:48:42 +01:00
parent 76d10a7374
commit 831f648fbb
12 changed files with 575 additions and 517 deletions
Download Patch File Download Diff File Expand all files Collapse all files

730
Modules.Messaging/Email.vb
View File

@@ -18,107 +18,107 @@ Public Class Email
_logConfig = LogConfig
End Sub
''' <summary>
''' Tests connection to a given IMAP Server by connecting and doing a simple message query.
''' </summary>
''' <param name="Server">IP-Address or Domainname of Server</param>
''' <param name="Port">IMAP-Port</param>
''' <param name="Username">IMAP-Username</param>
''' <param name="Password">IMAP-Password</param>
''' <param name="Folder">The folder to fetch messages from. Defaults to `Inbox`</param>
''' <returns>True if connection and query were successful. False otherwise.</returns>
Public Function TestIMAPLogin(Server As String, Port As Integer, Username As String, Password As String, Optional Folder As String = "Inbox") As Boolean
_logger.Debug("Testing Login to Server {0}:{1} with user {2}", Server, Port, Username)
'''' <summary>
'''' Tests connection to a given IMAP Server by connecting and doing a simple message query.
'''' </summary>
'''' <param name="Server">IP-Address or Domainname of Server</param>
'''' <param name="Port">IMAP-Port</param>
'''' <param name="Username">IMAP-Username</param>
'''' <param name="Password">IMAP-Password</param>
'''' <param name="Folder">The folder to fetch messages from. Defaults to `Inbox`</param>
'''' <returns>True if connection and query were successful. False otherwise.</returns>
'Public Function TestIMAPLogin(Server As String, Port As Integer, Username As String, Password As String, Optional Folder As String = "Inbox") As Boolean
' _logger.Debug("Testing Login to Server {0}:{1} with user {2}", Server, Port, Username)
Try
_logger.Debug("Connecting...")
Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True)
If Not oClient.Authed Then
_logger.Warn("Connected to server but authentication failed.")
Return False
End If
_logger.Debug("Connection successful")
' Try
' _logger.Debug("Connecting...")
' Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True)
' If Not oClient.Authed Then
' _logger.Warn("Connected to server but authentication failed.")
' Return False
' End If
' _logger.Debug("Connection successful")
_logger.Debug("Fetching MessageIds..")
Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Folder)
' _logger.Debug("Fetching MessageIds..")
' Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Folder)
_logger.Debug("Found {0} messages", oMessageIds.Count)
_logger.Debug("Fetching messages...")
' _logger.Debug("Found {0} messages", oMessageIds.Count)
' _logger.Debug("Fetching messages...")
Dim oMessages As IEnumerable(Of MailMessage) = oClient.GetMessages(oMessageIds, False, Folder)
_logger.Debug("Messages fetched")
' Dim oMessages As IEnumerable(Of MailMessage) = oClient.GetMessages(oMessageIds, False, Folder)
' _logger.Debug("Messages fetched")
oClient.Dispose()
' oClient.Dispose()
Return True
End Using
Catch ex As Exception
_logger.Error(ex)
Return False
End Try
End Function
' Return True
' End Using
' Catch ex As Exception
' _logger.Error(ex)
' Return False
' End Try
'End Function
''' <summary>
''' Connects to an IMAP Server with the given credentials and
''' fetches emails from the given folder.
''' Results can be filtered with `SearchCondition`
''' </summary>
''' <param name="Server">IP-Address or Domainname of Server</param>
''' <param name="Port">IMAP-Port</param>
''' <param name="Username">IMAP-Username</param>
''' <param name="Password">IMAP-Password</param>
''' <param name="Folder">The folder to fetch messages from</param>
''' <param name="SearchCondition">Filter the search command. Defaults to `All`</param>
''' <returns>A list of Independentsoft.Email.Mime.Message objects</returns>
Public Function FetchIMAPMessages(Server As String, Port As Integer, Username As String, Password As String, Folder As String) As List(Of Message) ', Optional SearchCondition As S22.Imap.SearchCondition = S22.Imap.SearchCondition.All
Dim oMessages As New List(Of Message)
'''' <summary>
'''' Connects to an IMAP Server with the given credentials and
'''' fetches emails from the given folder.
'''' Results can be filtered with `SearchCondition`
'''' </summary>
'''' <param name="Server">IP-Address or Domainname of Server</param>
'''' <param name="Port">IMAP-Port</param>
'''' <param name="Username">IMAP-Username</param>
'''' <param name="Password">IMAP-Password</param>
'''' <param name="Folder">The folder to fetch messages from</param>
'''' <param name="SearchCondition">Filter the search command. Defaults to `All`</param>
'''' <returns>A list of Independentsoft.Email.Mime.Message objects</returns>
'Public Function FetchIMAPMessages(Server As String, Port As Integer, Username As String, Password As String, Folder As String) As List(Of Message) ', Optional SearchCondition As S22.Imap.SearchCondition = S22.Imap.SearchCondition.All
' Dim oMessages As New List(Of Message)
_logger.Debug("Connecting to Server {0}:{1} with user {2}", Server, Port, Username)
' _logger.Debug("Connecting to Server {0}:{1} with user {2}", Server, Port, Username)
Try
_logger.Debug("Connecting...")
Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True)
If Not oClient.Authed Then
_logger.Warn("Connected to server but authentication failed.")
Return Nothing
End If
_logger.Debug("Connection successful")
' Try
' _logger.Debug("Connecting...")
' Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True)
' If Not oClient.Authed Then
' _logger.Warn("Connected to server but authentication failed.")
' Return Nothing
' End If
' _logger.Debug("Connection successful")
_logger.Debug("Fetching MessageIds..")
Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Folder)
' _logger.Debug("Fetching MessageIds..")
' Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Folder)
_logger.Debug("Found {0} messages", oMessageIds.Count)
_logger.Debug("Fetching messages...")
' _logger.Debug("Found {0} messages", oMessageIds.Count)
' _logger.Debug("Fetching messages...")
' Since this needs to return a list of IndependentSoft Message objects,
' we 'convert' the .NET MailMessage objects that are fetched from the server
' by writing them temporarily to disk as an eml file and then reading them back into a Message object.
' This approach uses an unintended use of internal .NET APIs and may break in the future.
For Each oMessageId As UInteger In oMessageIds
Dim oMessage = oClient.GetMessage(oMessageId, False, Folder)
Dim oTempPath = Path.GetTempFileName()
Dim oResult = WriteMessageToFile(oMessage, oTempPath)
' ' Since this needs to return a list of IndependentSoft Message objects,
' ' we 'convert' the .NET MailMessage objects that are fetched from the server
' ' by writing them temporarily to disk as an eml file and then reading them back into a Message object.
' ' This approach uses an unintended use of internal .NET APIs and may break in the future.
' For Each oMessageId As UInteger In oMessageIds
' Dim oMessage = oClient.GetMessage(oMessageId, False, Folder)
' Dim oTempPath = Path.GetTempFileName()
' Dim oResult = WriteMessageToFile(oMessage, oTempPath)
Dim oMsg As New Message(oTempPath)
oMessages.Add(oMsg)
' Dim oMsg As New Message(oTempPath)
' oMessages.Add(oMsg)
Try
File.Delete(oTempPath)
Catch ex As Exception
_logger.Error(ex)
_logger.Warn("Temp file could not be deleted")
End Try
Next
' Try
' File.Delete(oTempPath)
' Catch ex As Exception
' _logger.Error(ex)
' _logger.Warn("Temp file could not be deleted")
' End Try
' Next
_logger.Debug("{0} Messages fetched", oMessages.Count)
End Using
' _logger.Debug("{0} Messages fetched", oMessages.Count)
' End Using
Return oMessages
Catch ex As Exception
_logger.Error(ex)
Return Nothing
End Try
End Function
' Return oMessages
' Catch ex As Exception
' _logger.Error(ex)
' Return Nothing
' End Try
'End Function
''' <summary>
''' Uses a private API from MailWriter to write a MailMessage to disk.
@@ -144,120 +144,120 @@ Public Class Email
End Try
End Function
Public Function IMAP_COLLECT(INBOXNAME As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
Try
Dim oMAIL_LIST As New ArrayList()
_logger.Info(String.Format("Working on IMAP_COLLECT..."))
Dim oClient As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
oClient.Connect()
oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
oClient.SelectFolder("Inbox")
Dim oEnvelopes As Envelope() = oClient.ListMessages()
For i As Integer = 0 To oEnvelopes.Length - 1
If Not IsNothing(oEnvelopes(i).Subject) Then
'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
_logger.Info($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
Dim message As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
If Not IsNothing(message) Then
oMAIL_LIST.Add(message)
End If
'End If
End If
Next
'Public Function IMAP_COLLECT(INBOXNAME As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
' Try
' Dim oMAIL_LIST As New ArrayList()
' _logger.Info(String.Format("Working on IMAP_COLLECT..."))
' Dim oClient As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
' oClient.Connect()
' oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
' oClient.SelectFolder("Inbox")
' Dim oEnvelopes As Envelope() = oClient.ListMessages()
' For i As Integer = 0 To oEnvelopes.Length - 1
' If Not IsNothing(oEnvelopes(i).Subject) Then
' 'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
' _logger.Info($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
' Dim message As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
' If Not IsNothing(message) Then
' oMAIL_LIST.Add(message)
' End If
' 'End If
' End If
' Next
oClient.Disconnect()
_logger.Debug("IMAP_COLLECT finished!")
Return oMAIL_LIST
' oClient.Disconnect()
' _logger.Debug("IMAP_COLLECT finished!")
' Return oMAIL_LIST
Catch ex As Exception
_logger.Error(ex, "Unexpected Error in IMAP COLLECT:")
Return Nothing
End Try
End Function
Public Function TEST_IMAP_COLLECT(INBOXNAME As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
Try
' Catch ex As Exception
' _logger.Error(ex, "Unexpected Error in IMAP COLLECT:")
' Return Nothing
' End Try
'End Function
'Public Function TEST_IMAP_COLLECT(INBOXNAME As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
' Try
_logger.Info(String.Format("Working on TEST_IMAP_COLLECT....."))
Dim oClient As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
oClient.Connect()
oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
oClient.SelectFolder(INBOXNAME)
Dim oEnvelopes As Envelope() = oClient.ListMessages()
' _logger.Info(String.Format("Working on TEST_IMAP_COLLECT....."))
' Dim oClient As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
' oClient.Connect()
' oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
' oClient.SelectFolder(INBOXNAME)
' Dim oEnvelopes As Envelope() = oClient.ListMessages()
For i As Integer = 0 To oEnvelopes.Length - 1
If Not IsNothing(oEnvelopes(i).Subject) Then
'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
MsgBox($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
Dim message As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
End If
Next
oClient.Disconnect()
_logger.Info("TEST_IMAP_COLLECT finished!")
Return True
Catch ex As Exception
_logger.Error(ex, "Unexpected Error in TEST_IMAP_COLLECT:")
Return False
End Try
End Function
Public Function POP3_COLLECT(MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
Try
Dim oMAIL_LIST As New ArrayList()
_logger.Debug(String.Format("Working on POP3_COLLECT....."))
Dim oClient As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
' For i As Integer = 0 To oEnvelopes.Length - 1
' If Not IsNothing(oEnvelopes(i).Subject) Then
' 'If envelopes(i).Subject.ToString.ToUpper.Contains("[PROCESSMANAGER]") Or envelopes(i).Subject.ToString.ToUpper.Contains("[ADDI]") Then
' MsgBox($"Working on email: UniqueID: {oEnvelopes(i).UniqueID} - Subject:{oEnvelopes(i).Subject} - Date {oEnvelopes(i).Date.ToString}")
' Dim message As Mime.Message = oClient.GetMessage(oEnvelopes(i).UniqueID)
' End If
' Next
' oClient.Disconnect()
' _logger.Info("TEST_IMAP_COLLECT finished!")
' Return True
' Catch ex As Exception
' _logger.Error(ex, "Unexpected Error in TEST_IMAP_COLLECT:")
' Return False
' End Try
'End Function
'Public Function POP3_COLLECT(MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
' Try
' Dim oMAIL_LIST As New ArrayList()
' _logger.Debug(String.Format("Working on POP3_COLLECT....."))
' Dim oClient As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
oClient.ValidateRemoteCertificate = False
oClient.Connect()
_logger.Debug(String.Format("..connected!"))
oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
' oClient.ValidateRemoteCertificate = False
' oClient.Connect()
' _logger.Debug(String.Format("..connected!"))
' oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
Dim oMessageInfo As MessageInfo() = oClient.List()
' Dim oMessageInfo As MessageInfo() = oClient.List()
For i As Integer = 0 To oMessageInfo.Length - 1
Dim message As Message = oClient.GetMessage(oMessageInfo(i).Index)
oMAIL_LIST.Add(message)
Try
_logger.Debug(String.Format("Message [{0}] added", message.Subject))
Catch ex As Exception
' For i As Integer = 0 To oMessageInfo.Length - 1
' Dim message As Message = oClient.GetMessage(oMessageInfo(i).Index)
' oMAIL_LIST.Add(message)
' Try
' _logger.Debug(String.Format("Message [{0}] added", message.Subject))
' Catch ex As Exception
End Try
Next
' End Try
' Next
oClient.Disconnect()
_logger.Debug(String.Format(" POP3_COLLECT finished!"))
Return oMAIL_LIST
Catch ex As Exception
_logger.Error(ex)
' oClient.Disconnect()
' _logger.Debug(String.Format(" POP3_COLLECT finished!"))
' Return oMAIL_LIST
' Catch ex As Exception
' _logger.Error(ex)
Return Nothing
End Try
End Function
Public Function TEST_POP3_COLLECT(MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String) As Boolean
Try
_logger.Debug(String.Format("Working on TEST_POP3_COLLECT..."))
Dim oClient As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
' Return Nothing
' End Try
'End Function
'Public Function TEST_POP3_COLLECT(MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String) As Boolean
' Try
' _logger.Debug(String.Format("Working on TEST_POP3_COLLECT..."))
' Dim oClient As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
oClient.ValidateRemoteCertificate = False
oClient.Connect()
_logger.Debug(String.Format("..connected!"))
oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
' oClient.ValidateRemoteCertificate = False
' oClient.Connect()
' _logger.Debug(String.Format("..connected!"))
' oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
Dim messageInfo As MessageInfo() = oClient.List()
' Dim messageInfo As MessageInfo() = oClient.List()
For i As Integer = 0 To messageInfo.Length - 1
Dim message As Message = oClient.GetMessage(messageInfo(i).Index)
MsgBox(String.Format("Message [{0}] added", message.Subject))
' For i As Integer = 0 To messageInfo.Length - 1
' Dim message As Message = oClient.GetMessage(messageInfo(i).Index)
' MsgBox(String.Format("Message [{0}] added", message.Subject))
Next
' Next
oClient.Disconnect()
MsgBox(String.Format("TEST_POP3_COLLECT finished!"))
Return True
Catch ex As Exception
_logger.Error(ex)
' oClient.Disconnect()
' MsgBox(String.Format("TEST_POP3_COLLECT finished!"))
' Return True
' Catch ex As Exception
' _logger.Error(ex)
Return False
End Try
End Function
' Return False
' End Try
'End Function
Public Function NewEmail(mailto As String, mailSubject As String, mailBody As String,
mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
AUTH_TYPE As String, SENDER_INSTANCE As String, Optional attachmentString As String = "", Optional Test As Boolean = False)
@@ -363,197 +363,197 @@ Public Class Email
End Try
End Function
Public Function New_EmailISoft(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
from_mailaddress As String, from_name As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
AUTH_TYPE As String, SENDER_INSTANCE As String, Optional attment As String = "")
Try
Err_Message = ""
_msg_Send = False
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
_logger.Debug($"in Email_Send_Independentsoft..")
Dim empfaenger As String()
If mailto.Contains(";") Then
empfaenger = mailto.Split(";")
Else
ReDim Preserve empfaenger(0)
empfaenger(0) = mailto
End If
Dim _error As Boolean = False
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
_logger.Debug($"Working on email for {_mailempfaenger}..")
Try
Dim oMessage As New Message()
oMessage.From = New Mailbox(from_mailaddress, from_name)
'Public Function New_EmailISoft(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
' from_mailaddress As String, from_name As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
' AUTH_TYPE As String, SENDER_INSTANCE As String, Optional attment As String = "")
' Try
' Err_Message = ""
' _msg_Send = False
' ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
' _logger.Debug($"in Email_Send_Independentsoft..")
' Dim empfaenger As String()
' If mailto.Contains(";") Then
' empfaenger = mailto.Split(";")
' Else
' ReDim Preserve empfaenger(0)
' empfaenger(0) = mailto
' End If
' Dim _error As Boolean = False
' 'Für jeden Empfänger eine Neue Mail erzeugen
' For Each _mailempfaenger As String In empfaenger
' _logger.Debug($"Working on email for {_mailempfaenger}..")
' Try
' Dim oMessage As New Message()
' oMessage.From = New Mailbox(from_mailaddress, from_name)
oMessage.[To].Add(New Mailbox(_mailempfaenger))
oMessage.Subject = mailSubject
_logger.Debug($"Message created..")
Dim textBodyPart As New BodyPart()
textBodyPart.ContentType = New ContentType("text", "html", "utf-8")
textBodyPart.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
textBodyPart.Body = mailBody
oMessage.BodyParts.Add(textBodyPart)
If attment <> String.Empty Then
If System.IO.File.Exists(attment) Then
Dim attachment1 As New Independentsoft.Email.Mime.Attachment(attment)
If attment.ToLower.EndsWith("pdf") Then
attachment1.ContentType = New ContentType("application", "pdf")
ElseIf attment.ToLower.EndsWith("jpg") Then
attachment1.ContentType = New ContentType("application", "jpg")
ElseIf attment.ToLower.EndsWith("docx") Then
attachment1.ContentType = New ContentType("application", "MS-word")
End If
oMessage.BodyParts.Add(attachment1)
Else
_logger.Warn($"Attachment {attment.ToString} is not existing!")
End If
End If
Dim client As Independentsoft.Email.Smtp.SmtpClient
Try
client = New Independentsoft.Email.Smtp.SmtpClient(mailsmtp, mailport)
Catch ex As Exception
_logger.Warn("clsEmail.Create Client: " & ex.Message)
_error = True
Continue For
End Try
Try
client.Connect()
Catch ex As Exception
_logger.Warn("clsEmail.Client.Connect1: " & ex.Message)
_logger.Debug("Error in ClientConnect - but still trying to send")
_error = True
' Continue For
End Try
_logger.Debug("Connected to Client!")
If AUTH_TYPE = "SSL" Then
client.EnableSsl = True
'client.ValidateRemoteCertificate = True
_logger.Debug("Authentification via SSL.")
ElseIf AUTH_TYPE = "TLS" Then
' client.ValidateRemoteCertificate = False
client.StartTls()
client.EnableSsl = False
_logger.Debug("Authentification via TLS. SSL disabled")
Else
client.EnableSsl = False
_logger.Debug("Authentification NONE. SSL disabled")
End If
Try
' oMessage.[To].Add(New Mailbox(_mailempfaenger))
' oMessage.Subject = mailSubject
' _logger.Debug($"Message created..")
' Dim textBodyPart As New BodyPart()
' textBodyPart.ContentType = New ContentType("text", "html", "utf-8")
' textBodyPart.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
' textBodyPart.Body = mailBody
' oMessage.BodyParts.Add(textBodyPart)
' If attment <> String.Empty Then
' If System.IO.File.Exists(attment) Then
' Dim attachment1 As New Independentsoft.Email.Mime.Attachment(attment)
' If attment.ToLower.EndsWith("pdf") Then
' attachment1.ContentType = New ContentType("application", "pdf")
' ElseIf attment.ToLower.EndsWith("jpg") Then
' attachment1.ContentType = New ContentType("application", "jpg")
' ElseIf attment.ToLower.EndsWith("docx") Then
' attachment1.ContentType = New ContentType("application", "MS-word")
' End If
' oMessage.BodyParts.Add(attachment1)
' Else
' _logger.Warn($"Attachment {attment.ToString} is not existing!")
' End If
' End If
' Dim client As Independentsoft.Email.Smtp.SmtpClient
' Try
' client = New Independentsoft.Email.Smtp.SmtpClient(mailsmtp, mailport)
' Catch ex As Exception
' _logger.Warn("clsEmail.Create Client: " & ex.Message)
' _error = True
' Continue For
' End Try
' Try
' client.Connect()
' Catch ex As Exception
' _logger.Warn("clsEmail.Client.Connect1: " & ex.Message)
' _logger.Debug("Error in ClientConnect - but still trying to send")
' _error = True
' ' Continue For
' End Try
' _logger.Debug("Connected to Client!")
' If AUTH_TYPE = "SSL" Then
' client.EnableSsl = True
' 'client.ValidateRemoteCertificate = True
' _logger.Debug("Authentification via SSL.")
' ElseIf AUTH_TYPE = "TLS" Then
' ' client.ValidateRemoteCertificate = False
' client.StartTls()
' client.EnableSsl = False
' _logger.Debug("Authentification via TLS. SSL disabled")
' Else
' client.EnableSsl = False
' _logger.Debug("Authentification NONE. SSL disabled")
' End If
' Try
client.Connect()
Catch ex As Exception
_logger.Warn("clsEmail.Client.Connect: " & ex.Message)
Err_Message = "clsEmail.Client.Connect: " & ex.Message
_error = True
' Continue For
End Try
Try
If mailsmtp.Contains("office365.com") Then
client.Login(mailUser, mailPW, AuthenticationType.None)
Else
client.Login(mailUser, mailPW)
End If
' client.Connect()
' Catch ex As Exception
' _logger.Warn("clsEmail.Client.Connect: " & ex.Message)
' Err_Message = "clsEmail.Client.Connect: " & ex.Message
' _error = True
' ' Continue For
' End Try
' Try
' If mailsmtp.Contains("office365.com") Then
' client.Login(mailUser, mailPW, AuthenticationType.None)
' Else
' client.Login(mailUser, mailPW)
' End If
_logger.Debug("Logged in!")
Catch ex As Exception
Try
If mailsmtp.Contains("office365.com") Then
client.Login(mailUser, mailPW, AuthenticationType.Login)
Else
client.Login(mailUser, mailPW, AuthenticationType.Anonymous)
End If
' _logger.Debug("Logged in!")
' Catch ex As Exception
' Try
' If mailsmtp.Contains("office365.com") Then
' client.Login(mailUser, mailPW, AuthenticationType.Login)
' Else
' client.Login(mailUser, mailPW, AuthenticationType.Anonymous)
' End If
Catch ex1 As Exception
Try
client.Login(mailUser, mailPW, AuthenticationType.Login)
Catch ex2 As Exception
_logger.Warn("clsEmail.Client.Login: " & ex.Message)
_error = True
client.Disconnect()
Continue For
End Try
End Try
End Try
Try
client.Send(oMessage)
_logger.Info("Message to " & _mailempfaenger & " has been send.")
_msg_Send = True
_error = False
Catch ex As Exception
_logger.Warn("clsEmail.Client.Send: " & ex.Message)
Err_Message = ex.Message
_error = True
client.Disconnect()
Continue For
End Try
client.Disconnect()
' Catch ex1 As Exception
' Try
' client.Login(mailUser, mailPW, AuthenticationType.Login)
' Catch ex2 As Exception
' _logger.Warn("clsEmail.Client.Login: " & ex.Message)
' _error = True
' client.Disconnect()
' Continue For
' End Try
' End Try
' End Try
' Try
' client.Send(oMessage)
' _logger.Info("Message to " & _mailempfaenger & " has been send.")
' _msg_Send = True
' _error = False
' Catch ex As Exception
' _logger.Warn("clsEmail.Client.Send: " & ex.Message)
' Err_Message = ex.Message
' _error = True
' client.Disconnect()
' Continue For
' End Try
' client.Disconnect()
Catch ex As Exception
Err_Message = ex.Message
If _msg_Send = True Then
_logger.Info($"Error Closing Connection [{ex.Message}]")
Else
_logger.Error(ex)
End If
_error = True
End Try
Next
' Catch ex As Exception
' Err_Message = ex.Message
' If _msg_Send = True Then
' _logger.Info($"Error Closing Connection [{ex.Message}]")
' Else
' _logger.Error(ex)
' End If
' _error = True
' End Try
' Next
If _error = True Then
Return False
Else
Return True
End If
Catch ex As Exception
_logger.Error(ex)
Err_Message = ex.Message
Return False
End Try
End Function
Public Function DELETE_EMAIL(POLLTYPE As String, msgid As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
Try
If POLLTYPE = "POP" Then
Dim oClient As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
' If _error = True Then
' Return False
' Else
' Return True
' End If
' Catch ex As Exception
' _logger.Error(ex)
' Err_Message = ex.Message
' Return False
' End Try
'End Function
'Public Function DELETE_EMAIL(POLLTYPE As String, msgid As String, MYMAIL_SERVER As String, MYMAIL_PORT As Integer, MYMAIL_USER As String, MYMAIL_USER_PW As String)
' Try
' If POLLTYPE = "POP" Then
' Dim oClient As New Pop3Client(MYMAIL_SERVER, MYMAIL_PORT)
oClient.ValidateRemoteCertificate = False
oClient.Connect()
oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
' oClient.ValidateRemoteCertificate = False
' oClient.Connect()
' oClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
Dim oMessageInfo As MessageInfo() = oClient.List()
' Dim oMessageInfo As MessageInfo() = oClient.List()
For i As Integer = 0 To oMessageInfo.Length - 1
Dim message As Message = oClient.GetMessage(oMessageInfo(i).Index)
If message.MessageID = msgid Then
oClient.Delete(oMessageInfo(i).Index)
_logger.Info(String.Format("Message [{0}] was deleted!", message.Subject))
Exit For
End If
Next
oClient.Disconnect()
Return True
ElseIf POLLTYPE = "IMAP" Then
Dim oIMAPClient As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
' For i As Integer = 0 To oMessageInfo.Length - 1
' Dim message As Message = oClient.GetMessage(oMessageInfo(i).Index)
' If message.MessageID = msgid Then
' oClient.Delete(oMessageInfo(i).Index)
' _logger.Info(String.Format("Message [{0}] was deleted!", message.Subject))
' Exit For
' End If
' Next
' oClient.Disconnect()
' Return True
' ElseIf POLLTYPE = "IMAP" Then
' Dim oIMAPClient As New ImapClient(MYMAIL_SERVER, MYMAIL_PORT)
oIMAPClient.ValidateRemoteCertificate = False
oIMAPClient.Connect()
oIMAPClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
' oIMAPClient.ValidateRemoteCertificate = False
' oIMAPClient.Connect()
' oIMAPClient.Login(MYMAIL_USER, MYMAIL_USER_PW)
oIMAPClient.SelectFolder("Inbox")
Dim envelopes As Envelope() = oIMAPClient.ListMessages()
For i As Integer = 0 To envelopes.Length - 1
If envelopes(i).MessageID = msgid Then
oIMAPClient.Delete(envelopes(i).UniqueID) 'mark as deleted
End If
Next
oIMAPClient.Expunge() 'delete messages marked as deleted
oIMAPClient.Disconnect()
Return True
End If
Catch ex As Exception
_logger.Error(ex)
'clsLogger.Add("Unexpected Error in DELETE_EMAIL: " & ex.Message)
Return False
End Try
End Function
' oIMAPClient.SelectFolder("Inbox")
' Dim envelopes As Envelope() = oIMAPClient.ListMessages()
' For i As Integer = 0 To envelopes.Length - 1
' If envelopes(i).MessageID = msgid Then
' oIMAPClient.Delete(envelopes(i).UniqueID) 'mark as deleted
' End If
' Next
' oIMAPClient.Expunge() 'delete messages marked as deleted
' oIMAPClient.Disconnect()
' Return True
' End If
' Catch ex As Exception
' _logger.Error(ex)
' 'clsLogger.Add("Unexpected Error in DELETE_EMAIL: " & ex.Message)
' Return False
' End Try
'End Function
End Class

66
Modules.Messaging/Limilab.vb
View File

@@ -19,13 +19,12 @@ Public Class Limilab
Private User As String
Private Password As String
Private AuthType As String
Private LimilabImapObject As Imap
Public CurrentImapObject As Imap
Public ErrorMessage As String
Private CURR_ListUIDs As List(Of Long)
Public Sub New(LogConfig As LogConfig)
LogConfig = LogConfig
Logger = LogConfig.GetLogger()
Logger.Info("Limilab initialized")
End Sub
''' <summary>
''' Initializes the module.
@@ -50,7 +49,10 @@ Public Class Limilab
If Initialized = False Then
Return True
Else
LimilabImapObject.Close()
If Not IsNothing(CurrentImapObject) Then
CurrentImapObject.Close()
End If
Return True
End If
@@ -81,7 +83,7 @@ Public Class Limilab
Logger.Debug("Connecting...")
Dim oReturn As Boolean = ImapConnect()
If oReturn = True Then
LimilabImapObject.Close()
CurrentImapObject.Close()
End If
Return oReturn
Catch ex As Exception
@@ -110,6 +112,26 @@ Public Class Limilab
Return Nothing
End Try
End Function
Public Function IMAPGetMessageIDs_AllMails() As List(Of Long)
Dim oListuids As New List(Of Long)
Logger.Debug("Starting IMAPGetMessageIDs ...")
If Initialized = False Then
Return Nothing
End If
Try
Dim oConnect As Boolean = ImapConnect()
If oConnect = True Then
oListuids = ImapGetMessageIDs_All()
CURR_ListUIDs = oListuids
End If
Return oListuids
Catch ex As Exception
Logger.Error(ex)
ErrorMessage = ex.Message
Return Nothing
End Try
End Function
Private Function ImapConnect() As Boolean
Try
If Initialized = False Then
@@ -153,7 +175,7 @@ Public Class Limilab
Logger.Debug("Login with User and password...")
oReturnImap.UseBestLogin(User, Password)
Logger.Debug(">> Logged on!")
LimilabImapObject = oReturnImap
CurrentImapObject = oReturnImap
Return True
Catch ex As Exception
Logger.Error(ex)
@@ -186,9 +208,24 @@ Public Class Limilab
Private Function ImapGetMessageIDs_Unseen() As List(Of Long)
Dim oListuids As New List(Of Long)
Try
LimilabImapObject.SelectInbox()
CurrentImapObject.SelectInbox()
oListuids = LimilabImapObject.Search(Flag.Unseen)
oListuids = CurrentImapObject.Search(Flag.Unseen)
Return oListuids
Catch ex As Exception
Logger.Error(ex)
ErrorMessage = ex.Message
Return Nothing
End Try
End Function
Private Function ImapGetMessageIDs_All() As List(Of Long)
Dim oListuids As New List(Of Long)
Try
CurrentImapObject.SelectInbox()
oListuids = CurrentImapObject.Search(Flag.All)
Return oListuids
Catch ex As Exception
@@ -302,7 +339,7 @@ Public Class Limilab
End Function
Public Function GetMailInfo(UID As Long) As Boolean
Try
Dim eml = LimilabImapObject.GetMessageByUID(UID)
Dim eml = CurrentImapObject.GetMessageByUID(UID)
Dim email As IMail = New MailBuilder().CreateFromEml(eml)
' Subject
Console.WriteLine(email.Subject)
@@ -336,7 +373,7 @@ Public Class Limilab
Try
Dim WORKMAIL_LIST As New ArrayList()
For Each oUID In CURR_ListUIDs
Dim oEml = LimilabImapObject.GetMessageByUID(oUID)
Dim oEml = CurrentImapObject.GetMessageByUID(oUID)
Dim oEmail As IMail = New MailBuilder().CreateFromEml(oEml)
WORKMAIL_LIST.Add(oEmail)
Next
@@ -348,10 +385,15 @@ Public Class Limilab
End Try
End Function
Public Function IMAP_DeleteByUID(UID As String) As Boolean
Public Function IMAP_DeleteByUID(UID As Long) As Boolean
Try
LimilabImapObject.DeleteMessageByUID(UID)
Return True
If Not IsNothing(CurrentImapObject) Then
CurrentImapObject.DeleteMessageByUID(UID)
Return True
Else
Return False
End If
Catch ex As Exception
Logger.Error(ex)
ErrorMessage = ex.Message

6
Modules.Messaging/Messaging.vbproj
View File

@@ -43,9 +43,6 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="Independentsoft.Email">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll</HintPath>
</Reference>
<Reference Include="Mail">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
@@ -54,9 +51,6 @@
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="S22.Imap, Version=3.6.0.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />

4
Modules.Messaging/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.0.0")>
<Assembly: AssemblyFileVersion("1.5.0.0")>
<Assembly: AssemblyVersion("1.7.1.0")>
<Assembly: AssemblyFileVersion("1.7.1.0")>