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

1.1.1.0

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-08-09 12:38:33 +02:00
parent 5cbb13561f
commit d98d9950c3
8 changed files with 343 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb generated
View File

@@ -61,7 +61,7 @@ Partial Class frmPDFScanList
Me.cntxtMulti.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.cntxtMulti.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiScannenToolStripMenuItem, Me.DateiHochladenToolStripMenuItem, Me.ToolStripSeparator1, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEmailSendenToolStripMenuItem, Me.ToolStripSeparator2, Me.ArchivierenToolStripMenuItem})
Me.cntxtMulti.Name = "cntxt"
Me.cntxtMulti.Size = New System.Drawing.Size(218, 148)
Me.cntxtMulti.Size = New System.Drawing.Size(218, 126)
'
'DateiScannenToolStripMenuItem
'

1
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.vb
View File

@@ -60,5 +60,4 @@ Public Class frmPDFScanList
If Me IsNot Form.ActiveForm Then Me.Close()
End Sub
End Class

2
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScan.vb
View File

@@ -266,7 +266,7 @@ Public Class usrcntlPDFScan
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Attachments.Add(ii.coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Mail.Attachments.Add(ii.coll_pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, ii.coll_bezeichnung & ".pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")