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