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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-09-20 14:19:37 +02:00
parent 25f8db19ad
commit d04c3ab202
50 changed files with 457 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
App/DigitalData.EMLProfiler/clsEmail.vb
View File

@@ -108,21 +108,18 @@ Public Class clsEmail
Return True
ElseIf CURRENT_POLL_TYPE = "IMAP" Then
Try
Dim oClient As New ImapClient(MAIL_SERVER, MAIL_PORT)
'Using oClient As New S22.Imap.ImapClient(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, S22.Imap.AuthMethod.Login, True)
' Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, MAIL_INBOX_NAME)
' For Each oMessageId As UInteger In oMessageIds
' If oMessageId = msgid Then
' Logger.Debug($"DELETE_EMAILMessage shall be deleted...")
' oClient.DeleteMessage(oMessageId)
' Logger.Debug($"DELETE_EMAILMessage has been deleted!")
' End If
' Next
' oClient.Expunge() 'delete messages marked as deleted
oClient.ValidateRemoteCertificate = False
oClient.Connect()
oClient.Login(MAIL_USER, MAIL_USER_PW)
oClient.SelectFolder("Inbox")
Dim oEnvelopes As Envelope() = oClient.ListMessages()
For i As Integer = 0 To oEnvelopes.Length - 1
If oEnvelopes(i).MessageID = msgid Then
oClient.Delete(oEnvelopes(i).UniqueID) 'mark as deleted
End If
Next
oClient.Expunge() 'delete messages marked as deleted
oClient.Disconnect()
'End Using
Return True
Catch ex As Exception
Logger.Warn("Error in IMAP Delete: " & ex.Message)