Agregar archivos de proyecto.

GestionGrupoSanchoToro/VentanasEmergentes/dxwEnvioCorreo.xaml.vb

@@ -0,0 +1,82 @@
+
+Imports System.Data.Entity
+Imports DevExpress.Xpf.Core.ServerMode
+Imports DevExpress.Mvvm
+Imports DevExpress.Xpf.Grid
+Imports tsWPFCore
+Imports tsEFCore8.Extensiones
+Imports DevExpress.Xpf.Core
+Imports DevExpress.XtraReports.UI
+Imports System.IO
+Imports DevExpress.Xpf.Printing
+Imports Microsoft.Win32
+Imports System.Data.Objects
+Imports System.Data.Objects.DataClasses
+Imports bdGrupoSanchoToro.db.Utilidades
+Public Class dxwEnvioCorreo
+
+
+    Friend _Destinatarios As String
+    Friend _CC As String
+    Friend _BCC As String
+    Friend _Asunto As String
+    Friend _Cuerpo As String
+    Friend _Adjunto As String
+
+
+    Private Sub dxw_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+
+        teDestinatario.Text = _Destinatarios
+        teCuerpo.Text = _Cuerpo
+        teAdjunto.Text = _Adjunto
+        teCopia.Text = _CC
+        teCopiaOculta.Text = _BCC
+        teAsunto.Text = _Asunto
+        teDestinatario.Focus()
+    End Sub
+
+    Public Sub New(Destinatarios As String, CC As String, BCC As String, Asunto As String, Cuerpo As String, Adjunto As String)
+        _Destinatarios = Destinatarios
+        _CC = CC
+        _BCC = BCC
+        _Asunto = Asunto
+        _Cuerpo = Cuerpo
+        _Adjunto = Adjunto
+
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        Comun.EscalaVentana(Me, Me.grid.LayoutTransform)
+
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+
+    Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
+        Me.DialogResult = False
+        Me.Close()
+    End Sub
+
+    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
+        Try
+            If teDestinatario.Text.Trim.ToLower.EsEmailValido AndAlso teAsunto.Text.Trim <> "" Then
+                _Destinatarios = teDestinatario.Text.Trim.ToLower
+                _Cuerpo = teCuerpo.Text
+                _Adjunto = teAdjunto.Text
+                _CC = teCopia.Text
+                _BCC = teCopiaOculta.Text
+                _Asunto = teAsunto.Text
+
+                Me.DialogResult = True
+                Me.Close()
+            Else
+                DXMessageBox.Show("El asunto y el destinatario son campos obligatorios")
+            End If
+        Catch ex As Exception
+            Comun.GeneraRegistroCorreoExcepcion(Nothing, ex, "dxwAgregarNuevoCodigoPostal.btAceptar_Click")
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+    End Sub
+End Class
+
+