83 lines
2.4 KiB
VB.net
83 lines
2.4 KiB
VB.net
|
|
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
|
|
|
|
|