All,

I have a website that sends vistors email via SMTP. The SMTP service is running on the server, but I am getting an error message when I call the send command of the smtp object. The error message is: "Could not access 'CDO.Message' object". My code is below,

IMPORTS System.web.mail
.....
Private Sub SendEmail()
Dim oMsg As New MailMessage()
Dim strFile1 As String
Dim strFile2 As String

strFile1 = Server.MapPath("mydoc.doc")
strFile2 = Server.MapPath("mydoc2.doc")
Dim oAttchmnt1 As MailAttachment = New MailAttachment(strFile1, MailEncoding.Base64)
Dim oAttchment2 As MailAttachment = New MailAttachment(strFile2, MailEncoding.Base64)

With oMsg
.From = "JimRieck@yahoo.com"
.To = txtEmail.Text
.Subject = ""
.BodyFormat = MailFormat.Text
.Attachments.Add(oAttchmnt1)
.Attachments.Add(oAttchmnt2)
End With
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(oMsg)
End Sub