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

MS SignatureLink

Browse Source
This commit is contained in:
Developer01
2024-07-22 09:46:48 +02:00
parent 58b13e233c
commit 40739b598b
4 changed files with 83 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
EnvelopeGenerator.Form/frmMain.vb
View File

@@ -503,5 +503,38 @@ Public Class frmMain
RefreshTimer.Start()
End Sub
Private Sub bbtnitmInfoMail_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmInfoMail.ItemClick
If ViewEnvelopes.FocusedRowHandle < 0 Then
Exit Sub
End If
Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
Dim oView As GridView = GridEnvelopes.FocusedView
If oView.Name = ViewReceivers.Name Then
Dim oReceiver As EnvelopeReceiver = oView.GetRow(oView.FocusedRowHandle)
Dim oEnvelopeTitle As String = Net.WebUtility.UrlEncode(oEnvelope.Title)
Dim oCode = oReceiver.AccessCode
Dim oUID = oEnvelope.Uuid
Dim oReceiverLink = oReceiver.G
' E-Mail-Details konfigurieren
Dim mailto As String = "support-flow@digitaldata.works"
Dim subject As String = "signFLOW - Envelope issue"
Dim body As String = $"<html><body><h1>Dear Digital Data Team, <br> There is an error or misbehavin with following envelope and Receiver: <p> Envelope: <b>{oUID}</b> <br> Error in module</h1><p>An error occurred in the module. Please check the logs for more details.</p></body></html>"
' URL-encoding für Betreff und Inhalt der E-Mail
Dim encodedSubject As String = Uri.EscapeDataString(subject)
Dim encodedBody As String = Uri.EscapeDataString(body)
' mailto-Link erstellen
Dim mailtoLink As String = $"{mailto}?subject={encodedSubject}&body={encodedBody}"
' E-Mail-Client öffnen
Process.Start(mailtoLink)
Process.Start($"mailto:{oReceiver.Email}?subject={oEnvelopeTitle}")
Else
MsgBox(Resources.Envelope.Please_select_a_recipient_from_the_Recipients_tab, MsgBoxStyle.Information, Text)
End If
End Sub
End Class