none
No se adjuntan mas de 2 archivos al enviar Correo en Vb2010 RRS feed

  • Pregunta

  • Ayuda tengo un modulo para enviar correos solo puede enviar un correo  por mensaje a la vez

    y cuando le pongo un for la rutina se hace inestable(no funciona como debe de) les pongo el codigo haber si me pueden apoyar

    boton Adjuntar:

    Private Sub cmdAdjuntar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdjuntar.Click
            Try

                Me.OpenFileDialog1.ShowDialog()
                If Me.OpenFileDialog1.FileName <> "" Then
                    TxtAdjuntar.Text = Me.OpenFileDialog1.FileName
                    For x = 0 To OpenFileDialog1.FileNames.Count + 2

                        TxtAdjuntar.Text = (OpenFileDialog1.FileNames(x))
                    Next
                    
                End If

            Catch ex As Exception


            End Try
        End Sub

    botón enviar: este botón no tiene problemas pero se los pongo no se si se la causa:(este botón guarda cada mensaje enviado

    para mi registro)

    Try
                Conexcion.Open()

                EnviarCorreos(TxtMail.Text, TxtContraseña.Text, rtbMensaje.Text, txtAsunto.Text, TxtPara.Text, TxtAdjuntar.Text)

                Dim Comando As New OleDbCommand(" INSERT INTO CorreArrenda VALUES(@IdCorreoArrenda,@Empresa,@Contacto,@Correo,@Asunto,@Fecha)", Conexcion)

                Comando.Parameters.AddWithValue("@IdCorreo", txtClave.Text)
                Comando.Parameters.AddWithValue("@Empresa", txtEmpresa.Text)
                Comando.Parameters.AddWithValue("@Contacto", TxtContacto.Text)
                Comando.Parameters.AddWithValue("@Correo", TxtPara.Text)
                Comando.Parameters.AddWithValue("@Asunto", txtAsunto.Text)
                Comando.Parameters.AddWithValue("@Fecha", DateTimePicker1.Value)



                Comando.ExecuteNonQuery()


                MsgBox("el mensaje fue enviado correctamente", MsgBoxStyle.Information, "mensaje")
            Catch ex As Exception
                MessageBox.Show(ex.Message, "mensajeria vb.net", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

    miércoles, 13 de marzo de 2019 5:19

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar a los siguientes enlaces en donde puedes encontrar una posible solución para tu problema.

    https://social.msdn.microsoft.com/Forums/es-ES/0beebd1d-d730-450d-a67e-0fec977f9957/vb2010-adjuntar-archivos-en-correo?forum=vbes

    https://social.msdn.microsoft.com/Forums/es-ES/9550cef1-a86a-433a-a835-f0d1de6a2483/enviar-correo-con-archivo-adjunto?forum=vcses

    https://social.msdn.microsoft.com/Forums/es-ES/533e8c93-aeee-4bb7-9e29-fafe1523447b/enviar-correo-con-archivo-adjunto?forum=netfxwebes

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    miércoles, 13 de marzo de 2019 16:06
    Moderador