1.1.1.0

2019-08-09 12:38:33 +02:00
parent 5cbb13561f
commit d98d9950c3
8 changed files with 343 additions and 70 deletions
--- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
+++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte
@@ -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!")