MailMessage problem - Could not access 'CDO.Message' object.

[Anthony Fine]

Hello All,

I have a VB.Net app that needs to send mail. I have created a class for
building my e-mail, but keep getting the error (Could not access
'CDO.Message' object.) when trying to send it. I can successfully send an
e-mail when I use the CreateObject("C DO.Message") method, but it fails when
trying to send using VB.Net. My code is below, I have included three
different ways that I have tried it, and both VB.Net options fail, any help
will be greatly appreciated.

--
Thank you,

Anthony Fine
'// VB 6.0 - This works fine...
'************** *************** *************** ***
Private Sub Form_Load()
Dim iNewMsg As Object
Set iNewMsg = CreateObject("C DO.Message")
iNewMsg.To = "so*****@there. com"
iNewMsg.From = "[e-mail] m"
iNewMsg.Subject = "Test"
iNewMsg.TextBod y = "Hello..."
iNewMsg.Send
Set iNewMsg = Nothing
End Sub
'************** *************** *************** ***

'// VB.Net - This fails...
'************** *************** *************** ***
Imports System.Web.Mail
Imports System.Web.Mail .SmtpMail

Public Class Form1
Inherits System.Windows. Forms.Form

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim iMsg As New MailMessage
Dim srv As SmtpMail
iMsg.To = "so*****@there. com"
iMsg.From = "[e-mail] m"
iMsg.BodyFormat = MailFormat.Text
iMsg.Body = "Testing... "
iMsg.Subject = "Test..."
srv.SmtpServer = "myServer"
srv.Send(iMsg)
End Sub
End Class
'************** *************** *************** ***

'// VB.Net - This fails as well...
'************** *************** *************** ***
Imports System.Web.Mail
Imports System.Web.Mail .SmtpMail

Public Class Form1
Inherits System.Windows. Forms.Form

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim newMail As New emailMessage
newMail.EmailTo = "so*****@there. com"
newMail.EmailFr om = "[e-mail] m"
newMail.EmailBo dyFormat = MailFormat.Text
newMail.EmailBo dy = "Testing... "
newMail.EmailSu bject = "Test..."
newMail.EmailSe rver = "myServer"
newMail.sendEma il()
newMail = Nothing
End Sub

End Class

Class emailMessage
Dim iMail As New MailMessage
Dim _to As String
Dim _from As String
Dim _server As SmtpMail
Dim _subject As String
Dim _body As String
Dim _bodyFormat As System.Web.Mail .MailFormat
Dim myServer As String

Public Property EmailTo() As String
Get
iMail.To = _to
End Get
Set(ByVal Value As String)
_to = Value
End Set
End Property

Public Property EmailFrom() As String
Get
iMail.From = _from
End Get
Set(ByVal Value As String)
_from = Value
End Set
End Property

Public Property EmailServer() As String
Get
_server.SmtpSer ver = myServer
End Get
Set(ByVal Value As String)
myServer = Value
End Set
End Property

Public Property EmailSubject() As String
Get
iMail.Subject = _subject
End Get
Set(ByVal Value As String)
_subject = Value
End Set
End Property

Public Property EmailBody() As String
Get
iMail.Body = _body
End Get
Set(ByVal Value As String)
_body = Value
End Set
End Property

Public Property EmailBodyFormat () As System.Web.Mail .MailFormat
Get
iMail.BodyForma t = _bodyFormat
End Get
Set(ByVal Value As System.Web.Mail .MailFormat)
_bodyFormat = Value
End Set
End Property

Public Sub sendEmail()
_server.Send(iM ail)
End Sub
End Class
'************** *************** *************** ***

[Cor]

Hi Anthony,

Five messages below yours is an answer from Herfried as well as from Bernie
on a problem like this, maybe you can have a look at that?

Cor

I have a VB.Net app that needs to send mail. I have created a class for
building my e-mail, but keep getting the error (Could not access
'CDO.Message' object.) when trying to send it. I can successfully send an
e-mail when I use the CreateObject("C DO.Message") method, but it fails when trying to send using VB.Net. My code is below, I have included three
different ways that I have tried it, and both VB.Net options fail, any help will be greatly appreciated.

[Herfried K. Wagner [MVP]]

* "Anthony Fine" <an*****@sfa200 0.com> scripsit:

I have a VB.Net app that needs to send mail. I have created a class for
building my e-mail, but keep getting the error (Could not access
'CDO.Message' object.) when trying to send it. I can successfully send an
e-mail when I use the CreateObject("C DO.Message") method, but it fails when
trying to send using VB.Net. My code is below, I have included three
different ways that I have tried it, and both VB.Net options fail, any help
will be greatly appreciated.

Does this sample work for you (notice that I forgot to specify the SMTP
server):

<http://www.mvps.org/dotnet/dotnet/samples/net/downloads/SendMail.zip>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Anthony Fine]

Thanks for the responses, but sorry to report that it still does not work.
I get the same error message. The error message has to be a generic message
since I was able to successfully send mail using the
CreateObject("C DO.Message") method from VB 6.0, and the error I get is,
"Could not access 'CDO.Message' object." when trying it from VB.Net.

Thanks again,

Anthony

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:br******** ****@ID-208219.news.uni-berlin.de...

* "Anthony Fine" <an*****@sfa200 0.com> scripsit:

I have a VB.Net app that needs to send mail. I have created a class for
building my e-mail, but keep getting the error (Could not access
'CDO.Message' object.) when trying to send it. I can successfully send an e-mail when I use the CreateObject("C DO.Message") method, but it fails when trying to send using VB.Net. My code is below, I have included three
different ways that I have tried it, and both VB.Net options fail, any help will be greatly appreciated.

Does this sample work for you (notice that I forgot to specify the SMTP
server):

<http://www.mvps.org/dotnet/dotnet/samples/net/downloads/SendMail.zip>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>