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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-02 10:41:41 +02:00
parent 3a223f4418
commit 80d07c49dc
23 changed files with 2886 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAGAddIn/My Project/AssemblyInfo.vb
View File

@@ -35,8 +35,8 @@ Imports System.Security
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.3")>
<Assembly: AssemblyFileVersion("1.0.0.3")>
<Assembly: AssemblyVersion("1.0.0.4")>
<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"

50
VERAGAddIn/My Project/Resources.Designer.vb generated
View File

@@ -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

15
VERAGAddIn/My Project/Resources.resx
View File

@@ -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>

BIN
VERAGAddIn/Resources/665209_email_512x512.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.8 KiB

BIN
VERAGAddIn/Resources/GS/gsdll32.dll Normal file
View File

Binary file not shown.

BIN
VERAGAddIn/Resources/GS/gsdll32.lib Normal file
View File

Binary file not shown.

BIN
VERAGAddIn/Resources/GS/gswin32.exe Normal file
View File

Binary file not shown.

BIN
VERAGAddIn/Resources/GS/gswin32c.exe Normal file
View File

Binary file not shown.

BIN
VERAGAddIn/Resources/email_big1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 239 KiB

BIN
VERAGAddIn/Resources/pdf.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

BIN
VERAGAddIn/Resources/pdfprint.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 48 KiB

BIN
VERAGAddIn/Resources/wheel.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 82 KiB

9
VERAGAddIn/ThisAddIn.vb
View File

@@ -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

63
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -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>
<InstallUrl />
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.0.43</ApplicationVersion>
<AutoIncrementApplicationRevision>false</AutoIncrementApplicationRevision>
<ApplicationVersion>1.0.1.89</ApplicationVersion>
<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. -->

6
VERAGAddIn/app.config
View File

@@ -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>

456
VERAGAddIn/frmAvisoAnfügen.Designer.vb generated Normal file
View File

@@ -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

1256
VERAGAddIn/frmAvisoAnfügen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

234
VERAGAddIn/frmAvisoAnfügen.vb Normal file
View File

@@ -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

111
VERAGAddIn/rbnMailItem.Designer.vb generated Normal file
View File

@@ -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

120
VERAGAddIn/rbnMailItem.resx Normal file
View File

@@ -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>

40
VERAGAddIn/rbnMailItem.vb Normal file
View File

@@ -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

51
VERAGAddIn/rbnVERAG.Designer.vb generated
View File

@@ -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

577
VERAGAddIn/rbnVERAG.vb
View File

@@ -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
Dim button As RibbonButton = Me.Factory.CreateRibbonButton()
' AddHandler (button.Click), AddressOf Button_Click
Return button
End Function
'Private Function CreateRibbonButton() As RibbonButton
' Dim button As RibbonButton = Me.Factory.CreateRibbonButton()
' ' AddHandler (button.Click), AddressOf Button_Click
' Return button
'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
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
MsgBox(System.Security.Principal.WindowsIdentity.GetCurrent().Name)
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
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
End Class
Dim ATTACHMENTS_LIST As New List(Of String)
Public Class AVISO_Mail_Functions
Dim KundenNr = -1
Dim EingangsDatum As Date = CDate("01.01.1990")
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
EingangsDatum = mailItem.ReceivedTime
Dim senderMail = ""
If mailItem.SenderEmailType = "EX" Then
senderMail = (mailItem.Sender.GetExchangeUser.PrimarySmtpAddress)
Else
senderMail = (mailItem.SenderEmailAddress)
Shared Sub addMailToAviso_Hauptfenster()
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
mailItem = DirectCast(mailItem, Outlook.MailItem)
addMailToAviso(mailItem)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
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
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
If Not LOGIN_OK Then
LOGIN_OK = ADMIN.checkLogin("MAIL_USER", "VERAG_MAIL_USER_2017", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End If
If EingangsDatum > CDate("01.01.1990") Then
mainForm.EingangsDatum = EingangsDatum
Catch ex As Exception
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
mainForm.StartFromOUTLOOK = True
mainForm.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
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)
Dim typ = ""
If AVISO.frmSendungAnhangImport.getFileTypeValid(typ, fi.Extension) Then
AVISO.frmSendungAnhangImport.saveToDS(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, fi.Name, ATT, "", typ)
End If
Next
saveAttachment(ATTACHMENTS_LIST, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1, "", "")
saveMail(mailItem, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID,, False)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Else
MsgBox("Fehler beim Login!")
End If
Finally
Try
'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
'For i As Integer = 1 To attachments.Count
' Dim attachment As Outlook.Attachment = attachments.Item(i)
' MsgBox(attachment.FileName)
Dim specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss")
While IO.Directory.Exists(specialFolder)
specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss")
End While
' Dim io As New IO.FileInfo(attachment.PathName)
Dim TMP_PATH As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(attachment.FileName, " io.Extension", False, False, specialFolder)
attachment.SaveAsFile(TMP_PATH)
ATTACHMENTS_LIST.Add(TMP_PATH)
If Not isEmbedded(attachment) Then
'Next
'For i As Integer = 1 To attachments.Count
' Dim attachment As Outlook.Attachment = attachments.Item(i)
' MsgBox(attachment.FileName)
Dim specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss.ffff")
While IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.TMP_PATH & specialFolder)
specialFolder = "OutlookAttach\Outlook_" & Now.ToString("ddMMyy_HHmmss.ffff")
End While
'Dim iof As New IO.FileInfo(attachment.PathName)
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