• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

reldes456

Envio de Email em VB.Net 2005

5 mensagens neste tópico

Antes de mais, cumprimentos a todo o Forum

Estou a desenvolver uma aplicação em VB.Net 2005, em que necessito de enviar email's a partir dela. Depois de pesquisar utilizei o codigo existente aqui http://www.elguille.info/NET/ASPNET/enviar_correo_ASPNET_v2.htm, mas isto apenas me dá para enviar um mail de cada vez. O que não deixando de ser importante, não me satisfaz uma vez que eu queria poder enviar email's para varias endereços em simultâneo. Se alguém podesse ajudar ficaria muito agradecido.

O codigo Utilizado foi:

Dim correo As New System.Net.Mail.MailMessage

        correo.From = New System.Net.Mail.MailAddress(txtDe.Text)

        correo.To.Add(txtPara.Text)

        correo.Subject = txtAsunto.Text

        correo.Body = txtTexto.Text

        correo.IsBodyHtml = False

        correo.Priority = System.Net.Mail.MailPriority.Normal

        Dim smtp As New System.Net.Mail.SmtpClient

        smtp.Host = "smtp.gmail.com"

        smtp.Credentials = New System.Net.NetworkCredential("utilizador", "password")

        smtp.EnableSsl = True

       

        Try

            smtp.Send(correo)

            LabelError.Text = "Mensaje enviado satisfactoriamente"

        Catch ex As Exception

            LabelError.Text = "ERROR: " & ex.Message

        End Try

Uma vez mais Obrigado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

/// <summary>
    /// Envia email com alerta de novo comentario adicionado
    /// </summary>
    /// <param name="emails">Lista de emails para receber os alertas</param>
    /// <param name="title">titulo do post</param>
    /// <param name="link">link do post</param>
    /// <returns>True | False</returns>
    public bool EnviarEmailAlertas(ArrayList emails, string title, string link)
    {
        try
        {           
            SmtpClient enviar = new SmtpClient();
            MailMessage msg = new MailMessage();
            msg.IsBodyHtml = true;
            enviar.Host = servidor;
            enviar.Port = porta;
            
            msg.From = new MailAddress(geral_email,geral_display_name);
            foreach (object mail in emails)
            {
                msg.Bcc.Add(mail.ToString());
            }
            msg.Subject = "XPTO";
            msg.IsBodyHtml = true;
            msg.Body = "BLABLABLABLA";

            enviar.EnableSsl = ssl;

            if (credenciais)
            {
                enviar.Credentials = new System.Net.NetworkCredential(username, password);
            }

            enviar.Send(msg);
            return true;
        }
        catch
        {
            return false;
        }

    }

Aqui tens a função que uso para enviar mails para vários endereços.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Estive a converter a funcão de C# para vb.net

Public Function EnviarEmailAlertas(ByVal emails As ArrayList, ByVal title As String, ByVal link As String) As Boolean
Try
	Dim enviar As New SmtpClient()
	Dim msg As New MailMessage()
	msg.IsBodyHtml = True
	enviar.Host = servidor
	enviar.Port = porta
	msg.From = New MailAddress(geral_email, geral_display_name)
	For Each mail As Object In emails
		msg.Bcc.Add(mail.ToString())
	Next
	msg.Subject = "XPTO"
	msg.IsBodyHtml = True
	msg.Body = "BLABLABLABLA"
	enviar.EnableSsl = ssl
	If credenciais Then
		enviar.Credentials = New System.Net.NetworkCredential(username, password)
	End If
	enviar.Send(msg)
	Return True
Catch
	Return False
End Try
End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pá, no txtPara.text metes os endereços de email separados por ponto e virgula ( ; )

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora