Enviar e-mail usando Windows Forms sem Erro: "não foi possivel encontrar o objeto CDO.Message"

Question

Como devo proceder para Enviar um  e-mail usando Windows Forms sem Erro: "não foi possivel encontrar o objeto CDO.Message". já fiz isso:

Imports System.Web.Mail
Imports System.IO.StringWriter
    Private Sub Enviar_Email(ByVal w_CorpoEmail As String)
        Dim SndMail As New MailMessage
        Dim Dr As SqlClient.SqlDataReader
        Dim sSql As String
        Dim MailConsultor As String 


        With SndMail
             .From = "Relatório de Erro"
             .To = "[e-mail]"
             .Subject = "O TITULO..."
             .Body = w_CorpoEmail
             .BodyFormat = MailFormat.Html 
        End With
        Try
             SmtpMail.SmtpServer = "10.10.1.9" //servidor da empresa
             System.Web.Mail.SmtpMail.Send(SndMail)
        Catch ex As System.Exception
             Response.Write(ex.Message)
        End Try 

 End Sub

 

mas continua dando o erro!

Answer 1

http://www.dotnetraptors.com.br/start/forum/forum_net/564.aspx

Answer 2

o servidor smtp responde mas o meu programa não manda a mensagem mesmo assim e continua dando o mesmo erro

Answer 3

http://forums.microsoft.com/MSDN-BR/ShowPost.aspx?PostID=1178579&SiteID=21

Answer 4

Para quem está precisando dessa resposta....

 

O que está faltando é informar o e-mail do destinatário, mesmo que ele seja fictício, porém, tem que estar no formato de e-mail.

 

.From = "Relatório de Erro"

exemplo:

.From = [e-mail]

Ok..

Espero ter ajudado!!