Autentica��o para envio de e-mail

Question

Estou tentando enviar e-mail utilizando o namespace ( Imports System.Net.Mail ), mas, como � atrav�s de um e-mail yahoo, o mesmo retorna uma excess�o informando que o servidor requer autentica��o. Como devo proceder para autenticar vaia c�digo.
Grato.

Guilhermehao · Answer

Ai vai um exemplo pr�tico..acredito q no seu caso deva ser por causa do Ip do servidor..e tamb�m o mesmo est� com o servi�o de SMTP.

imports system.net.mail

�cria um objeto do tipo mail message que cont�m as informa��es do e-mail
dim email as new mailmessage
�remetente 
email.from = new mailaddress(txtde.text)
�destinatario 
email.to.add(txtpara.text)
�destinatario de copia do email
email.to.add(txtcc.text)
�destinatario de copia oculta
email.bcc.add(txtcco.text)
�prioridade de envio
email.priority = mailpriority.high
�formato do email
email.isbodyhtml = true
�assunto do email
email.subject = txtassunto.text
�mensagem do email
email.body = txtmensagem.text

�cria o objeto smtp
dim smtp as new smtpclient
smtp.host = "informe aqui o endereco ip do servidor"
smtp.port = 25
try
   �envia o email
   smtp.send(email)
   �envia um alerta ao usuario que o e-mail foi enviado com sucesso
   dim script as string = "<script>alert(�email enviado com sucesso!�);
</script>"
   clientscript.registerclientscriptblock(me.gettype, "clientscript", script)
catch ex as exception
   �envia um alerta ao usuario que o e-mail foi enviado com sucesso
   dim script as string = "<script>alert(�houve um erro ao enviar o e-mail!�);</script>"
   clientscript.registerclientscriptblock(me.gettype, "clientscript", script)
  finally
end try

E tamb�m a configura��o

<configuration>
   <system.net>
    <mailsettings>
      <smtp>
        <network host="servidor" port="25" username="usuario" password="senha" />
      </smtp>
    </mailsettings>
  </system.net>

Emir Neto · Answer

Desculpe, estou utilizando winformsVeja bem, este � meu c�digo:Imports System.Net.MailPublic Class frmEmail    �usado para armazenar os anexos    Dim Attachment As System.Net.Mail.Attachment    �cria uma mensagem a enviar    Dim Mailmsg As New System.Net.Mail.MailMessage()    Private Sub btnIncluiAnexo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluiAnexo.Click        �Mostra caixa de dialogo para selecionar anexos        Dim Conta As Integer        ofdAnexo.CheckFileExists = True        ofdAnexo.Title = �Selecione um arquivo para anexar�        ofdAnexo.ShowDialog()        For Conta = 0 To UBound(ofdAnexo.FileNames)            lstAnexos.Items.Add(ofdAnexo.FileNames(Conta))        Next    End Sub    Private Sub btnExcluiAnexo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluiAnexo.Click        �Remove os anexos        If lstAnexos.SelectedIndex > -1 Then            lstAnexos.Items.RemoveAt(lstAnexos.SelectedIndex)        End If    End Sub    Private Sub btnEnviaMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviaMail.Click        Dim i As Integer = 0        �valida��o dos dados        If txtSMTP.Text = �� Then            MsgBox(�Informe o nome do servidor SMTP ...!!!�, MsgBoxStyle.Information, �Envia Email�)            Exit Sub        End If        If txtDe.Text = �� Then            MsgBox(�Informe o endere�o de Origem ...!!!�, MsgBoxStyle.Information, �Envia Email�)     ...