none
Ayuda con enviar mas de 2 correos al mismo tiempo. en Visual Basic 2010 RRS feed

  • Pregunta

  • Tengo un código de enviar funciona bien el detalle es que NO se como decirle que agregue mas archivos adjuntos

    y enviarlos ... me podrían ayudar les dejo el código:

     Try

                CheckAdjuntar.Checked = True
                Dim mensaje As New MailMessage
                mensaje.From = New MailAddress(txtMail.Text)
                mensaje.Subject = TxtAsunto.Text
                mensaje.To.Add(TxtCorreoPara.Text)
                mensaje.Body = TextMensaje.Text

                'ADJUNTAR

                Dim Adjuntar As New Net.Mail.Attachment(TxtAdjunto.Text)
                mensaje.Attachments.Add(Adjuntar)

                'SERVIDOR
                Dim smtp As New SmtpClient
                mensaje.Priority = MailPriority.Normal
                smtp.EnableSsl = True
                smtp.Port = 587
                smtp.Host = "outlook.office365.com"
                smtp.Credentials = New Net.NetworkCredential(txtMail.Text, txtContraseña.Text)

                smtp.Send(mensaje)

    viernes, 8 de marzo de 2019 17:42

Respuestas

  • Hola, asumiendo que programas en winforms

    podrías declarar una variable global que contenga una lista con los adjuntos

    Public Class Form1
        Private ListaAdjuntos As New List(Of Attachment)
        ........

    lo adjuntas uno por uno a la lista

         Dim Adjuntar As New Net.Mail.Attachment(txtAdjunto.Text)
         ListaAdjuntos.Add(Adjuntar)

    luego recorres la lista y la asignas uno a uno al mensaje

         Dim mensaje As New MailMessage
                If Not ListaAdjuntos Is Nothing Then
                    For Each adjunto As System.Net.Mail.Attachment In ListaAdjuntos
                        mensaje.Attachments.Add(adjunto)
                    Next
                End If


    Votar y marcar respuestas es agradecer.
    Saludos.
    Lima-Perú

    • Marcado como respuesta 75Solis domingo, 10 de marzo de 2019 20:32
    sábado, 9 de marzo de 2019 23:27

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    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.
    viernes, 8 de marzo de 2019 19:21
    Moderador
  • Disculpen soy nuevo en el foro solo he realizado 3 preguntas y reconozco que la pruemra vez NO

    marque la respuesta una me contestaron las restantes las resolví.

    de antemano gracias.

    Saludos y espero me puedan AYUDAR.

    sábado, 9 de marzo de 2019 5:07
  • Hola, asumiendo que programas en winforms

    podrías declarar una variable global que contenga una lista con los adjuntos

    Public Class Form1
        Private ListaAdjuntos As New List(Of Attachment)
        ........

    lo adjuntas uno por uno a la lista

         Dim Adjuntar As New Net.Mail.Attachment(txtAdjunto.Text)
         ListaAdjuntos.Add(Adjuntar)

    luego recorres la lista y la asignas uno a uno al mensaje

         Dim mensaje As New MailMessage
                If Not ListaAdjuntos Is Nothing Then
                    For Each adjunto As System.Net.Mail.Attachment In ListaAdjuntos
                        mensaje.Attachments.Add(adjunto)
                    Next
                End If


    Votar y marcar respuestas es agradecer.
    Saludos.
    Lima-Perú

    • Marcado como respuesta 75Solis domingo, 10 de marzo de 2019 20:32
    sábado, 9 de marzo de 2019 23:27
  • fijate que ya puse el for pero no adjunta nada

    sin embargo con este si lo hace pero solo una a la vez

    esto esta en el boton adjuntar.

    If OpenFileDialog1.ShowDialog = DialogResult.OK Then

                For x = 0 To OpenFileDialog1.FileNames.Count - 1
    5:
                    TxtAdjunto.Text = (OpenFileDialog1.FileNames(x))
    6:
                Next
    7:
            End If

    y este es el boton eviar:

    Private Sub BtEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEnviar.Click
            Try
                Conexcion.Open()
                CheckAdjuntar.Checked = True
                Dim mensaje As New MailMessage
                mensaje.From = New MailAddress(txtMail.Text)
                mensaje.Subject = TxtAsunto.Text
                mensaje.To.Add(TxtCorreoPara.Text)
                mensaje.Body = TextMensaje.Text

                'ADJUNTAR
               
                Dim Adjuntar As New Net.Mail.Attachment(TxtAdjunto.Text)
                mensaje.Attachments.Add(Adjuntar)

                'SERVIDOR
                Dim smtp As New SmtpClient
                mensaje.Priority = MailPriority.Normal
                smtp.EnableSsl = True
                smtp.Port = 587
                smtp.Host = "outlook.office365.com"
                smtp.Credentials = New Net.NetworkCredential(txtMail.Text, txtContraseña.Text)

                smtp.Send(mensaje)

    haver si me pueden ayudar por favor

    martes, 12 de marzo de 2019 3:02