Help please: 'could not create cdo.message object'

Archived from groups: microsoft.public.win2000.setup (More info?)

I am using the Mailmessage class in my VB app. to create and send an
email over SMTP...

Everything works fine on my WinXP development box but when I run the
app on
Windows 2000 server it fails with "could not create cdo.message
object"

Please help, my code is below and like I said it works fine on my XP
machine:
(to,cc,subject and from are passed to the sub)

Dim strHTML As String
Dim newmsg As New MailMessage

newmsg.BodyFormat = MailFormat.Text

newmsg.To = strTo
newmsg.Cc = strCC
newmsg.From = strFrom
newmsg.Subject = Subject

newmsg.Body = Body & vbNewLine & vbNewLine & vbNewLine & vbNewLine &
vbNewLine & vbNewLine & _
" ** This is an automatically generated email, please do not attempt
to send
a reply."

Try
SmtpMail.SmtpServer = "12.4.50.228"

SmtpMail.Send(newmsg)

Catch ex As Exception
AddLog("Email send error @ " & DateTime.Now())
AddLog("Error was: " & ex.Message)
Exit Sub
End Try
1 answer Last reply
More about help please could create message object
  1. Archived from groups: microsoft.public.win2000.setup (More info?)

    Ask them in one of the programming groups.

    --
    Regards,

    Dave Patrick ....Please no email replies - reply in newsgroup.
    Microsoft Certified Professional
    Microsoft MVP [Windows]
    http://www.microsoft.com/protect

    "JERRYB" wrote:
    |I am using the Mailmessage class in my VB app. to create and send an
    | email over SMTP...
    |
    | Everything works fine on my WinXP development box but when I run the
    | app on
    | Windows 2000 server it fails with "could not create cdo.message
    | object"
    |
    | Please help, my code is below and like I said it works fine on my XP
    | machine:
    | (to,cc,subject and from are passed to the sub)
    |
    | Dim strHTML As String
    | Dim newmsg As New MailMessage
    |
    | newmsg.BodyFormat = MailFormat.Text
    |
    | newmsg.To = strTo
    | newmsg.Cc = strCC
    | newmsg.From = strFrom
    | newmsg.Subject = Subject
    |
    | newmsg.Body = Body & vbNewLine & vbNewLine & vbNewLine & vbNewLine &
    | vbNewLine & vbNewLine & _
    | " ** This is an automatically generated email, please do not attempt
    | to send
    | a reply."
    |
    | Try
    | SmtpMail.SmtpServer = "12.4.50.228"
    |
    | SmtpMail.Send(newmsg)
    |
    | Catch ex As Exception
    | AddLog("Email send error @ " & DateTime.Now())
    | AddLog("Error was: " & ex.Message)
    | Exit Sub
    | End Try
Ask a new question

Read More

Windows