EMailProfiler.Common: Neue Extract Attachments-Logik & InfoMail Logik

App/EmailProfiler.Common/Data/EmailAttachment.vb

@@ -0,0 +1,27 @@
+Imports System.IO
+Imports GdPicture14
+
+Public Class EmailAttachment
+    Public OrgFileName As String = ""
+    Public DestFileName As String = ""
+    Public DestFilePath As String = ""
+
+    Public FileStatus As GdPictureStatus = GdPictureStatus.OK
+
+    Public IsValidExtension As Boolean = True
+    Public SendInfoMailNecessary As Boolean = False
+    Public ErrorCodeValue As ErrorCode = ErrorCode.Unknown
+
+    Public EmbeddedFiles As List(Of EmailAttachment) = New List(Of EmailAttachment)
+
+    Public ReadOnly Property Extension As String
+        Get
+            If String.IsNullOrEmpty(OrgFileName) = False Then
+                Return Path.GetExtension(OrgFileName)
+            Else
+                Return String.Empty
+            End If
+        End Get
+    End Property
+
+End Class