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

Alexrafa

Configurar SMTP para enviar email no vb2008

4 mensagens neste tópico

Boas a tds,

Sou novo por aqui e tenho uma duvida em relacao a como configurar o smtp para enviar um email no vb.. ;)

O codigo que estou a utilizar é o seguinte:

    Private Sub btEnvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnvia.Click



        Dim i As Integer = 0


        'validação dos dados

        If txtServidorSMTP.Text = "" Then

            MsgBox("Informe o nome do servidor SMTP ...!!!", MsgBoxStyle.Information, "Envia Email")

            Exit Sub

        End If


        If txtOrigem.Text = "" Then

            MsgBox("Informe o endereço de Origem ...!!!", MsgBoxStyle.Information, "Envia Email")

            Exit Sub

        End If


        If txtDestino.Text = "" Then

            MsgBox("Informe o endereço de destino ...!!!", MsgBoxStyle.Information, "Envia Email")

            Exit Sub

        End If



        If txtAssunto.Text = "" Then

            MsgBox("Informe o assunto do email ...!!!", MsgBoxStyle.Information, "Envia Email")

            Exit Sub

        End If



        'endereca o recipiente

        Mailmsg.To.Add(New MailAddress(txtDestino.Text))


        Dim mSmtpCliente As New SmtpClient(txtServidorSMTP.Text)


        'Especifica o formato 

        'If chkFormato.Checked = True Then

        'Mailmsg.IsBodyHtml = True

        'End If



        'define o assunto

        Mailmsg.Subject = txtAssunto.Text


        'Anexa os arquivos um por um

        'For i = 0 To lstAnexos.Items.Count - 1

        'Mailmsg.Attachments.Add(New Attachment(lstAnexos.Items(i)))

        'Next


        'Corpo do EMail

        Mailmsg.Body = txtMensagem.Text


        'ENvia o email

        mSmtpCliente.Send([b]Mailmsg[/b])


    End Sub

O erro que me dá é no Mailmsg...

Desde já agradeco qualquer  ajuda

Cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas Tiago Salgado..o erro que me dá é este:

An unhandled exception of type 'System.InvalidOperationException' occurred in System.dll

Additional information: A from address must be specified.

Na parte do código:

'ENvia o email       

mSmtpCliente.Send(Mailmsg)

Abraço e obirgado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não sei se já resolveste isto, mas aqui vai.

O erro diz-te exactamente o que está a falhar. Para enviares o email terás que definir quem é q o envia, ou seja, precisas de ter algo assim:

Mailmsg.From = new MailAddress("xpto@email.pt");

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