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.