edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ids

Browse Source
This commit is contained in:
d.breimaier
2024-11-15 09:03:55 +01:00
parent 7c5cc78882
commit a73c3dabe6
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -4,6 +4,7 @@ Imports System.IO
Imports System.Net Imports System.Net
Imports System.Reflection Imports System.Reflection
Imports System.Windows.Forms Imports System.Windows.Forms
Imports com.sun.tools.corba.se.idl.constExpr
Imports com.sun.xml.internal.ws.api.pipe Imports com.sun.xml.internal.ws.api.pipe
Imports javax.print.attribute.standard Imports javax.print.attribute.standard
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
@@ -506,11 +507,12 @@ Public Class cIDSInvoice
Shared Function isMail_IDS(mailItem As Outlook.MailItem) As Boolean 'Shared Function isMail_IDS(mailItem As Outlook.MailItem) As Boolean
Shared Function isMail_IDS(html As String) As Boolean
Try Try
If mailItem IsNot Nothing Then If html IsNot Nothing Then
Dim srch As String = "https://admin.unifiedpost.com/umadmin/viewDoc?doc=" Dim srch As String = "https://admin.unifiedpost.com/umadmin/viewDoc?doc="
Return mailItem.HTMLBody.ToString.Contains(srch) Return html.Contains(srch)
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -521,13 +523,14 @@ Public Class cIDSInvoice
Shared Function getPDF_IDS(ByRef mailItem As Outlook.MailItem, ByRef filename As String, ByRef targetpath As String) As Boolean 'Shared Function getPDF_IDS(ByRef mailItem As Outlook.MailItem, ByRef filename As String, ByRef targetpath As String) As Boolean
Shared Function getPDF_IDS(ByRef htmlText As String, ByRef filename As String, ByRef targetpath As String) As Boolean
Try Try
If mailItem Is Nothing Then Return False If htmlText Is Nothing Then Return False
Dim html = mailItem.HTMLBody Dim html = htmlText
Dim srch As String = "https://admin.unifiedpost.com/" Dim srch As String = "https://admin.unifiedpost.com/"
If html.ToString.Contains(srch) Then If html.ToString.Contains(srch) Then