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

Dakosy, Chat, Feiertage, Formulare (AMBAR)

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-11-08 08:51:59 +01:00
parent 24b9746817
commit 1496d88118
17 changed files with 1233 additions and 1015 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -280,14 +280,22 @@ Public Class cProgramFunctions
mySmtpsvr.Port = 587
mySmtpsvr.EnableSsl = True
text = text.replace("import@ambarlog.com", "office@ambarlog.com")
text = text.replace("import@ambarlog.de", "office@ambarlog.com")
eMailfrom = "office@ambarlog.com"
Case Else
myCredentials.UserName = "import@ambarlog.com"
' myCredentials.UserName = "import@ambarlog.com"
'myCredentials.UserName = "import@ambarlog.de"
'myCredentials.Password = "Meh062020"
'mySmtpsvr.Host = "smtp.office365.com"
'mySmtpsvr.Port = 587
'mySmtpsvr.EnableSsl = True
myCredentials.UserName = "import@ambarlog.de"
myCredentials.Password = "Meh062020"
mySmtpsvr.Host = "smtp.office365.com"
mySmtpsvr.Host = "owa.verag.ag"
mySmtpsvr.Port = 587
mySmtpsvr.EnableSsl = True
' mySmtpsvr.EnableSsl = True
' eMailfrom = "import@ambarlog.com"
End Select
Case Else
@@ -324,7 +332,7 @@ Public Class cProgramFunctions
Msg.Subject = betreff '"ERROR - DAKOSY Einarbeitung"
If uhrzeitAngeben Then
Msg.Body &= "Zeitpunkt: " & Now.ToShortDateString & " " & Now.ToShortTimeString & "<br><br>"
Msg.Body &= "Zeitpunkt: " & Now.ToShortDateString & " " & Now.ToShortTimeString & "<br><br>"
'Msg.Body &= vbNewLine & vbNewLine
End If
Msg.Body &= text