AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Setup

Browse Source
This commit is contained in:
SchreiberM
2024-05-31 13:42:49 +02:00
parent 1309d61910
commit 2039b614c1
11 changed files with 235 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@@ -178,8 +178,14 @@ Public Class frmConfig_Basic
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
' Specify that the link was visited.
Me.LinkLabel1.LinkVisited = True
' Navigate to a URL.
System.Diagnostics.Process.Start("http://www.didalog.de/Support")
Try
' Navigate to a URL.
System.Diagnostics.Process.Start(CONF_SUPPORTPORTAL)
Catch ex As Exception
MsgBox(ex.Message)
Me.LinkLabel1.LinkVisited = False
End Try
End Sub
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
@@ -419,12 +425,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If email.Send_Log_Mail("<b> Log-/SupportMail Org-Flow.</b> <p>",
"Support-Mail OrgFlow", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support-flow@digitaldata.works") = True Then
MsgBox("Log Mail was sent to Digital Data!", MsgBoxStyle.Information, "Success!")
End If
End Sub
Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
CheckScanFolder(txtScanFolderWatch.Text, chkSubfolder.Checked)