none
O que há de errado com meu código? RRS feed

  • Pergunta

  • Olá, tenho o seguinte código para enviar email, mas está gerando uma exception:

    ProtectedSubcmdEnviar_Click(sender AsObject, e AsEventArgs) HandlescmdEnviar.Click

           

    DimmsgMail AsNewMailMessage


           

    DimsmtpClient AsNewSmtpClient


           

    DimhostName AsString= "xxxxxxxxxxxx"


           

    DimhostPort AsString= "25"


           

    Try


    msgMail.From =

    NewMailAddress(txtEmail.Text)

                msgMail.To.Add(

    NewMailAddress("contato@lminformatica.srv.br"))

                msgMail.Subject = txtAssunto.Text

                msgMail.Body = txtMensagem.Text

                msgMail.Priority =

    MailPriority.Normal

                smtpClient.Host = hostName

                smtpClient.Port = hostPort

                smtpClient.Send(msgMail)

           

    Catchex AsException


                MsgBox(

    "Erro ao tentar enviar o email!", MsgBoxStyle.Critical)

           

    Finally


                cmdEnviar.Enabled =

    False


           

    EndTry


       

    EndSub

    End

    Class


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    quarta-feira, 6 de março de 2013 00:17

Todas as Respostas

  • Olá, tenho o seguinte código para enviar email, mas está gerando uma exception:

    ProtectedSubcmdEnviar_Click(sender AsObject, e AsEventArgs) HandlescmdEnviar.Click

           

    DimmsgMail AsNewMailMessage


           

    DimsmtpClient AsNewSmtpClient


           

    DimhostName AsString= "xxxxxxxxxxxx"


           

    DimhostPort AsString= "25"


           

    Try


    msgMail.From =

    NewMailAddress(txtEmail.Text)

                msgMail.To.Add(

    NewMailAddress("contato@lminformatica.srv.br"))

                msgMail.Subject = txtAssunto.Text

                msgMail.Body = txtMensagem.Text

                msgMail.Priority =

    MailPriority.Normal

                smtpClient.Host = hostName

                smtpClient.Port = hostPort

                smtpClient.Send(msgMail)

           

    Catchex AsException


                MsgBox(

    "Erro ao tentar enviar o email!", MsgBoxStyle.Critical)

           

    Finally


                cmdEnviar.Enabled =

    False


           

    EndTry


       

    EndSub

    End

    Class


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    Pode colocar a mensagem e tipo da excessão que foi gerada, para analisarmos.

    Leonardo Lourenço Silva

    quarta-feira, 6 de março de 2013 00:24