Foros del Web » Programación para mayores de 30 ;) » .NET »

Cargar relleno de formulario a un programa ?

Estas en el tema de Cargar relleno de formulario a un programa ? en el foro de .NET en Foros del Web. Hola gentes les agradesco a todos los que me ayudarona terminar el programa de envio de mails ! El programa esta listo y les dejo ...
  #1 (permalink)  
Antiguo 13/04/2011, 19:33
 
Fecha de Ingreso: abril-2011
Ubicación: rosario
Mensajes: 7
Antigüedad: 8 años, 4 meses
Puntos: 0
Pregunta Cargar relleno de formulario a un programa ?

Hola gentes les agradesco a todos los que me ayudarona terminar el programa de envio de mails !

El programa esta listo y les dejo el link para que lo bajen !
[URL="http://www.megaupload.com/?d=QZ8TEVBC"]http://www.megaupload.com/?d=QZ8TEVBC[/URL]

El problema es el siguiente yo quiero saber si al codigo que tengo le puedo poner para que cargue un formulario al oprimir un boton o cuando abre el programa este mismo me rellene los siguientes campos (SERIA UN ARCHIVO .INI o .TXT)

Esto deberia ser un .ini o.txt k se ejecute desde un boton o cuando se abre el programa

Código:
            SMPT.Host = smtp.arnet.com.ar
            SMPT.Port = 25
            USER = [email protected]
            PASSWORD = CONTRASEÑA
            
            PARA = remitente
            ADJUNTO = C:\direccion del archivo
            TEMA = tema no es tan nesaria esta parte
            MENSAJE = TMB NO TA NESESARIO
Aqui les dejo el codigo completo y funcional de mi programa

Código:
'Espacio de nombres necesario
Imports System.Net.Mail
Imports System.Threading

Public Class FrmMail

    'variable array para adjuntos
    Dim Adjuntos() As String

    'instanciar la hebra
    Dim oHebra As Thread
    'Objeto SMTP
    Dim SMPT As New SmtpClient

    'Procedimiento
    Private Sub EnviarMail(ByVal StrDe As String, ByVal StrPara As String, _
                           ByVal StrAsunto As String, ByVal sAdjunto() As String, _
                           ByVal StrMensaje As String)
        Try

            'variable tipo mensaje con parametros De: Para:
            Dim Msg As New MailMessage(New MailAddress(StrDe), New MailAddress(StrPara))
            'asunto
            Msg.Subject = StrAsunto
            'mensaje
            Msg.Body = StrMensaje

            'ADJUNTOS
            For Each FAdjunto As String In sAdjunto
                If Not FAdjunto = "" Then
                    'Objeto tipo attachment
                    Dim Adjunto As New Attachment(FAdjunto)
                    'agregar adjunto al objeto mensaje
                    Msg.Attachments.Add(Adjunto)
                End If
            Next

            'DATOS SMTP
            
            'Credenciales
            SMPT.Credentials = New System.Net.NetworkCredential _
            ("[email protected]", "topa1234")
            'Host, Puerto, autenticacion
            SMPT.Host = "smtp.arnet.com.ar"
            SMPT.Port = 25
            SMPT.EnableSsl = False
            SMPT.Timeout = 10

            'Enviar
            SMPT.Send(Msg)

            'regresar cursor y controles a modo normal
            Me.Cursor = Cursors.Default
            btnEnviar.Enabled = True
            ProgressBar1.Visible = False
            Label6.Visible = False

        Catch ex As Exception
            'regresar cursor y controles a modo normal
            Me.Cursor = Cursors.Default
            btnEnviar.Enabled = True
            ProgressBar1.Visible = False
            Label6.Visible = False
            MsgBox(ex.Message)
        End Try
    End Sub

    'función para validar formato de dirección Email
    Function ValidateEmail(ByVal email As String) As Boolean
        Dim emailRegex As _
            New System.Text.RegularExpressions.Regex( _
            "^(?<user>[^@]+)@(?<host>.+)$")
        Dim emailMatch As  _
            System.Text.RegularExpressions.Match = emailRegex.Match(email)
        Return emailMatch.Success
    End Function


    Private Sub TxtDe_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtDe.Validating
        'si la validación no pasa se visualiza el errorprovider
        If ValidateEmail(TxtDe.Text.Trim) Then
            e.Cancel = False
            ErrorProvider1.SetError(TxtDe, "")
        Else
            e.Cancel = True
            ErrorProvider1.SetError(TxtDe, "La dirección de correo no es válida. Presione F1 para obtener ayuda.")
        End If
    End Sub
    Private Sub TxtPara_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtPara.Validating
        If ValidateEmail(TxtPara.Text.Trim) Then
            e.Cancel = False
            ErrorProvider1.SetError(TxtPara, "")
        Else
            e.Cancel = True
            ErrorProvider1.SetError(TxtPara, "La dirección de correo no es válida. Presione F1 para obtener ayuda.")
        End If
    End Sub
    Private Sub FrmMail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' se establece el texto de ayuda al pulsar F1 en los textboxs
        HelpProvider1.SetHelpString(TxtDe, "Una dirección de correo válida debe tener el formato: [email protected]")
        HelpProvider1.SetHelpString(TxtPara, "Una dirección de correo válida debe tener el formato: [email protected]")
    End Sub

    Private Sub BtnAdjuntos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdjuntos.Click
        'para obtener adjuntos
        'establecemos filtros para mostrar todos los archivos
        OpenFileDialog1.Filter = "Todos los archivos|*.*"
        'mostramos el dialogo
        OpenFileDialog1.ShowDialog()
        'agregamos la ruta del adjunto
        CboAdjunto.Items.Add(OpenFileDialog1.FileName)
        'visualizamos la ruta
        CboAdjunto.SelectedIndex = CboAdjunto.Items.Count - 1
    End Sub

    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        'obtenemos los adjuntos
        ReDim Preserve Adjuntos(0 To CboAdjunto.Items.Count - 1)
        For i As Integer = 0 To Adjuntos.Length - 1
            Adjuntos(i) = CboAdjunto.Items.Item(i).ToString
        Next
   
        Me.Cursor = Cursors.WaitCursor
        btnEnviar.Enabled = False

        'poner en marcha la hebra
        oHebra = New Thread(AddressOf Envio)
        ProgressBar1.Visible = True
        Label6.Visible = True
        oHebra.Start()

    End Sub

    Private Sub Envio()
        'al finalizar el envío, abortar la hebra
        Control.CheckForIllegalCrossThreadCalls = False
        EnviarMail(TxtDe.Text.Trim, TxtPara.Text.Trim, TxtAsunto.Text, Adjuntos, TxtMensaje.Text)
        oHebra.Abort()
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        'cancelamos la operación
        SMPT.SendAsyncCancel()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class
PD: Me comprometo que cuando este todo listo hacer un tutorial completo para los que tengan el mismo problema que yo !

Desde ya muchas gracias !

Etiquetas: programa, relleno, formulario
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:18.