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

Question

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("[e-mail]"))

            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.

Answer 1

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("[e-mail]"))

            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