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

MS Interfaces Update GDPicture

Browse Source
This commit is contained in:
SchreiberM 2024-04-26 08:59:22 +02:00
parent 36e8c8a9b9
commit 32346c075a
4 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Interfaces/My Project/AssemblyInfo.vb
View File

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

4
Interfaces/ZUGFeRDInterface/PropertyValues.vb
View File

@ -104,7 +104,9 @@ Public Class PropertyValues
Dim oPropertyValue = oColumn.Value.ElementAtOrDefault(oRowIndex) Dim oPropertyValue = oColumn.Value.ElementAtOrDefault(oRowIndex)
_logger.Debug("Processing itemSpecification *TableColumn* [{0}].", oTableColumn) _logger.Debug("Processing itemSpecification *TableColumn* [{0}].", oTableColumn)
If oTableColumn = "INVOICE_SELLER_EMAIL" Then
Console.WriteLine("INVOICE_SELLER_EMAIL")
End If
If IsNothing(oPropertyValue) OrElse String.IsNullOrEmpty(oPropertyValue) Then If IsNothing(oPropertyValue) OrElse String.IsNullOrEmpty(oPropertyValue) Then
If oColumn.Key.IsRequired Then If oColumn.Key.IsRequired Then
_logger.Warn($"{MessageId} # oPropertyValue for specification [{oTableColumn}] is empty or not found but is required. Continuing with Empty String.") _logger.Warn($"{MessageId} # oPropertyValue for specification [{oTableColumn}] is empty or not found but is required. Continuing with Empty String.")

17
Messaging/Mail/MailSender.vb
View File

@ -40,7 +40,6 @@ Namespace Mail
Try Try
Dim oSuccessfulSends As New List(Of String) Dim oSuccessfulSends As New List(Of String)
Dim oFailedSends As New List(Of String) Dim oFailedSends As New List(Of String)
For Each oSendToAddress In pSendTo For Each oSendToAddress In pSendTo
Dim oResult = SendMailTo(oSendToAddress, pSendFrom, pSubject, pBody, pCreationTime, pAttachments, pTest) Dim oResult = SendMailTo(oSendToAddress, pSendFrom, pSubject, pBody, pCreationTime, pAttachments, pTest)
@ -54,8 +53,11 @@ Namespace Mail
Logger.Debug("Sent [{0}] mails.", pSendTo.Count) Logger.Debug("Sent [{0}] mails.", pSendTo.Count)
Logger.Debug("Successful [{0}]", oSuccessfulSends.Count) Logger.Debug("Successful [{0}]", oSuccessfulSends.Count)
Logger.Debug("Failed [{0}]", oFailedSends.Count) Logger.Debug("Failed [{0}]", oFailedSends.Count)
If oFailedSends.Count > 0 Then
Return True Return False
Else
Return True
End If
Catch ex As Exception Catch ex As Exception
Logger.Warn("Error in SendMail() - while sending mail [{0} - Subject: {1}]", pSendTo, pSubject) Logger.Warn("Error in SendMail() - while sending mail [{0} - Subject: {1}]", pSendTo, pSubject)
Logger.Error(ex) Logger.Error(ex)
@ -74,7 +76,7 @@ Namespace Mail
Return False Return False
End If End If
Logger.Debug("Preparing to send mail to [{0}]", pSendTo) Logger.Debug("Preparing to send mail: {0} ...", pSendTo + "|" + pSubject)
Dim oMailBuilder As New Limilabs.Mail.MailBuilder() Dim oMailBuilder As New Limilabs.Mail.MailBuilder()
oMailBuilder.From.Add(New Limilabs.Mail.Headers.MailBox(pSendFrom)) oMailBuilder.From.Add(New Limilabs.Mail.Headers.MailBox(pSendFrom))
@ -87,16 +89,17 @@ Namespace Mail
Logger.Debug("Adding [{0}] attachments to mail", pAttachments.Count) Logger.Debug("Adding [{0}] attachments to mail", pAttachments.Count)
oMailBuilder = AddAttachments(oMailBuilder, pAttachments) oMailBuilder = AddAttachments(oMailBuilder, pAttachments)
Logger.Debug("Now sending mail..") Logger.Debug("Now sending mail...")
Dim oMail = oMailBuilder.Create() Dim oMail = oMailBuilder.Create()
oClient.SendMessage(oMail) oClient.SendMessage(oMail)
Logger.Info("Mail to [{0}] has been sent.", pSendTo + "|" + pSubject) Logger.Info("Mail [{0}] has been sent.", pSendTo + "|" + pSubject)
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Warn("Error in SendMailTo() to [{0} - Subject: {1}]", pSendTo, pSubject) Logger.Warn("Error in SendMailTo() - Mailinfo: {0} - Subject: {1}", pSendTo, pSubject)
Logger.Error(ex) Logger.Error(ex)
MailSession.DisconnectFromServer()
Return False Return False
End Try End Try

1
Messaging/Mail/MailSession.vb
View File

@ -177,6 +177,7 @@ Namespace Mail
Catch ex As Exception Catch ex As Exception
Logger.Warn("Error while connecting with Auth type SSL!") Logger.Warn("Error while connecting with Auth type SSL!")
Logger.Warn($"Error-message: {ex.Message}")
Logger.Error(ex) Logger.Error(ex)
Session.Error = ex Session.Error = ex