This commit is contained in:
2020-01-29 15:11:33 +01:00
parent 37693a8fc0
commit fbb4d8ad2e
14 changed files with 17 additions and 114 deletions

View File

@@ -134,10 +134,13 @@ Public Class clsWorker
End If
If pollresult = False Then
Logger.Warn(String.Format("Error while polling emails...."))
Logger.Warn(String.Format("Error while polling emails...Trying S22...."))
pollresult = _emailIMAP.FetchIMAPMessages(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_INBOX_NAME)
If pollresult = False Then
Logger.Warn(String.Format("S22 also returned error!"))
End If
End If
If MAIL_LIST.Count() > 0 Then
If MAIL_LIST.Count() > 0 Then
Logger.Info(String.Format("Worked/Pulled: {0} E-Mails", MAIL_LIST.Count()))
For Each pulled_msg As Message In MAIL_LIST
If _workmail.WORK_MAIL(pulled_msg) = True Then