EgtCAM5 :

- Migliorata gestione feedback.
- Aggiunto shift + F3 per ricerca precedente in MTable.

TopCommandBar/TopCommandBarViewModel.vb

@@ -490,6 +490,7 @@ Namespace EgtCAM5
             EgtOutLog("Exception in zip: " & ex1.ToString())
          End Try
          ' preparo la mail per il supporto
+         Dim bEx As Boolean = False
          Try
             Dim SendFeedbackWindow As New EgtWPFLib5.MapiMailMessage("EgtCAM5 Feedback - " & sKey)
             SendFeedbackWindow.Recipients.Add(sSupportAddress)
@@ -497,11 +498,15 @@ Namespace EgtCAM5
                SendFeedbackWindow.Files.Add(IniFile.m_sTempDir & "\Feedback.zip")
             End If
             SendFeedbackWindow.ShowDialog()
-            Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_TOPCOMMANDBAR + 14))
          Catch ex As Exception
             EgtOutLog("Feedback exception: " & ex.ToString)
-            MessageBox.Show(String.Format(EgtMsg(MSG_TOPCOMMANDBAR + 12), sSupportAddress, sZipToCreate), EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK, MessageBoxImage.Information)
+            bEx = True
          End Try
+         If bEx OrElse EgtWPFLib5.MapiMailMessage.m_ErrorCode <> 0 Then
+            MessageBox.Show(String.Format(EgtMsg(MSG_TOPCOMMANDBAR + 12), sSupportAddress, sZipToCreate), EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK, MessageBoxImage.Information)
+         Else
+            Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_TOPCOMMANDBAR + 14))
+         End If
       End Sub
 
 #End Region ' SendFeedbackCommand