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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -163,11 +163,14 @@ Public Class cProgramFunctions
Dim filename As String = ""
If optFileName <> "" Then
filename = sPath & optFileName & ".xlsx"
If IO.File.Exists(filename) Then
While IO.File.Exists(filename)
filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End If
End While
Else
filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
While IO.File.Exists(filename)
filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
End While
End If
wb.SaveAs(filename)
@@ -242,8 +245,8 @@ Public Class cProgramFunctions
If anhaenge IsNot Nothing Then
For Each a In DirectCast(anhaenge, List(Of String))
If a IsNot Nothing AndAlso a <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(a))
For Each aa In DirectCast(anhaenge, List(Of String))
If aa IsNot Nothing AndAlso aa <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(aa))
Next
End If
mySmtpsvr.Send(Msg)