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

Ms Email

Browse Source
This commit is contained in:
SchreiberM
2022-10-18 09:59:43 +02:00
parent 25a4156429
commit c8b20d3a8c
3 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Messaging/Email.vb
View File

@@ -294,9 +294,12 @@ Public Class Email
_logger.Debug("SSL = false") _logger.Debug("SSL = false")
myClient.EnableSsl = False myClient.EnableSsl = False
End If End If
_logger.Debug($"mailUser [{mailUser}]") If mailUser <> String.Empty Then
myClient.Credentials = New NetworkCredential(mailUser, mailPW) _logger.Debug($"mailUser [{mailUser}]")
myClient.UseDefaultCredentials = False myClient.Credentials = New NetworkCredential(mailUser, mailPW)
myClient.UseDefaultCredentials = False
End If
If Test = True Then If Test = True Then
myMesssage.Body = $"This is the body (text will be replaced within profile)! <br> mailsmtp: {mailsmtp} <br> mailport: {mailport} <br> mailUser: {mailUser} <br> mailPW: XXXX <br> AUTH_TYPE: {AUTH_TYPE}" myMesssage.Body = $"This is the body (text will be replaced within profile)! <br> mailsmtp: {mailsmtp} <br> mailport: {mailport} <br> mailUser: {mailUser} <br> mailPW: XXXX <br> AUTH_TYPE: {AUTH_TYPE}"

7
Messaging/Email2.vb
View File

@@ -69,9 +69,10 @@ Public Class Email2
pSMTP.StartTLS() pSMTP.StartTLS()
End If End If
Logger.Debug("Connection to SMTP Server [{0}] established!", pServer) Logger.Debug("Connection to SMTP Server [{0}] established!", pServer)
If pUsername <> String.Empty Then
Logger.Debug("Logging in with user [{0}]", pUsername) Logger.Debug("Logging in with user [{0}]", pUsername)
pSMTP.UseBestLogin(pUsername, pPassword) pSMTP.UseBestLogin(pUsername, pPassword)
End If
Return pSMTP Return pSMTP

9
Messaging/MailSender.vb
View File

@@ -39,7 +39,7 @@ Public Class MailSender
Password = pPassword Password = pPassword
AuthType = pAuthType AuthType = pAuthType
Logger.Info("Connecting to Server..") Logger.Debug("Connecting to Server..")
Logger.Debug("SMTP Server: [{0}]", Server) Logger.Debug("SMTP Server: [{0}]", Server)
Logger.Debug("SMTP Port: [{0}]", Port) Logger.Debug("SMTP Port: [{0}]", Port)
Logger.Debug("SMTP User: [{0}]", User) Logger.Debug("SMTP User: [{0}]", User)
@@ -108,9 +108,10 @@ Public Class MailSender
End If End If
Try Try
Logger.Info("Logging in with user [{0}]", pUser) If pUser <> String.Empty Then
oSession.UseBestLogin(pUser, pPassword) Logger.Info("Logging in with user [{0}]", pUser)
oSession.UseBestLogin(pUser, pPassword)
End If
Catch ex As Exception Catch ex As Exception
Logger.Warn("Error while connecting with Auth type PLAINTEXT!") Logger.Warn("Error while connecting with Auth type PLAINTEXT!")
Logger.Error(ex) Logger.Error(ex)