neu

VERAGAddIn/My Project/AssemblyInfo.vb

@@ -35,8 +35,8 @@ Imports System.Security
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.0.3")>
+<Assembly: AssemblyVersion("1.0.0.4")>
-<Assembly: AssemblyFileVersion("1.0.0.3")>
+<Assembly: AssemblyFileVersion("1.0.0.4")>
 
 Friend Module DesignTimeConstants
     Public Const RibbonTypeSerializer As String = "Microsoft.VisualStudio.Tools.Office.Ribbon.Serialization.RibbonTypeCodeDomSerializer, Microsoft.VisualStudio.Tools.Office.Designer, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"

VERAGAddIn/My Project/Resources.Designer.vb

@@ -60,6 +60,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _665209_email_512x512() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("_665209_email_512x512", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -79,5 +89,45 @@ Namespace My.Resources
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property email_big1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("email_big1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property pdf() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("pdf", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property pdfprint() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("pdfprint", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property wheel() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("wheel", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Module
 End Namespace

VERAGAddIn/My Project/Resources.resx

@@ -118,10 +118,25 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="_665209_email_512x512" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\665209_email_512x512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Aviso1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pdfprint" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdfprint.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

VERAGAddIn/ThisAddIn.vb

@@ -18,6 +18,11 @@ Public Class ThisAddIn
                                         '  MsgBox("JOAS")
                                         TestPrintFirstPage()
                                     End Sub
+
+        AddHandler rbnMailItem.bla, Sub()
+                                        '  MsgBox("JOAS")
+                                        '         TestPrintFirstPage()
+                                    End Sub
     End Sub
     Private APP = Me.Application
 
@@ -47,10 +52,6 @@ Public Class ThisAddIn
         ' wdDoc.Close(False)
         ' wdApp.Quit()
     End Sub
-
-
-
-
 End Class
 
 

VERAGAddIn/VERAGAddIn.vbproj

@@ -26,23 +26,23 @@
     <OutputType>Library</OutputType>
     <RootNamespace>VERAGAddIn</RootNamespace>
     <AssemblyName>VERAGAddIn</AssemblyName>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
     <DefineConstants>VSTO40</DefineConstants>
     <StartupObject>
     </StartupObject>
     <TargetFrameworkProfile />
-    <IsWebBootstrapper>False</IsWebBootstrapper>
+    <IsWebBootstrapper>True</IsWebBootstrapper>
     <BootstrapperEnabled>true</BootstrapperEnabled>
-    <PublishUrl>D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\</PublishUrl>
+    <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
-    <InstallUrl />
+    <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.0.43</ApplicationVersion>
+    <ApplicationVersion>1.0.1.89</ApplicationVersion>
-    <AutoIncrementApplicationRevision>false</AutoIncrementApplicationRevision>
+    <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
-    <UpdateInterval>7</UpdateInterval>
+    <UpdateInterval>0</UpdateInterval>
     <UpdateIntervalUnits>days</UpdateIntervalUnits>
     <ProductName>VERAGAddIn</ProductName>
-    <PublisherName />
+    <PublisherName>VERAG Spedition AG</PublisherName>
     <SupportUrl />
     <FriendlyName>VERAGAddIn</FriendlyName>
     <OfficeApplicationDescription />
@@ -59,6 +59,11 @@
       <ProductName>Microsoft .NET Framework 4.6.1 %28x86 und x64%29</ProductName>
       <Install>true</Install>
     </BootstrapperPackage>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.7">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4.7 %28x86 und x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
     <BootstrapperPackage Include="Microsoft.Net.Client.3.5">
       <Visible>False</Visible>
       <ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
@@ -211,6 +216,18 @@
   -->
   <ItemGroup>
     <AppDesigner Include="My Project\" />
+    <Compile Include="frmAvisoAnfügen.Designer.vb">
+      <DependentUpon>frmAvisoAnfügen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAvisoAnfügen.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="rbnMailItem.Designer.vb">
+      <DependentUpon>rbnMailItem.vb</DependentUpon>
+    </Compile>
+    <Compile Include="rbnMailItem.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="rbnVERAG.Designer.vb">
       <DependentUpon>rbnVERAG.vb</DependentUpon>
     </Compile>
@@ -220,10 +237,19 @@
     <Compile Include="ThisAddIn.vb">
       <SubType>Code</SubType>
     </Compile>
+    <EmbeddedResource Include="frmAvisoAnfügen.resx">
+      <DependentUpon>frmAvisoAnfügen.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="rbnMailItem.resx">
+      <DependentUpon>rbnMailItem.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="rbnVERAG.resx">
       <DependentUpon>rbnVERAG.vb</DependentUpon>
     </EmbeddedResource>
     <None Include="app.config" />
+    <None Include="Resources\GS\gsdll32.lib">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="ThisAddIn.Designer.xml">
       <DependentUpon>ThisAddIn.vb</DependentUpon>
     </None>
@@ -312,6 +338,24 @@
   <ItemGroup>
     <None Include="Resources\Aviso1.png" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\pdf.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\665209_email_512x512.png" />
+    <None Include="Resources\email_big1.png" />
+    <Content Include="Resources\GS\gsdll32.dll">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Resources\GS\gswin32.exe">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Resources\GS\gswin32c.exe">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <None Include="Resources\wheel.png" />
+    <None Include="Resources\pdfprint.png" />
+  </ItemGroup>
   <PropertyGroup>
     <VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
     <VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>
@@ -341,6 +385,9 @@
   <PropertyGroup>
     <DelaySign>false</DelaySign>
   </PropertyGroup>
+  <PropertyGroup>
+    <AutoGenerateBindingRedirects>false</AutoGenerateBindingRedirects>
+  </PropertyGroup>
   <!-- Include the build rules for a Visual Basic project. -->
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- Include additional build rules for an Office application add-in. -->

VERAGAddIn/app.config

@@ -14,6 +14,10 @@
         <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-1.8.5.0" newVersion="1.8.5.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
-<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" /></startup></configuration>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" /></startup></configuration>

VERAGAddIn/frmAvisoAnfügen.Designer.vb

@@ -0,0 +1,456 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmAvisoAnfuegen
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoAnfuegen))
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.bttnSaveMail = New System.Windows.Forms.Button()
+        Me.btnSaveAttachments = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblErr_Bezeichnung = New System.Windows.Forms.Label()
+        Me.lblErr_Aviso = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbx = New System.Windows.Forms.CheckBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtSrchDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvSendungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAviso, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(12, 9)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(34, 13)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "LKW:"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label14.ForeColor = System.Drawing.Color.Black
+        Me.Label14.Location = New System.Drawing.Point(12, 51)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(33, 13)
+        Me.Label14.TabIndex = 2
+        Me.Label14.Text = "Filiale"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label13.ForeColor = System.Drawing.Color.Black
+        Me.Label13.Location = New System.Drawing.Point(97, 51)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(103, 13)
+        Me.Label13.TabIndex = 3
+        Me.Label13.Text = "Abfertigungsnummer"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(507, 25)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(123, 66)
+        Me.Button1.TabIndex = 8
+        Me.Button1.Text = "Suche"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'bttnSaveMail
+        '
+        Me.bttnSaveMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.bttnSaveMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.bttnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
+        Me.bttnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.bttnSaveMail.Location = New System.Drawing.Point(451, 590)
+        Me.bttnSaveMail.Name = "bttnSaveMail"
+        Me.bttnSaveMail.Size = New System.Drawing.Size(179, 53)
+        Me.bttnSaveMail.TabIndex = 11
+        Me.bttnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
+        Me.bttnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.bttnSaveMail.UseVisualStyleBackColor = True
+        '
+        'btnSaveAttachments
+        '
+        Me.btnSaveAttachments.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnSaveAttachments.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSaveAttachments.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
+        Me.btnSaveAttachments.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSaveAttachments.Location = New System.Drawing.Point(239, 591)
+        Me.btnSaveAttachments.Name = "btnSaveAttachments"
+        Me.btnSaveAttachments.Size = New System.Drawing.Size(206, 69)
+        Me.btnSaveAttachments.TabIndex = 9
+        Me.btnSaveAttachments.Text = "Nur Anhänge speichern"
+        Me.btnSaveAttachments.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSaveAttachments.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 539)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(112, 13)
+        Me.Label2.TabIndex = 12
+        Me.Label2.Text = "Anhang-Bezeichnung:"
+        '
+        'lblErr_Bezeichnung
+        '
+        Me.lblErr_Bezeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblErr_Bezeichnung.AutoSize = True
+        Me.lblErr_Bezeichnung.BackColor = System.Drawing.Color.White
+        Me.lblErr_Bezeichnung.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Bezeichnung.Location = New System.Drawing.Point(434, 518)
+        Me.lblErr_Bezeichnung.Name = "lblErr_Bezeichnung"
+        Me.lblErr_Bezeichnung.Size = New System.Drawing.Size(117, 13)
+        Me.lblErr_Bezeichnung.TabIndex = 14
+        Me.lblErr_Bezeichnung.Text = "Bezeichnung angeben!"
+        Me.lblErr_Bezeichnung.Visible = False
+        '
+        'lblErr_Aviso
+        '
+        Me.lblErr_Aviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblErr_Aviso.AutoSize = True
+        Me.lblErr_Aviso.BackColor = System.Drawing.Color.White
+        Me.lblErr_Aviso.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Aviso.Location = New System.Drawing.Point(222, 518)
+        Me.lblErr_Aviso.Name = "lblErr_Aviso"
+        Me.lblErr_Aviso.Size = New System.Drawing.Size(90, 13)
+        Me.lblErr_Aviso.TabIndex = 15
+        Me.lblErr_Aviso.Text = "Aviso auswählen!"
+        Me.lblErr_Aviso.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label1.ForeColor = System.Drawing.Color.Black
+        Me.Label1.Location = New System.Drawing.Point(12, 591)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(84, 13)
+        Me.Label1.TabIndex = 17
+        Me.Label1.Text = "Such-Datum ab:"
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(12, 564)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 13)
+        Me.Label3.TabIndex = 19
+        Me.Label3.Text = "Kategorie:"
+        '
+        'cbx
+        '
+        Me.cbx.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbx.AutoSize = True
+        Me.cbx.Checked = True
+        Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbx.Location = New System.Drawing.Point(451, 644)
+        Me.cbx.Name = "cbx"
+        Me.cbx.Size = New System.Drawing.Size(179, 17)
+        Me.cbx.TabIndex = 22
+        Me.cbx.Text = "Anhänge zusätzlich abspeichern"
+        Me.cbx.UseVisualStyleBackColor = True
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.Location = New System.Drawing.Point(15, 644)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(118, 17)
+        Me.CheckBox1.TabIndex = 23
+        Me.CheckBox1.Text = "Anhänge speichern"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        Me.CheckBox1.Visible = False
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.ColumnHeadersVisible = False
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(15, 665)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(615, 129)
+        Me.dgvAnhaenge.TabIndex = 21
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'cboArt
+        '
+        Me.cboArt._allowedValuesFreiText = Nothing
+        Me.cboArt._allowFreiText = False
+        Me.cboArt._value = ""
+        Me.cboArt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboArt.FormattingEnabled = True
+        Me.cboArt.Location = New System.Drawing.Point(133, 556)
+        Me.cboArt.Name = "cboArt"
+        Me.cboArt.Size = New System.Drawing.Size(497, 28)
+        Me.cboArt.TabIndex = 20
+        '
+        'txtSrchDat
+        '
+        Me.txtSrchDat._DateTimeOnly = False
+        Me.txtSrchDat._numbersOnly = False
+        Me.txtSrchDat._numbersOnlyKommastellen = ""
+        Me.txtSrchDat._Prozent = False
+        Me.txtSrchDat._ShortDateNew = True
+        Me.txtSrchDat._ShortDateOnly = False
+        Me.txtSrchDat._TimeOnly = False
+        Me.txtSrchDat._value = ""
+        Me.txtSrchDat._Waehrung = False
+        Me.txtSrchDat._WaehrungZeichen = True
+        Me.txtSrchDat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtSrchDat.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!)
+        Me.txtSrchDat.Location = New System.Drawing.Point(15, 607)
+        Me.txtSrchDat.MaxLength = 10
+        Me.txtSrchDat.MaxLineLength = -1
+        Me.txtSrchDat.MaxLines_Warning = ""
+        Me.txtSrchDat.MaxLines_Warning_Label = Nothing
+        Me.txtSrchDat.Name = "txtSrchDat"
+        Me.txtSrchDat.Size = New System.Drawing.Size(100, 24)
+        Me.txtSrchDat.TabIndex = 18
+        '
+        'dgvSendungen
+        '
+        Me.dgvSendungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvSendungen.AllowUserToAddRows = False
+        Me.dgvSendungen.AllowUserToDeleteRows = False
+        Me.dgvSendungen.AllowUserToResizeColumns = False
+        Me.dgvSendungen.AllowUserToResizeRows = False
+        Me.dgvSendungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
+        Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvSendungen.Location = New System.Drawing.Point(15, 408)
+        Me.dgvSendungen.Name = "dgvSendungen"
+        Me.dgvSendungen.ReadOnly = True
+        Me.dgvSendungen.RowHeadersVisible = False
+        Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvSendungen.Size = New System.Drawing.Size(615, 107)
+        Me.dgvSendungen.TabIndex = 16
+        '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung._DateTimeOnly = False
+        Me.txtBezeichnung._numbersOnly = False
+        Me.txtBezeichnung._numbersOnlyKommastellen = ""
+        Me.txtBezeichnung._Prozent = False
+        Me.txtBezeichnung._ShortDateNew = False
+        Me.txtBezeichnung._ShortDateOnly = False
+        Me.txtBezeichnung._TimeOnly = False
+        Me.txtBezeichnung._value = ""
+        Me.txtBezeichnung._Waehrung = False
+        Me.txtBezeichnung._WaehrungZeichen = True
+        Me.txtBezeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
+        Me.txtBezeichnung.Location = New System.Drawing.Point(133, 534)
+        Me.txtBezeichnung.MaxLineLength = -1
+        Me.txtBezeichnung.MaxLines_Warning = ""
+        Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.Size = New System.Drawing.Size(497, 23)
+        Me.txtBezeichnung.TabIndex = 13
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer._DateTimeOnly = False
+        Me.txtAbfertigungsnummer._numbersOnly = False
+        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._Prozent = False
+        Me.txtAbfertigungsnummer._ShortDateNew = False
+        Me.txtAbfertigungsnummer._ShortDateOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._value = Nothing
+        Me.txtAbfertigungsnummer._Waehrung = False
+        Me.txtAbfertigungsnummer._WaehrungZeichen = True
+        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!)
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(101, 67)
+        Me.txtAbfertigungsnummer.MaxLineLength = -1
+        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(400, 24)
+        Me.txtAbfertigungsnummer.TabIndex = 5
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 280
+        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!)
+        Me.cboFiliale.FormattingEnabled = True
+        Me.cboFiliale.Location = New System.Drawing.Point(15, 67)
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
+        Me.cboFiliale.TabIndex = 4
+        '
+        'txtLKWNr
+        '
+        Me.txtLKWNr._DateTimeOnly = False
+        Me.txtLKWNr._numbersOnly = False
+        Me.txtLKWNr._numbersOnlyKommastellen = ""
+        Me.txtLKWNr._Prozent = False
+        Me.txtLKWNr._ShortDateNew = False
+        Me.txtLKWNr._ShortDateOnly = False
+        Me.txtLKWNr._TimeOnly = False
+        Me.txtLKWNr._value = ""
+        Me.txtLKWNr._Waehrung = False
+        Me.txtLKWNr._WaehrungZeichen = True
+        Me.txtLKWNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtLKWNr.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWNr.Location = New System.Drawing.Point(15, 25)
+        Me.txtLKWNr.MaxLineLength = -1
+        Me.txtLKWNr.MaxLines_Warning = ""
+        Me.txtLKWNr.MaxLines_Warning_Label = Nothing
+        Me.txtLKWNr.Name = "txtLKWNr"
+        Me.txtLKWNr.Size = New System.Drawing.Size(486, 23)
+        Me.txtLKWNr.TabIndex = 1
+        '
+        'dgvAviso
+        '
+        Me.dgvAviso.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAviso.AllowUserToAddRows = False
+        Me.dgvAviso.AllowUserToDeleteRows = False
+        Me.dgvAviso.AllowUserToResizeColumns = False
+        Me.dgvAviso.AllowUserToResizeRows = False
+        Me.dgvAviso.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvAviso.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAviso.Location = New System.Drawing.Point(15, 97)
+        Me.dgvAviso.Name = "dgvAviso"
+        Me.dgvAviso.ReadOnly = True
+        Me.dgvAviso.RowHeadersVisible = False
+        Me.dgvAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAviso.Size = New System.Drawing.Size(615, 369)
+        Me.dgvAviso.TabIndex = 6
+        '
+        'frmAvisoAnfuegen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(642, 797)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.cboArt)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtSrchDat)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.dgvSendungen)
+        Me.Controls.Add(Me.lblErr_Aviso)
+        Me.Controls.Add(Me.lblErr_Bezeichnung)
+        Me.Controls.Add(Me.txtBezeichnung)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.bttnSaveMail)
+        Me.Controls.Add(Me.btnSaveAttachments)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.txtAbfertigungsnummer)
+        Me.Controls.Add(Me.cboFiliale)
+        Me.Controls.Add(Me.txtLKWNr)
+        Me.Controls.Add(Me.dgvAviso)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.lbl)
+        Me.Controls.Add(Me.cbx)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.ForeColor = System.Drawing.SystemColors.ControlText
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmAvisoAnfuegen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Aviso anfügen"
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAviso, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents txtLKWNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lbl As Windows.Forms.Label
+    Friend WithEvents Label14 As Windows.Forms.Label
+    Public WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label13 As Windows.Forms.Label
+    Public WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents dgvAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Button1 As Windows.Forms.Button
+    Friend WithEvents btnSaveAttachments As Windows.Forms.Button
+    Friend WithEvents bttnSaveMail As Windows.Forms.Button
+    Friend WithEvents Label2 As Windows.Forms.Label
+    Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblErr_Bezeichnung As Windows.Forms.Label
+    Friend WithEvents lblErr_Aviso As Windows.Forms.Label
+    Friend WithEvents dgvSendungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label1 As Windows.Forms.Label
+    Public WithEvents txtSrchDat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Windows.Forms.Label
+    Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents cbx As Windows.Forms.CheckBox
+    Friend WithEvents CheckBox1 As Windows.Forms.CheckBox
+End Class

VERAGAddIn/frmAvisoAnfügen.vb

@@ -0,0 +1,234 @@
+Imports System.Windows.Forms
+
+Public Class frmAvisoAnfuegen
+
+    Public AvisoId = -1
+    Public SendungsId = -1
+    Public Bezeichnung = ""
+    Public PDF_MAIL = ""
+
+    Public ATT As List(Of String)
+
+    Sub New(Bezeichnung)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.Bezeichnung = Bezeichnung
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub frmAvisoAnfügen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtBezeichnung.Text = Bezeichnung
+        txtSrchDat.Text = Now.AddMonths(-1).ToShortDateString
+        cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A'  ORDER BY FilialenNr ", True, "FMZOLL", True)
+        txtLKWNr.Focus()
+
+        cboArt.Items.Clear()
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
+
+
+        initAttachment()
+    End Sub
+
+    Sub initAttachment()
+        dgvAnhaenge.Rows.Clear()
+        If ATT.Count = 0 Then
+            btnSaveAttachments.Enabled = False
+        Else
+            btnSaveAttachments.Enabled = CheckBox1.Checked
+            For Each a In ATT
+                Dim display = a
+                If a.Contains("\") Then
+                    Dim sp = a.Split("\")
+                    display = sp(sp.Count - 1)
+                End If
+                dgvAnhaenge.Rows.Add({display})
+            Next
+        End If
+        dgvAnhaenge.ClearSelection()
+    End Sub
+
+    Private Sub txtLKWNr_TextChanged(sender As Object, e As KeyEventArgs) Handles txtLKWNr.KeyDown, txtAbfertigungsnummer.KeyDown, cboFiliale.KeyDown
+        If e.KeyCode = Keys.Return Then initSrch()
+    End Sub
+    Private Sub cboFiliale_TextChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
+        initSrch()
+    End Sub
+    Sub initSrch()
+        Try
+            UseWaitCursor = True
+
+            With dgvAviso
+                .Columns.Clear()
+                Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                If firma = "" Then firma = "VERAG"
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
+                    firma = " AND ( FIRMA='" & firma & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
+                Else
+                    firma = " AND FIRMA='" & firma & "'  "
+                End If
+
+                Dim sql = "SELECT TOP 10 AvisoID, Grenzstelle as Grenze, Datum, LKW_Nr,Auftraggeber,Frächter,Firma FROM Aviso left join tblSendungen on tblSnd_AvisoID=AvisoID WHERE  status <>2  " & firma & " "
+                If IsDate(txtSrchDat.Text) Then sql &= " AND Datum > '" & CDate(txtSrchDat.Text).ToShortDateString & "'"
+                If txtLKWNr.Text <> "" Then sql &= " AND LKW_Nr LIKE '%" & txtLKWNr.Text & "%'"
+
+
+                If cboFiliale._value <> "" Then sql &= " AND FilialenNr LIKE '%" & cboFiliale._value & "%'"
+                If txtAbfertigungsnummer.Text <> "" Then sql &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "'"
+                sql &= " group by AvisoID, Grenzstelle, Datum, LKW_Nr,Auftraggeber,Frächter,Firma "
+                sql &= " order by datum desc"
+                .SET_SQL(sql, "AVISO")
+                .LOAD()
+
+                .Columns("AvisoId").Visible = False
+                .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+                .Columns("Grenze").Width = 40
+                .Columns("Datum").Width = 80
+
+                If .Rows.Count = 1 Then
+                    .Rows(0).Selected = True
+                    txtBezeichnung.Focus()
+                End If
+            End With
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+        UseWaitCursor = False
+    End Sub
+
+    Sub initSrchSnd(AvisoId)
+        Try
+            UseWaitCursor = True
+
+            With dgvSendungen
+                .Columns.Clear()
+                If AvisoId <= 0 Then Exit Sub
+                Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                If firma = "" Then firma = "VERAG"
+                Dim sql = "SELECT [tblSnd_SendungID],[FilialenNr],[AbfertigungsNr],[tblSnd_Absender] as Absender,[tblSnd_Empfaenger] as Empfänger,[tblSnd_Auftraggeber] as Auftraggeber,[tblSnd_Colli] as Colli,[tblSnd_Gewicht] as Gewicht,[tblSnd_FremdspeditionText] as Fremd "
+                sql &= " FROM [tblSendungen] where tblSnd_AvisoID=" & AvisoId
+
+                .SET_SQL(sql, "AVISO")
+                .LOAD()
+
+                .Columns("tblSnd_SendungID").Visible = False
+                .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+
+                .Columns("FilialenNr").Width = 35
+                .Columns("AbfertigungsNr").Width = 55
+                .Columns("Colli").Width = 40
+                .Columns("Gewicht").Width = 55
+                .Columns("Empfänger").Width = 100
+                .Columns("Fremd").Width = 45
+
+
+                '.Columns("Grenze").Width = 40
+                ' .Columns("Datum").Width = 80
+
+                'If .Rows.Count = 1 Then
+                '    .Rows(0).Selected = True
+                '    txtBezeichnung.Focus()
+                'End If
+                .ClearSelection()
+
+                If cboFiliale._value <> "" AndAlso txtAbfertigungsnummer.Text <> "" Then
+                    For Each r As DataGridViewRow In .Rows
+                        If r.Cells("FilialenNr").Value = cboFiliale._value And r.Cells("AbfertigungsNr").Value = txtAbfertigungsnummer.Text Then
+                            r.Selected = True
+                        End If
+                    Next
+                End If
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        UseWaitCursor = False
+    End Sub
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click, bttnSaveMail.Click
+        lblErr_Bezeichnung.Visible = False
+        lblErr_Aviso.Visible = False
+        If dgvAviso.SelectedRows.Count > 0 Then
+            If txtBezeichnung.Text.Trim = "" Then
+                lblErr_Bezeichnung.Visible = True
+                Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
+            End If
+            Me.AvisoId = dgvAviso.SelectedRows(0).Cells("AvisoId").Value
+            If dgvSendungen.SelectedRows.Count > 0 Then
+                Me.SendungsId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+            Else
+                Me.SendungsId = -1
+            End If
+            If sender Is btnSaveAttachments Then PDF_MAIL = "PDF"
+            If sender Is bttnSaveMail Then PDF_MAIL = If(CheckBox1.Checked, If(cbx.Checked, "PDFMAIL", "MAIL"), "ONLYMAIL")
+            Bezeichnung = txtBezeichnung.Text
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+        Else
+            lblErr_Aviso.Visible = True
+            Me.DialogResult = Windows.Forms.DialogResult.None
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        initSrch()
+    End Sub
+
+    Private Sub dgvAviso_DoubleClick(sender As Object, e As EventArgs) Handles dgvAviso.DoubleClick
+        If dgvAviso.SelectedRows.Count > 0 Then
+            txtBezeichnung.Focus()
+        End If
+    End Sub
+
+    Private Sub dgvAviso_Click(sender As Object, e As EventArgs) Handles dgvAviso.Click
+        dgvSendungen.ClearSelection()
+    End Sub
+
+    Private Sub dgvAviso_CellContentClick(sender As Object, e As EventArgs) Handles dgvAviso.SelectionChanged
+        Dim avisoId = -1
+        If dgvAviso.SelectedRows.Count > 0 Then avisoId = dgvAviso.SelectedRows(0).Cells("AvisoId").Value
+        initSrchSnd(avisoId)
+    End Sub
+
+    Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
+        If e.KeyCode = Keys.Delete Then
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
+                    ATT.RemoveAt(row.Index)
+                Next
+                ' ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
+                initAttachment()
+            End If
+        End If
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        dgvAnhaenge.Enabled = CheckBox1.Checked
+        cbx.Enabled = CheckBox1.Checked
+
+        If CheckBox1.Checked Then
+            btnSaveAttachments.Enabled = dgvAnhaenge.Rows.Count > 0
+        Else
+            btnSaveAttachments.Enabled = False
+        End If
+    End Sub
+End Class

VERAGAddIn/rbnMailItem.Designer.vb

@@ -0,0 +1,111 @@
+Partial Class rbnMailItem
+    Inherits Microsoft.Office.Tools.Ribbon.RibbonBase
+
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Public Sub New(ByVal container As System.ComponentModel.IContainer)
+        MyClass.New()
+
+        'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers
+        If (container IsNot Nothing) Then
+            container.Add(Me)
+        End If
+
+    End Sub
+
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Public Sub New()
+        MyBase.New(Globals.Factory.GetRibbonFactory())
+
+        'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
+        InitializeComponent()
+
+    End Sub
+
+    'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Tab1 = Me.Factory.CreateRibbonTab
+        Me.Group1 = Me.Factory.CreateRibbonGroup
+        Me.Button1 = Me.Factory.CreateRibbonButton
+        Me.Button2 = Me.Factory.CreateRibbonButton
+        Me.Tab1.SuspendLayout()
+        Me.Group1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Tab1
+        '
+        Me.Tab1.ControlId.ControlIdType = Microsoft.Office.Tools.Ribbon.RibbonControlIdType.Office
+        Me.Tab1.Groups.Add(Me.Group1)
+        Me.Tab1.Label = "VERAG"
+        Me.Tab1.Name = "Tab1"
+        '
+        'Group1
+        '
+        Me.Group1.Items.Add(Me.Button1)
+        Me.Group1.Items.Add(Me.Button2)
+        Me.Group1.Label = "AVISO"
+        Me.Group1.Name = "Group1"
+        '
+        'Button1
+        '
+        Me.Button1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.Button1.Image = Global.VERAGAddIn.My.Resources.Resources.Aviso
+        Me.Button1.Label = "Neues Aviso"
+        Me.Button1.Name = "Button1"
+        Me.Button1.ShowImage = True
+        '
+        'Button2
+        '
+        Me.Button2.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.Button2.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512
+        Me.Button2.Label = "Mail an Aviso anfügen"
+        Me.Button2.Name = "Button2"
+        Me.Button2.ShowImage = True
+        '
+        'rbnMailItem
+        '
+        Me.Name = "rbnMailItem"
+        Me.RibbonType = "Microsoft.Outlook.Mail.Compose, Microsoft.Outlook.Mail.Read, Microsoft.Outlook.Me" &
+    "etingRequest.Read, Microsoft.Outlook.MeetingRequest.Send, Microsoft.Outlook.Post" &
+    ".Compose, Microsoft.Outlook.Post.Read"
+        Me.Tabs.Add(Me.Tab1)
+        Me.Tab1.ResumeLayout(False)
+        Me.Tab1.PerformLayout()
+        Me.Group1.ResumeLayout(False)
+        Me.Group1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab
+    Friend WithEvents Group1 As Microsoft.Office.Tools.Ribbon.RibbonGroup
+    Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents Button2 As Microsoft.Office.Tools.Ribbon.RibbonButton
+End Class
+
+Partial Class ThisRibbonCollection
+
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Friend ReadOnly Property rbnMailItem() As rbnMailItem
+        Get
+            Return Me.GetRibbon(Of rbnMailItem)()
+        End Get
+    End Property
+End Class

VERAGAddIn/rbnMailItem.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

VERAGAddIn/rbnMailItem.vb

@@ -0,0 +1,40 @@
+Imports Microsoft.Office.Tools.Ribbon
+
+Public Class rbnMailItem
+    Dim LOGIN_OK As Boolean = False
+    Public Shared Event bla()
+    Private Sub rbnMailItem_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
+    End Sub
+    Private Function CreateRibbonDropDownItem() As RibbonDropDownItem
+        Return Me.Factory.CreateRibbonDropDownItem()
+    End Function
+
+    Private Function CreateRibbonMenu() As RibbonMenu
+        Return Me.Factory.CreateRibbonMenu()
+    End Function
+
+    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
+        If LOGIN_OK Then
+            Try
+                Dim INSPECTOR As Outlook.Inspector = e.Control.Context
+                AVISO_Mail_Functions.NewAviso(INSPECTOR.CurrentItem)
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
+        If LOGIN_OK Then
+            Try
+                Dim INSPECTOR As Outlook.Inspector = e.Control.Context
+                AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem)
+                'Me.Context
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+        End If
+    End Sub
+End Class

VERAGAddIn/rbnVERAG.Designer.vb

@@ -44,6 +44,11 @@
         Me.Tab1 = Me.Factory.CreateRibbonTab
         Me.VERAG = Me.Factory.CreateRibbonGroup
         Me.Button2 = Me.Factory.CreateRibbonButton
+        Me.btnPdfPrint = Me.Factory.CreateRibbonButton
+        Me.Button3 = Me.Factory.CreateRibbonButton
+        Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
+        Me.Button1 = Me.Factory.CreateRibbonButton
+        Me.Button4 = Me.Factory.CreateRibbonButton
         Me.Tab1.SuspendLayout()
         Me.VERAG.SuspendLayout()
         Me.SuspendLayout()
@@ -58,6 +63,9 @@
         'VERAG
         '
         Me.VERAG.Items.Add(Me.Button2)
+        Me.VERAG.Items.Add(Me.btnPdfPrint)
+        Me.VERAG.Items.Add(Me.Button3)
+        Me.VERAG.Items.Add(Me.SplitButton1)
         Me.VERAG.Label = "AVISO"
         Me.VERAG.Name = "VERAG"
         '
@@ -69,6 +77,44 @@
         Me.Button2.Name = "Button2"
         Me.Button2.ShowImage = True
         '
+        'btnPdfPrint
+        '
+        Me.btnPdfPrint.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.btnPdfPrint.Image = Global.VERAGAddIn.My.Resources.Resources.pdfprint
+        Me.btnPdfPrint.Label = "Alle PDFs drucken"
+        Me.btnPdfPrint.Name = "btnPdfPrint"
+        Me.btnPdfPrint.ShowImage = True
+        '
+        'Button3
+        '
+        Me.Button3.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.Button3.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512
+        Me.Button3.Label = "Mail an Aviso anfügen"
+        Me.Button3.Name = "Button3"
+        Me.Button3.ShowImage = True
+        '
+        'SplitButton1
+        '
+        Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.SplitButton1.Image = Global.VERAGAddIn.My.Resources.Resources.wheel
+        Me.SplitButton1.Items.Add(Me.Button1)
+        Me.SplitButton1.Items.Add(Me.Button4)
+        Me.SplitButton1.Label = "Spezielle Optionen"
+        Me.SplitButton1.Name = "SplitButton1"
+        '
+        'Button1
+        '
+        Me.Button1.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
+        Me.Button1.Label = "EKOL PDFs auslesen"
+        Me.Button1.Name = "Button1"
+        Me.Button1.ShowImage = True
+        '
+        'Button4
+        '
+        Me.Button4.Label = "Info"
+        Me.Button4.Name = "Button4"
+        Me.Button4.ShowImage = True
+        '
         'VERAGRibbon
         '
         Me.Name = "VERAGRibbon"
@@ -85,6 +131,11 @@
     Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab
     Friend WithEvents VERAG As Microsoft.Office.Tools.Ribbon.RibbonGroup
     Friend WithEvents Button2 As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents btnPdfPrint As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents SplitButton1 As Microsoft.Office.Tools.Ribbon.RibbonSplitButton
+    Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents Button3 As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents Button4 As Microsoft.Office.Tools.Ribbon.RibbonButton
 End Class
 
 Partial Class ThisRibbonCollection

VERAGAddIn/rbnVERAG.vb

@@ -6,6 +6,8 @@ Imports System.Windows.Forms
 Imports Microsoft.Office.Interop
 Imports VERAGAddIn.ThisAddIn
 Imports System.Runtime.InteropServices
+Imports System.Text.RegularExpressions
+Imports System.IO
 
 Public Class VERAGRibbon
     Dim LOGIN_OK = False
@@ -22,42 +24,38 @@ Public Class VERAGRibbon
         Return Me.Factory.CreateRibbonMenu()
     End Function
 
-    Private Function CreateRibbonButton() As RibbonButton
+    'Private Function CreateRibbonButton() As RibbonButton
-        Dim button As RibbonButton = Me.Factory.CreateRibbonButton()
+    '    Dim button As RibbonButton = Me.Factory.CreateRibbonButton()
-        ' AddHandler (button.Click), AddressOf Button_Click
+    '    ' AddHandler (button.Click), AddressOf Button_Click
-        Return button
+    '    Return button
-    End Function
+    'End Function
 
     Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
 
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        initFirmaUser()
+        LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
     End Sub
 
-    Sub initFirmaUser()
+
-        Dim ADMIN As New cADMIN
+
+
+    Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
+        If LOGIN_OK Then AVISO_Mail_Functions.NewAviso_Hauptfenster()
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
         Try
-            Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
+            MsgBox(System.Security.Principal.WindowsIdentity.GetCurrent().Name)
-            If WI.Contains("\") Then
-                Dim Split() = WI.Split("\")
-                If Split(0).Contains("VERAG-NCTS") Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA"
-                If Split(0).Contains("VERAG") Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
-                If Split(0).Contains("IMEX") Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
-
-                Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
-
-                If UsernameTMP <> "" Then
-                    LOGIN_OK = ADMIN.checkLogin(UsernameTMP, ADMIN.getPwdFromUsrname(UsernameTMP, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA), VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
-                End If
-            End If
         Catch ex As Exception
-            '  MsgBox(ex.Message & ex.StackTrace)
         End Try
-        If Not LOGIN_OK Then
-            LOGIN_OK = ADMIN.checkLogin("MAIL_USER", "VERAG_MAIL_USER_2017", "VERAG")
-        End If
     End Sub
 
+
+    Sub Button1_Click_1(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
+        If LOGIN_OK Then AVISO_Mail_Functions.newEKOLMAIL()
+    End Sub
+
+
     Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs)
         'MsgBox("HI")
         '   Dim ThisAddIn As New ThisAddIn
@@ -67,101 +65,333 @@ Public Class VERAGRibbon
         RaiseEvent bla()
 
     End Sub
+    Sub btnPdfPrint_Click(sender As Object, e As RibbonControlEventArgs) Handles btnPdfPrint.Click
+        AVISO_Mail_Functions.printPDFs()
+    End Sub
 
 
+    Sub Button3_Click(sender As Object, e As RibbonControlEventArgs) Handles Button3.Click
+        If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster()
+    End Sub
 
 
-    Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
+End Class
-        If LOGIN_OK Then
-            '  For Each ft As Form In My.Application.OpenForms
-            'If ft.GetType.ToString = "AVISO.frmEintragAviso" Then
-            'ft.BringToFront()
-            '   Exit Sub
-            ' End If
-            '   Next
 
-            Dim ATTACHMENTS_LIST As New List(Of String)
+Public Class AVISO_Mail_Functions
 
-            Dim KundenNr = -1
+    Shared Sub addMailToAviso_Hauptfenster()
-            Dim EingangsDatum As Date = CDate("01.01.1990")
+        Try
-            Try
+            Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
-                Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
+            Dim selection As Outlook.Selection = explorer.Selection
-                Dim selection As Outlook.Selection = explorer.Selection
+            If selection.Count > 0 Then
-                If selection.Count > 0 Then
+                Dim selectedItem = selection(1)
-                    Dim selectedItem = selection(1)
+                Dim mailItem As Outlook.MailItem = selectedItem
-                    Dim mailItem As Outlook.MailItem = selectedItem
+                mailItem = DirectCast(mailItem, Outlook.MailItem)
-                    If mailItem IsNot Nothing Then
+
-                        EingangsDatum = mailItem.ReceivedTime
+                addMailToAviso(mailItem)
-                        Dim senderMail = ""
+            End If
-                        If mailItem.SenderEmailType = "EX" Then
+        Catch ex As Exception
-                            senderMail = (mailItem.Sender.GetExchangeUser.PrimarySmtpAddress)
+            MsgBox(ex.Message & ex.StackTrace)
-                        Else
+        End Try
-                            senderMail = (mailItem.SenderEmailAddress)
+    End Sub
+
+
+    Shared Function getAttachmentStringList(Mail) As List(Of String)
+
+        Dim att As New List(Of String)
+        For Each attachment As Outlook.Attachment In Mail.Attachments
+            att.Add(attachment.FileName)
+        Next
+        Return att
+
+    End Function
+    Shared Sub addMailToAviso(mailItem As Outlook.MailItem)
+        Try
+            If mailItem IsNot Nothing Then
+                ' Remove special characters from the file name and make sure it is not longer than 100 characters
+                ' Remove special characters from the file name and make sure it is not longer than 100 characters
+                Dim strFileName As String = "E-Mail"
+                If mailItem.Subject IsNot Nothing AndAlso mailItem.Subject <> "" Then
+                    strFileName = Left(Regex.Replace(mailItem.Subject, "[\/\\\:\?!€,&'\*\<\>\|""]", ""), 100).Replace("""", "").Replace(vbTab, " ") & ".msg"
+                End If
+                'Dim strFileName As String = "Mail.msg"
+                Dim pdf_mail = ""
+                Dim SendungsId = -1
+                Dim Art = ""
+                Dim ATTACHMENTS_LIST As New List(Of String)
+                loadAttachment(mailItem, ATTACHMENTS_LIST)
+
+                If isMail_EKOL(mailItem) Then
+                    If vbYes = MsgBox("EKOL-Anhänge laden?", vbYesNoCancel) Then
+                        getATT_EKOL(mailItem, ATTACHMENTS_LIST)
+                    End If
+                End If
+                Dim Bezeichnung = strFileName
+                Dim AvisoId = getAvisoId(Bezeichnung, pdf_mail, SendungsId, Art, ATTACHMENTS_LIST) ')getAttachmentStringList(mailItem))
+                If AvisoId < 0 Then Exit Sub
+
+                Dim BezAnhang = If(Bezeichnung <> strFileName, Bezeichnung, "") 'Wenn die Bezeichnung geändert wurde --> und wenn nur 1 Anhang, dann wird die Bezeichnung für den Anhang verwendet.
+
+                If pdf_mail = "PDF" Then
+                    saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
+                ElseIf pdf_mail = "PDFMAIL" Then
+                    saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
+                    saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
+                Else 'ONLYMAIL
+                    saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
+                End If
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+    Shared Sub printPDFs()
+        Dim cntPDFs = countPDFs()
+
+        If cntPDFs > 0 Then
+            If vbYes = MsgBox("Möchten Sie alle " & cntPDFs & " PDF-Anhänge drucken?", vbYesNoCancel) Then
+                Try
+                    Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
+                    Dim selection As Outlook.Selection = explorer.Selection
+                    If selection.Count > 0 Then
+                        Dim selectedItem = selection(1)
+                        Dim mailItem As Outlook.MailItem = selectedItem
+                        If mailItem IsNot Nothing Then
+                            Dim attachments As Outlook.Attachments = mailItem.Attachments
+                            For Each attachment As Outlook.Attachment In mailItem.Attachments
+                                'Dim io As New IO.FileInfo(attachment.PathName)
+                                If attachment.FileName.EndsWith(".pdf") Then
+                                    Dim TMP_PATH As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(attachment.FileName, ".pdf", False, False, "OutlookAttach_Print")
+                                    attachment.SaveAsFile(TMP_PATH)
+
+                                    Marshal.ReleaseComObject(attachment)
+                                    If IO.File.Exists(TMP_PATH) Then
+                                        VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({TMP_PATH}) ', cboPrinter.SelectedItem.ToString)
+                                        Try : IO.File.Delete(TMP_PATH) : Catch : End Try
+                                    End If
+                                End If
+
+                            Next
                         End If
 
-                        KundenNr = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getKdNrFromMailAdress(senderMail, False) ' false, wenn mehrere Niederlassungen von Frimen im KdStamm vorhanden... falsche KdNr...
-
                     End If
-                    saveAttachment(mailItem, ATTACHMENTS_LIST)
+                Catch ex As Exception
+                    MsgBox(ex.Message & ex.StackTrace)
+                End Try
+            End If
+        End If
+    End Sub
+    Shared Sub newEKOLMAIL()
+        Try
+            Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
+            Dim selection As Outlook.Selection = explorer.Selection
+            If selection.Count > 0 Then
+                Dim selectedItem = selection(1)
+                Dim mailItem As Outlook.MailItem = selectedItem
+                If mailItem IsNot Nothing Then
+                    If AVISO_Mail_Functions.isMail_EKOL(mailItem) Then
+                        VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF(AVISO_Mail_Functions.getATT_EKOL(mailItem))
+                    End If
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+    Shared Function initFirmaUser() As Boolean
+        Dim LOGIN_OK = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'DEFAULT
+
+        Try
+            Dim ADMIN As New cADMIN
+            Try
+                Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
+                If WI.Contains("\") Then
+                    Dim Split() = WI.Split("\")
+                    If Split(0).Contains("VERAG-NCTS") Then : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA"
+                    ElseIf Split(0).Contains("VERAG") Then : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
+                    ElseIf Split(0).Contains("IMEX") Then : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
+                    ElseIf Split(0).Contains("UNISU") Then : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
+                    End If
+
+                    Dim UsrId As Integer = ADMIN.getUstId_ByAD(Split(0), Split(1))
+                    If UsrId > 0 Then
+                        Dim MA_TMP As New VERAG_PROG_ALLGEMEIN.cMitarbeiter(UsrId)
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(MA_TMP.mit_firma = "ALL", MA_TMP.mit_FirmaHaupt, MA_TMP.mit_firma)
+                        LOGIN_OK = ADMIN.checkLogin(MA_TMP.mit_username, MA_TMP.mit_pwd, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                    End If
                 End If
             Catch ex As Exception
-                MsgBox(ex.Message)
+                '  MsgBox(ex.Message & ex.StackTrace)
             End Try
-
+            If Not LOGIN_OK Then
-
+                LOGIN_OK = ADMIN.checkLogin("MAIL_USER", "VERAG_MAIL_USER_2017", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
-            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
-            Dim mainForm As New AVISO.frmEintragAviso
-            If KundenNr > 0 Then
-                AddHandler mainForm.Shown, Sub()
-                                               mainForm.kdAvisierer.KdNr = KundenNr
-                                           End Sub
             End If
-            If EingangsDatum > CDate("01.01.1990") Then
+        Catch ex As Exception
-                mainForm.EingangsDatum = EingangsDatum
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return LOGIN_OK
+    End Function
+
+
+    Shared Sub NewAviso_Hauptfenster()
+
+        VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("OutlookAttach")
+
+        Try
+            Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
+            Dim selection As Outlook.Selection = explorer.Selection
+            If selection.Count > 0 Then
+                Dim selectedItem = selection(1)
+                Dim mailItem As Outlook.MailItem = selectedItem
+                If mailItem IsNot Nothing Then
+                    NewAviso(mailItem)
+                End If
+
             End If
-            mainForm.TopMost = True
+        Catch ex As Exception
-            mainForm.StartFromOUTLOOK = True
+            MsgBox(ex.Message & ex.StackTrace)
-            mainForm.ShowDialog()
+        End Try
+    End Sub
 
 
+    Shared Function getFirmaFromToMail(ToMail As String)
+        If ToMail.Contains("@verag") Then Return "VERAG"
+        If ToMail.Contains("@imex") Then Return "IMEX"
+        If ToMail.Contains("@unisped") Then Return "UNISPED"
+        If ToMail.Contains("@front-office") Then Return "FRONTOFFICE"
+        Return ""
+    End Function
+
+    Shared Sub NewAviso(mailItem As Outlook.MailItem)
+        Dim ATTACHMENTS_LIST As New List(Of String)
+
+        Dim KundenNr = -1
+        Dim EingangsDatum As Date = CDate("01.01.1990")
+
+        If mailItem IsNot Nothing Then
             Try
+
+                'MsgBox(mailItem.To)
+                'MsgBox(mailItem.)
+                'MsgBox(getFirmaFromToMail(mailItem.To))
+
+                EingangsDatum = mailItem.ReceivedTime
+                Dim senderMail = ""
+                If mailItem.SenderEmailType = "EX" Then
+                    senderMail = (mailItem.Sender.GetExchangeUser.PrimarySmtpAddress)
+                Else
+                    senderMail = (mailItem.SenderEmailAddress)
+                End If
+
+
+                KundenNr = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getKdNrFromMailAdress(senderMail, False) ' false, wenn mehrere Niederlassungen von Frimen im KdStamm vorhanden... falsche KdNr...
+
+                If isMail_EKOL(mailItem) Then
+                    If vbYes = MsgBox("EKOL-Anhänge laden?", vbYesNoCancel) Then
+                        getATT_EKOL(mailItem, ATTACHMENTS_LIST)
+                    End If
+                End If
+                'End If
+
+
+                loadAttachment(mailItem, ATTACHMENTS_LIST)
+
+
+                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
+                Dim mainForm As New AVISO.frmEintragAviso
+                mainForm.ATT = ATTACHMENTS_LIST
+                If KundenNr > 0 Then
+                    AddHandler mainForm.Shown, Sub()
+                                                   mainForm.kdAvisierer.KdNr = KundenNr
+                                               End Sub
+                End If
+                If EingangsDatum > CDate("01.01.1990") Then
+                    mainForm.EingangsDatum = EingangsDatum
+                End If
+                mainForm.TopMost = True
+                mainForm.StartFromOUTLOOK = True
+                mainForm.ShowDialog()
+                ATTACHMENTS_LIST = mainForm.ATT
+
                 If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID > 0 Then
-                    For Each ATT In ATTACHMENTS_LIST
+
-                        Dim fi As New IO.FileInfo(ATT)
+                    saveAttachment(ATTACHMENTS_LIST, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1, "", "")
-                        Dim typ = ""
+                    saveMail(mailItem, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID,, False)
-                        If AVISO.frmSendungAnhangImport.getFileTypeValid(typ, fi.Extension) Then
+
-                            AVISO.frmSendungAnhangImport.saveToDS(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, fi.Name, ATT, "", typ)
-                        End If
-                    Next
                 End If
             Catch ex As Exception
                 MsgBox(ex.Message & ex.StackTrace)
-            End Try
+            Finally
-        Else
+                Try
-            MsgBox("Fehler beim Login!")
-        End If
 
+                    'If attachments IsNot Nothing Then
+                    '    Marshal.ReleaseComObject(attachments)
+                    'End If
+                    If mailItem IsNot Nothing Then
+                        Marshal.ReleaseComObject(mailItem)
+                    End If
+                    'If currInspector IsNot Nothing Then
+                    '    Marshal.ReleaseComObject(currInspector)
+                    'End If
+
+                Catch ex As Exception
+
+                End Try
+            End Try
+
+        End If
     End Sub
 
-    Private Sub saveAttachment(mail As Outlook.MailItem, ByRef ATTACHMENTS_LIST As List(Of String))
+
+    Shared Sub saveAttachment(ByRef ATTACHMENTS_LIST As List(Of String), AvisoId As Integer, SendungsId As Integer, Art As String, BezeichnungAnh As String)
+        Try
+            If AvisoId > 0 Then
+                If ATTACHMENTS_LIST.Count > 1 Then BezeichnungAnh = "" ' nur wenn 1 Anhang wird die Bezeichnung übernommen.
+                For Each ATT In ATTACHMENTS_LIST
+                    Dim fi As New IO.FileInfo(ATT)
+                    Dim Bezeichnung = BezeichnungAnh
+                    If Bezeichnung = "" Then Bezeichnung = fi.Name
+                    Dim typ = ""
+                    If AVISO.frmSendungAnhangImport.getFileTypeValid(fi.Extension, typ) Then
+                        AVISO.frmSendungAnhangImport.saveToDS(AvisoId, Bezeichnung, ATT, Art, typ, ,,, If(SendungsId > 0, SendungsId, Nothing))
+                    End If
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
+    Shared Sub loadAttachment(ByRef mail As Outlook.MailItem, ByRef ATTACHMENTS_LIST As List(Of String))
 
         Dim attachments As Outlook.Attachments = Nothing
 
         Try
             attachments = mail.Attachments
             For Each attachment As Outlook.Attachment In mail.Attachments
-                'Next
+                If Not isEmbedded(attachment) Then
-                'For i As Integer = 1 To attachments.Count
+
-                '    Dim attachment As Outlook.Attachment = attachments.Item(i)
+                    'Next
-                ' MsgBox(attachment.FileName)
+                    'For i As Integer = 1 To attachments.Count
-                Dim specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss")
+                    '    Dim attachment As Outlook.Attachment = attachments.Item(i)
-                While IO.Directory.Exists(specialFolder)
+                    ' MsgBox(attachment.FileName)
-                    specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss")
+                    Dim specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss.ffff")
-                End While
+                    While IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.TMP_PATH & specialFolder)
-                '   Dim io As New IO.FileInfo(attachment.PathName)
+                        specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss.ffff")
-                Dim TMP_PATH As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(attachment.FileName, " io.Extension", False, False, specialFolder)
+                    End While
-                attachment.SaveAsFile(TMP_PATH)
+                    'Dim iof As New IO.FileInfo(attachment.PathName)
-                ATTACHMENTS_LIST.Add(TMP_PATH)
+                    Dim TMP_PATH As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(attachment.FileName, "", False, False, specialFolder)
+                    attachment.SaveAsFile(TMP_PATH)
+                    Dim iof As New IO.FileInfo(TMP_PATH)
+
+                    ' If iof.Length > 5000 Then ' > 5 KB
+                    ATTACHMENTS_LIST.Add(TMP_PATH)
+                    ' End If 
+                End If
                 Marshal.ReleaseComObject(attachment)
             Next
         Catch ex As Exception
@@ -171,11 +401,176 @@ Public Class VERAGRibbon
                 Marshal.ReleaseComObject(attachments)
             End If
             If mail IsNot Nothing Then
-                Marshal.ReleaseComObject(mail)
+                '   Marshal.ReleaseComObject(mail)
             End If
             'If currInspector IsNot Nothing Then
             '    Marshal.ReleaseComObject(currInspector)
             'End If
         End Try
     End Sub
+
+    Shared Function isEmbedded(attachment As Outlook.Attachment) As Boolean
+        If attachment.Type <> Outlook.OlAttachmentType.olByValue Then
+            Return True
+        End If
+        Dim iTmp As Integer = attachment.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x37050003")
+        If iTmp = 6 Then
+            Return True
+        End If
+        iTmp = attachment.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x37140003")
+        If iTmp = 4 Then
+            Return True
+        End If
+
+        Return False
+    End Function
+
+    Shared Function countPDFs() As Integer
+        countPDFs = 0
+        Try
+            Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
+            Dim selection As Outlook.Selection = explorer.Selection
+            If selection.Count > 0 Then
+                Dim selectedItem = selection(1)
+                Dim mailItem As Outlook.MailItem = selectedItem
+                If mailItem IsNot Nothing Then
+                    Dim attachments As Outlook.Attachments = mailItem.Attachments
+                    For Each attachment As Outlook.Attachment In mailItem.Attachments
+                        'Dim io As New IO.FileInfo(attachment.PathName)
+                        If attachment.FileName.EndsWith(".pdf") Then
+                            countPDFs += 1
+                        End If
+                        'O.File.Delete(TMP_PATH)
+                    Next
+                End If
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Function
+    Public Shared Function GetTempFilePathWithExtension(ByVal extension As String) As String
+        Dim path = IO.Path.GetTempPath()
+        Dim fileName = Guid.NewGuid().ToString() & extension
+        Return IO.Path.Combine(path, fileName)
+    End Function
+
+
+    Shared Function isMail_EKOL(mailItem As Outlook.MailItem) As Boolean
+        Try
+            If mailItem IsNot Nothing Then
+                Dim srch As String = "<a href=""http://web01.ekol.com/documentservice/download/"
+                Return mailItem.HTMLBody.ToString.Contains(srch)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+
+    Shared Function getATT_EKOL(mailItem As Outlook.MailItem, Optional ByRef ATT As List(Of String) = Nothing, Optional ByRef LKW_Nr As String = "", Optional ByRef RefNr As String = "", Optional ByRef INFO As String = "") As List(Of String)
+        If ATT Is Nothing Then ATT = New List(Of String)
+        Try
+            If mailItem Is Nothing Then Return ATT
+
+            Dim html = mailItem.HTMLBody
+            Dim srch As String = "<a href=""http://web01.ekol.com/documentservice/download/"
+            If html.ToString.Contains(srch) Then
+
+                Dim myDelims As String() = New String() {srch}
+                Dim sp = html.Split(myDelims, StringSplitOptions.None)
+
+                ' Dim sp = html.ToString.Split(srch.ToString)
+                Dim cnt = 0
+                For Each l In sp
+                    If cnt > 0 AndAlso l.Contains(""">") Then ' ENDE
+                        Dim link = ("http://web01.ekol.com/documentservice/download/" & l.ToString.Substring(0, l.ToString.IndexOf(""">")))
+
+                        Dim TMP_PATH = GetTempFilePathWithExtension(".pdf")
+                        My.Computer.Network.DownloadFile(link, TMP_PATH)
+
+                        If IO.File.Exists(TMP_PATH) Then
+                            ATT.Add(TMP_PATH)
+                        End If
+
+                    End If
+                    cnt += 1
+                Next
+            End If
+            LKW_Nr = getEKOL_Var(html, "Position :")
+            RefNr = getEKOL_Var(html, "Truck :")
+            INFO = getEKOL_Var(html, "Route :")
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return ATT
+    End Function
+
+    Shared Function getEKOL_Var(html, varName, Optional splitTo = "<br>")
+        If html.contains(varName) Then
+            Dim split = html.split(varName)
+            If split(1).ToString.Contains(splitTo) Then
+                Dim split2 = html.split(splitTo)
+                Return split2(0).ToString.Trim
+            End If
+        End If
+        Return ""
+    End Function
+
+    Shared Sub saveMail(mailItem As Outlook.MailItem, AvisoId As Integer, Optional bezeichnung As String = "", Optional saveAttachments As Boolean = True, Optional SendungsId As Integer = -1, Optional Art As String = "")
+        '  Dim mailItem As Outlook.MailItem = mailItemTMP.Copy
+        Try
+            If AvisoId > 0 Then
+                ' The full path will place the email in the user's temporary folder 
+
+                If bezeichnung = "" Then bezeichnung = Left(Regex.Replace(mailItem.Subject, "[\/\\\:\?\*\<\>\|""]", ""), 100).Replace("""", "").Replace(vbTab, " ") & ".msg"
+                Dim strTmpPath As String = System.IO.Path.GetTempPath() & bezeichnung & If(bezeichnung.EndsWith(".msg"), "", ".msg")
+                ' Save the email to the user's temp folder and convert it to a .MSG
+                'Dim cnt = 0
+                'If Not saveAttachments Then
+                '    While mailItem.Attachments.Count > 0 And cnt < 100
+                '        mailItem.Attachments.Remove(1) : cnt += 1 '  Remove(1)  stimmt
+                '    End While
+                'End If
+
+                mailItem.SaveAs(strTmpPath, Outlook.OlSaveAsType.olMSG)
+
+
+                '     UploadDocument("http://testURL/sites/testing", "Documents", strFileName, btSaveFile)
+                If AVISO.frmSendungAnhangImport.saveToDS(AvisoId, bezeichnung, strTmpPath, Art, "MSG",,,, If(SendungsId, SendungsId, Nothing)) Then
+                    '  MsgBox("Anhang wurde hinzugefügt!")
+                End If
+                ' Clean up the temporary .MSG file from the user's temporary folder
+                System.IO.File.Delete(strTmpPath)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        Finally
+            If mailItem IsNot Nothing Then
+                Marshal.ReleaseComObject(mailItem)
+            End If
+        End Try
+    End Sub
+
+
+    Shared Function getAvisoId(ByRef Bezeichnung, ByRef pdf_mail, ByRef SendungsId, ByRef Art, ByRef Att) As Integer
+        Dim frmAvisoAnfügen As New frmAvisoAnfuegen(Bezeichnung)
+        frmAvisoAnfügen.ATT = Att
+        If frmAvisoAnfügen.ShowDialog = DialogResult.OK Then
+            Dim AvisoId = frmAvisoAnfügen.AvisoId
+            SendungsId = frmAvisoAnfügen.SendungsId
+            Bezeichnung = frmAvisoAnfügen.Bezeichnung
+            pdf_mail = frmAvisoAnfügen.PDF_MAIL
+            Art = frmAvisoAnfügen.cboArt._value
+            Att = frmAvisoAnfügen.ATT
+
+            Return AvisoId
+        End If
+        Return -1
+    End Function
+
+
+
 End Class