SND NCTS Adresse

This commit is contained in:
2023-11-14 15:07:52 +01:00
parent 1f230b49a2
commit 2b345a4614
2 changed files with 3 additions and 1 deletions

View File

@@ -1936,7 +1936,8 @@ Public Class frmSendungAnhangImport
theStream.Close()
' We should have the file name or if its an email, the subject line. Create our temp file based on the temp path and this info
Dim myTempFile As String = IO.Path.GetTempPath & fileName.ToString
Dim myTempFile As String = IO.Path.GetTempPath & VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName.ToString)
' Look to see if this is a email message. If so save that temporarily and get the temp file.
If InStr(myTempFile, ".msg") > 0 Then
Dim objOL As New Microsoft.Office.Interop.Outlook.Application