@@ -723,9 +745,6 @@
Funktionen
-
- RibbonPageGroup4
-
Start
@@ -1352,12 +1371,6 @@
DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-
- RibbonPageGroup4
-
-
- DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-
RibbonPage2
@@ -1466,6 +1479,12 @@
System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ bbtnitmInfoMail
+
+
+ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
frmMain
diff --git a/EnvelopeGenerator.Form/frmMain.vb b/EnvelopeGenerator.Form/frmMain.vb
index 5f0c5e8a..1ce4b46f 100644
--- a/EnvelopeGenerator.Form/frmMain.vb
+++ b/EnvelopeGenerator.Form/frmMain.vb
@@ -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 = $"Dear Digital Data Team,
There is an error or misbehavin with following envelope and Receiver:
Envelope: {oUID}
Error in module
An error occurred in the module. Please check the logs for more details.
"
+
+ ' 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
\ No newline at end of file