merge

EnvelopeGenerator.Form/frmMain.vb

@@ -268,10 +268,16 @@ Public Class frmMain
     End Sub
 
     Private Sub btnContactReceiver_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnContactReceiver.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)
-            Process.Start($"mailto:{oReceiver.Email}")
+            Dim oEnvelopeTitle As String = Net.WebUtility.UrlEncode(oEnvelope.Title)
+            Process.Start($"mailto:{oReceiver.Email}?subject={oEnvelopeTitle}")
         Else
             MsgBox(Resources.Envelope.Please_select_a_recipient_from_the_Recipients_tab, MsgBoxStyle.Information, Text)
         End If